|
Lisp : Objekte verlängern mit Lisp
wronzky am 23.07.2008 um 21:11 Uhr (0)
Hiohne gross zu rechnen, kannst Du ja auch den Befehl Länge mit der Option Delta benutzen. Das ist für den Anfang auch einfacher zu verstehen. Bin mal so frei, Dir ein schnelles Beispiel zukommen zu lassen:Code:(defun c:vox-lengthen () (setq lg 0.2) (setq ele (car (entsel))) (setq ele_eig (entget ele)) (if (= (cdr (assoc 0 ele_eig)) "LINE") (setq p1 (cdr (assoc 10 ele_eig)) p2 (cdr (assoc 11 ele_eig)) ) ) (if (= (cdr (assoc 0 ele_eig)) "ARC") (setq p1 (polar (cdr (assoc 10 ele_eig)) (cdr (assoc 50 e ...
| | In das Form Lisp wechseln |
|
Lisp : Line mit festem Winkel -> AutoLisp
wronzky am 27.11.2007 um 20:55 Uhr (0)
Hi,also ich gehe davon aus, dass Du in pt1 bereits einen Punkt gespeichert hast.Dann könntest Du es so machen:Code:(command "_.line" pt1 (polar pt1 (/ pi 4) (getdist pt1 "Abstand:")) "")Wenn Du lieber einen Text an den Command-befehl übergibst, dann muss der vollständig sein, also so etwa:Code:(command "_.line" pt1 (strcat "@" (rtos (getreal "Abstand:") 2 8) "45") "")Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |