---

Hi !

mit

Code:

---

      (setq pl (vlax-ename->vla-object (car pl))
    pll (vlax-curve-getDistAtParam pl (vlax-curve-getEndParam pl))
    ptli (cons (vlax-curve-getStartPoint pl) ptli)
    ;;doppelte Zeile im Source
    ;;ptli (cons (vlax-curve-getStartPoint pl) ptli)
    ep (vlax-curve-getEndPoint pl)
    ;; Länge der Polylinie
    pldist (vlax-curve-getDistAtPoint pl ep)
    )

---

kann man die Länge von Polylinie pldist ermitteln.

Das Problem liegt nun da, wo es sich um geschlossene Polylinien handelt. Der letzte Punkt ist dann gleich dem ersten und somit wird die Länge mit 0 berechnet.

Hat einer von Euch eine andere Idee ?

Gruß Jan :-)

------------------
jan :-)

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

---

(vlax-get-property pl 'Length)

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

(if(and(setq OBJ(car(entsel)))
      (setq OBJ(vlax-ename->vla-object OBJ))
      (setq E (vlax-curve-getendparam OBJ))
  )
  (vlax-curve-getdistatparam OBJ E)
)

------------------
  - 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

---

danke !

------------------
jan :-)

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