---

Hallo,

gibt es eine Funktion/Einstellung, mit der zwie auseinander stehende Linien (2D-Polylinien) bis zum angenommenen Schnittpunkt verlängert werden?
Es gibt zwar die ACAD Funktion "Abrunden" mit Wert 0, leider werden hierbei die beiden getrennten Polylinien zu einer Polylinie vereint. Die Linien müssen aber getrennt bleiben!

Für Eure Bemühungen bedanke ich mich schon im Voraus.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

schau dir doch mal die Befehlszeilenoption beim Befehl verlängern an (bzw beim Befehl trimmen und dann drück die Umschalt-Taste). Da gibt es die Option Kante - mit der geht das.

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo!

Ja, es funktioniert damit. Vielen Dank!

Allerdings müssen die Linien jeweils zwei mal ausgewählt werden.
Wie ließe sich das mit Lisp vereinfachen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
mit dem unteren Progrämmchen habe ich das verbinden von 2 Linien am Schnittpunkt mit nur einer Linienauswahl hin bekommen.
Allerdings bekomme ich beim Abbruch mit der rechten Maustaste noch die Meldung:
"Fehlerhafter Argumenttyp: lentityp nil"

Aber funktionieren tut es!
 
(defun c:VERL () 
  (setq pt 'T)
  (while pt
    (setq t1_0 (entsel "\n 1. Leitung: "))
    (setq t1_1 (car t1_0))
    (redraw t1_1 3) ;Linie ausleuchten!
    (setq t2_0 (entsel "\n 2. Leitung: "))
    (setq t2_1 (car t2_0))
    (redraw t2_1 3)
    (command "_extend" t1_0 t2_0 "" "K" "D" t1_0 t2_0)
    (if pt (command))
  )
  (redraw t1_1 4);Linie ausleuchten aus!
  (redraw t2_1 4)
  (princ)
)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP