Hello all!
I wish to can get all polyline vertex- and intersection points on line from 3dPolyline.
First I ask the polyline if it have "VERTEX"
(setq en (car (entsel "\nSelect Polyline ")))
(while (and (setq en (entnext en))
(setq edata (entget en))
(=(cdr(assoc 0 edata))"VERTEX")
)
)
)
Intersection points from terrain points (Gpt) to my ployline (vl-en) I get
(defun _sect ()
(vlax-curve-getClosestPointTo vl-en Gpt)
)
The vertex points I get with
(defun _polyV (en /)
(cdr (assoc 10 edata))
)
My Question: How can I get all points in a order
(pList '((vertex1 x y z) (vertex2 x y z) (section1 x y z) (section2 x y z) (vertex3 x y z) (section3 x y z) (vertex4 x y z) (section4 x y z)....))