---

Hallo Leute,

versuche gerade die Punkte aus einer Angeglichenen 2D-Polylinie zu bekommen!

so bekomme ich die Stützpunkte von der 2D-Polylinie

(setq aws-PL (car (entsel ": Linie")))
(setq the-PL (vlax-ename->vla-object aws-PL))
(setq thelist (vlax-get-property the-PL 'coordinates))
(setq xy-thelist (vlax-safearray->list (variant-value thelist)))

möchte gerne alle Punkte von der Linie bekommen um eine Angenäherte Polylinie zu erstellen!

mfg
Gregor

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

---

na dann nimm  vlax-curve-getPointAtParam und lass den Parameter in der von dir gewünschten Genauigkeit von
vlax-curve-getStartParam bis vlax-curve-getEndParam laufen...

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hi CADmium,

leider find ich in der Hilfe "vlax-curve-getPointAtParam" nicht!

kanst du mir einen ansatz zeigen ?

   

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

---

so hab es mal so versucht und geht auch aber er nimmt immer nur jeden 2 Stüzpunkt ?

(defun C:PL-K ()
  (setq aws-PL (car (entsel ": Linie")))
  (setq the-PL (vlax-ename->vla-object aws-PL))
  (setq i 0)
  (command "_pline")
  (while (vlax-curve-getPointAtParam aws-PL i)
    (setq the-PL (vlax-curve-getPointAtParam aws-PL i))
    (setq i (+ i 1))
    (command the-PL)
    );(while (vlax-curve-getPointAtParam aws-PL i)
  (command "")
  );end of (defun C:PL-K ()

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

---

Zitat:

---

Original erstellt von GG-GREGOR:

leider find ich in der Hilfe "vlax-curve-getPointAtParam" nicht!

---

LISPeditor öffnen, F1 .. Autolispreference -> Autolispfunktions -> V Functions -> vlax-curve ....

und mit den Stichworten hätte man sicher auch goggle füttern können!

Zitat:

---

Original erstellt von GG-GREGOR:

kanst du mir einen ansatz zeigen ?

---

kann ich :

(if(and(setq PL(car(entsel "\Pl wählen: ")))
      (setq PL(vlax-ename->vla-object PL))
      (setq PARAM(vlax-curve-getstartparam PL))
      (setq ENDE (vlax-curve-getendparam  PL))
      (setq FUZZY 0.1)     
  )
  (progn
    (while (<= PARAM ENDE)
      (setq LISTE(cons(vlax-curve-getPointatparam PL PARAM) LISTE))
      (setq PARAM (+ PARAM FUZZY))
    )
    (reverse LISTE)
  )
)

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Super Danke !!!!!

   

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