It looks like you're new here. If you want to get involved, click one of these buttons!
I'm trying to display details about a lwpolyline at the vertices ... specifically describing them as Begin Curve, Point of Intersection, or End Curve but do not have any idea how to move forward.
Currently I'm inserting blocks at the vertices with a distance from the beginning without the description (see image) .... any help is appreciated :-)
(setq lVerts (vlax-get vPL "Coordinates"))
(setq nVerts (/ (length lVerts) 2))
(while (< nCurVert nVerts)
(setq pInsert (vlax-curve-getPointAtParam vPL nCurVert))
(setq nRot (angle '(0. 0. 0.) (vlax-curve-getFirstDeriv vPL (vlax-curve-getParamAtPoint vPL pInsert))))
(setq nRot (+ nRot (/ pi 2)))
(setq sStation (HASD:FORMATSTATION (+ nBsta (vlax-curve-getDistAtPoint vPL (vlax-curve-getClosestPointTo vPL pInsert)))))
(setq bref (vla-insertblock mspace pInsert sBlock nHScale nHScale nHScale nRot))