Hallo in die Gemeinde, ich habe folgendes Problem mit meinem kleinen Lisp. Mit dem Lisp kann ich eine Linie zeichnen und dann gleich versetzen und die markierte löschen.
Nun mein Problem, ich kann mit dem Lisp die Linien nur Orthogonal zeichnen. Würde aber sehr gern den Winkel ( UCS ) der ausgehenden Linie auswählen können. Habe schon so einiges ausprobiert, aber ich bekomme es nicht hin. Kann mir da jemand behilflich sein ?
;Linie zeichnen
;und versetzen
(defun C:LinAng()
(setq anf (getpoint "Start:")) ;Anfangspunkt der Linie bestimmen
(setq end (getpoint anf "Ende:")) ;Endpunkt der Linie bestimmen
(command "_line" anf end "") ;Linie vom Anfangs- zum Endpunkt zeichnen
(setq lin1 (entlast)) ;Linie merken
(setq seite (getpoint "Seite?")) ;Seite zum versetzen auswählen
(command "_offset" "3" lin1 seite "") ;Linie um drei zeichnungseinheiten versetzen
(entdel lin1) ;ursprüngliche Linie löschen
(princ)
)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP