Here is a quick example of getting the coordinates of the vertices of a parcel segment.
I hope that this helps.
(defun c:DumpParcelSegments ()
(setq ss (ssget ":s" '((0 . "AECC_PARCEL_SEGMENT"))))
(if ss
(progn
(setq parcelSeg (vlax-ename->vla-object (ssname ss 0)))
(if (> (vlax-get-property parcelSeg 'Count) 0)
(progn
(setq i 1)
(vlax-for seg parcelSeg
(princ (strcat "\nSegment: " (itoa i)))
(printSegment seg)
(princ "\n")
(setq i (+ i 1))
)
)
)
)
)
(princ)
)
(defun printSegment (segment)
(setq startX (vlax-get-property segment 'StartX))
(setq startY (vlax-get-property segment 'StartY))
(setq endX (vlax-get-property segment 'EndX))
(setq endY (vlax-get-property segment 'EndY))
(princ (strcat "\nStartPoint: X: " (rtos startX 2 2) " Y: " (rtos startY 2 2)))
(princ (strcat "\nEndPoint: X: " (rtos endX 2 2) " Y: " (rtos endY 2 2)))
)
