Nicht elegant, aber funktionierend
(defun c k ()
(setq x1 (entsel "Wähle Strecke oder Polyline: "))
(terpri)
(setq stp1 (getpoint "Auf welche Seite soll verschoben werden?"))
(terpri)
(setq x2 (getdist "Abstand zur gezeigten Strecke:"))
terpri
(command "_offset" x2 x1 stp1 "")
(setq x3 (getdist "Abstand zur letzten Linie:"))
(setq sux (+ x2 x3))
(command "_offset" sux x1 stp1 "")
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
(setq x3 (getdist "Abstand zur letzten Linie?"))
(setq sux (+ sux x3))
(command "_offset" sux x1 stp1 "")
terpri
)
PS: bitte Kommasetzung bei den Zahlenangaben(Deine Anfrage) beachten, damit der Leser es leichter hat ;-)
[Diese Nachricht wurde von cad4fun am 05. Mai. 2011 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP