Vielen Dank Thomas! Funktioniert!
Ich hatte befürchtet, dass der Abstand auch negativ werden kann,
was aber nicht der Fall ist. Es wird anscheinend der Betrag ermittelt.
Einziger Nachteil, wenn nicht beide Punkte den X oder Y Wert gemein haben wird der Wert ermittelt wie bei dimaligned und nicht wie bei dimlinear, was ja logisch ist.
(defun c:dist2blo ( / pkt1 pkt2 pkt3 breite)
(setq pkt1 (getpoint "\nStartpunkt der Bemassung: "))
(setq pkt2 (getpoint "\nEndpunkt der Bemassung: "))
(command "_dimlinear" pkt1 pkt2 pause)
(command "_draworder" "L" "" "U")
(setq pkt3 (getpoint "\nEinfügepunkt Block: "))
(setq breite (rtos (distance pkt1 pkt2) 2 2))
(command "_insert" "BLOCK" pkt3 "1" "1" "" "" breite pause)
)
VIELEN DANK NOCHMAL
P.S: Hallo Jörn, Danke auch für deinen Vorschlag aber das mit dem reactor ist mir zu steil.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP