Accessing vertices of polyline

[Anonymous]

Hello, this might be very basic question, but I couldn't find simple example code. 😞

I have a polyline as below,

I want to access each vertices on this polyline by AutoCAD lisp.

Could you show me a simple code for doing this?

[pbejse · Accepted solution]

---

@Anonymous wrote:

I want to access each vertices on this polyline by AutoCAD lisp.

---

Indeed its basic. get the list of vertices and do waht with it?

(setq ss   (entget (car (Entsel "\nSelect Polyline")))
        pt_lst (mapcar
                 'cdr
                 (vl-remove-if-not '(lambda (x) (= (car x) 10)) ss)))

Do you need the z coordinates as well?

(setq e (car (Entsel "\nSelect Polyline")))    
(repeat (setq p (1+ (fix (setq p (vlax-curve-getEndParam e)))))
(setq l (cons (vlax-curve-getPointAtParam e (setq p (1- p))) l))
)

HTH