_

Poprawa lispa

Forum ogólne. Miejsce na pierwsze pytania w karierze projektanta. Wszelkie tematy, których nie można zakwalifikować do jednej z poniższych grup.

Poprawa lispa

Postprzez Vataze » lis 19, 2018 16:09

Witam czy poprawiłby mi ktoś poniższego lispa. Jest on z briscada a chciałbym aby działał na autocadzie

(defun c:cattrs (/ linia srodek dlugosc)


(setq linia (entsel "\nWskaz linie: "))

(command "_.area" "_o" (car linia))

(setq dlugosc (+(fix(getvar "perimeter"))1))

(setq srodek (cdr linia))



(princ "\nSrodek: ")
(princ srodek)
(princ "\nDlugosc: ")
(princ dlugosc)
(princ)
(command "_.INSERT" "CONDUIT_ATTRS" srodek 1 1 0 dlugosc "1" "" "OPL" "" "" "Dzierżawiona")
(command "_.ROTATE" "OS" "" srodek)
)
Vataze
 
Posty: 2
Dołączył(a): lip 24, 2018 15:17

Powrót do Pytania studentów, laików i początkujących

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników