---

Servus zusammen,
möchte gerne eine bestehende Polylinie direkt weiterzeichnen ohne erst an ihr anschließen zu müssen und sie danach zu verbinden.
Mann kann doch auch tangential am letzten Element automatisch  anschließen.
Weis nicht mehr wie das geht, kann mir jemand helfen??

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

---

Hallo,

Polylinie editieren -> Punkte einfügen

------------------
AJ

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

---

Von dort habe ich ein lisp namens pcontinue http://www.cadwerk.com

Funktioniert toll

lg Harald

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

---

Zitat:

---

Original erstellt von harry.f:
Von dort habe ich ein lisp namens pcontinue http://www.cadwerk.com

Funktioniert toll

lg Harald

---

;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
; Polyline Continue
;
; Funktion ermöglicht es, eine beliebige Polylinie fortzuführen.
;
; Aufruf: pcontinue
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
; (c) Dipl.-Ing.  Volker Kleppel
; http://www.cadwerk.com
; vkleppel@gmx.de
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
; Version: 2.1                   Datum: 26.2.1999
; AutoCAD12 [ ]  AutoCAD14 [x]   AutoCAD2000(i) [x]    AutoCAD2002 [x]
; Freeware  [x]  Shareware [ ]
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

(defun c  continue ( / en en1 ent enX i flag startpunkt winkel radius p1 p2 pt p dump iDump)
;;den smilie mit Doppelpunkt ersetzen
(setq iDump "Element")
(if (= iDump "Element")
(progn
(setq enX (entsel "\nLinie, Polylinie oder Bogen anpicken:"))
(setq dump (getvar "osmode"))
(setvar "osmode" 0)
(setq en  (car enX)
      ent (entget en)
     flag (cdr (assoc 0 ent))
       pt (osnap (cadr enX) "end")
)
(setvar "osmode" dump)

(if (not (member flag '("ARC" "LINE" "LWPOLYLINE")))
(princ "\nElement ist keine Linie, Polylinie oder Bogen!")
(progn ;else
(if (and (= flag "LWPOLYLINE") (= (cdr (assoc 70 ent)) 1))
(princ "\nDie gewählte Polylinie ist geschlossen!")
(progn ;ELSE
(cond
((= flag "LINE")
(setq p pt)
)
((= flag "ARC")
(setq p pt)
)
((= flag "LWPOLYLINE")
(setq i (length ent) exitflag nil)
(setq exitflag nil)
(while (not exitflag)
(if (= (car (nth (1- i) ent)) 10)
(setq p1 (cdr (nth (1- i) ent)) exitflag T)
(setq i (1- i))
)
)
(setq i 1)
(setq exitflag nil)
(while (not exitflag)
(if (= (car (nth (1- i) ent)) 10)
(setq p2 (cdr (nth (1- i) ent)) exitflag T)
(setq i (1+ i))
)
)
(setq p1 (trans p1 0 1) p2 (trans p2 0 1))
(if (< (distance pt p1) (distance pt p2)) (setq p p1) (setq p p2))
)
(t nil)
)
(Command "_.pline" p)
(while (/= (getvar "CMDNAMES") "")
(command pause)
)
(setq en2 (entlast))
(setq dump (getvar "cmdecho"))
(setvar "cmdecho" 0)
(if (= flag "LWPOLYLINE")
  (command "_.pedit" en "_j" en2 "" "")
  (command "_.pedit" en "_y" "_j" en2 "" "")
)
(setvar "cmdecho" dump)
)
)
)
)
)
(progn ;ELSE
(if (/= idump nil)
(progn
(if (/= (type iDump) 'LIST)
(princ (strcat "\nDer Befehl '" iDump "' existiert nicht!"))
(progn
(command "cmdecho" 1)
(Command "_.pline" iDump)
(while (/= (getvar "CMDNAMES") "")
(command pause)
)
)
)
)
)
)
)
(print)
)

------------------

[Diese Nachricht wurde von AsSchu am 25. September 2003 editiert.]

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