(defun c:steigleitung ()
(setq p1 (getpoint))
(setq p2 (getpoint))
(setq p2new (list (car p2) (cadr p2) (+ (* (distance p1 p2) 0.05) (caddr p2))))
(command "_line" p1 p2new "")
)
Ist nur ein Erstversuch - die 0.05 sind nur ein Platzhalter für dein Gefällte das du willst.. (wenn du nach "unten" zeichnest musst du das + durch ein minus austauschen)
Die Routine ist natürlich ausbaufähig (CADWiesel würde sagen: sie ist schlecht *g*) - nur schnell reingetipselt. Hoffe es hilft.
------------------
mfg Siegfried Schachinger
http://www.tbschatz.at
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP