---

Hi

Wie bekomme ich den Scheitelpunkt z einer 3D Polylinie?

Code:

---

(defun :c-Poly ( / obj_data )
(setq obj_data (entget (car (entsel))))
(princ (cdr (assoc ?? obj_data)))
(princ)
)

---

Danke für eure Hilfe

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

---

in rudimentär good old Style so :

(defun c:Poly? ( / obj DATA )
  (setq obj(car (entsel)))
  (while (and(setq OBJ (entnext OBJ))
             (=(cdr(assoc 0 (entget OBJ)))"VERTEX")  
          )
      (princ "\n")
      (princ (cdr (assoc 10 (entget OBJ))))
  )
  (princ "\n")
  (princ)
)

ActivX - getcoordinates und vlax-curve bieten noch mehr Möglichkeiten.
z.B.
(defun c:PL? (/ PL INDEX PLLIST) 
  (vl-load-com)
  (if(and(setq PL(car(entsel "\nPolylinie wählen:")))
        (setq PL(vlax-ename->vla-object PL))
        (setq INDEX -1)
        (repeat (fix(1+(vlax-curve-getendparam PL)))
          (setq PLLIST(cons (vlax-curve-getpointatparam PL (setq INDEX (1+ INDEX))) PLLIST))
        )
    )
    (foreach P PLLIST
      (princ "\n")(princ P)
    )
  )
  (princ)
)

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

---

Vielen Dank Cadmium. 

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