---

Hallo Rabbit,

ich weiß nicht, ob ich dich richtig verstanden habe. Anbei dennoch mal ein Schnipsel-Code, mit dem du eine PL zeichnen kannst.

Code:

---

(defun c:myPLINE (/ SPT EPT ZPT ptli PL)
  (setq SPT (getpoint "\nStartpunkt:")
EPT (getpoint "\nEndpunkt:")
ZPT SPT
)
  (command "_.PLINE" SPT EPT "")
  (setq PL (entlast))
  (while (setq ZPT(getpoint ZPT "\nWeg Zwischenpunkt:"))
    (entdel PL)
    (setq ptli (cons ZPT ptli))
    (command "_.PLINE" SPT)
    (mapcar 'command ptli)
    (command EPT "")
    (setq PL (entlast))
    )
  )

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

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

---

Wie wäre es denn, wenn du ersteinmal die pl erstellst, dir diese dann per (entlast) vornimmst und sie in gleichgroße Teile teilst. Entweder per bruch, oder besser punkte im abstand auf dem linearen Objekt berechnen lässt und eine neue pl mit diesen Stützpunkten zeichnen lässt. Dann die alte löschen lassen - fertig.

Der Vorteil wäre immer : du könntest den Startpunkt immer frei bestimmen und es funktioniert auch

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo Rabbit,

dann versuch es mal mit diesem Code, der teilt dir die gezeichnete Linie.

Code:

---

(defun c:myPLINE (/ SPT EPT ZPT ptli PL ABST istABST)
  (setq SPT (getpoint "\nStartpunkt:")
EPT (getpoint "\nEndpunkt:")
ZPT SPT
ABST 35.0
)
  (command "_.PLINE" SPT EPT "")
  (setq PL (entlast))
  (while (setq ZPT(getpoint ZPT "\nWeg Zwischenpunkt:"))
    (entdel PL)
    (setq ptli (cons ZPT ptli))
    (command "_.PLINE" SPT)
    (mapcar 'command (reverse ptli))
    (command EPT "")
    (setq PL (entlast))
    )
  (setq istABST 0.0
PL_lengtht (vlax-get-property (setq PL (vlax-ename->vla-object PL)) 'length))
  (while (< (+ istABST ABST) PL_lengtht)
    (setq istABST (+ istABST ABST)
  ZPT (vlax-curve-getPointAtDist PL istABST)
  ptli (cons ZPT ptli)
  )
    );while
  (setvar "OSMODE" 0)
  (command "_PLINE")
  (mapcar 'command
  (mapcar 'cdr
  (cons (cons 0.0 SPT)
(append
  (vl-sort (mapcar '(lambda (P)
      (cons (vlax-curve-getParamAtPoint PL P) P)
      )
  ptli
  )
  (function (lambda (PA1 PA2)
      (< (car PA1) (car PA2))
      )
    )
  )
  (list (cons (vlax-curve-getEndParam PL) EPT))
  )
)
  ))
  (command "")
  (vla-erase PL)
  (princ)
  )

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

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