;;获取多段线顶点坐标的代码片段
(if (setq S1 (entsel "\n请点选多段线对象:"))
    (progn
	(setq ENT    (entget (car S1))
	      N	     0
	      PT-LST '()
	)
	(while (/= (setq EI (nth N ENT)) NIL)
	    (if	(= (car EI) 10)
		(setq PT-LST (cons (cdr EI) PT-LST))
	    )
	    (setq N (1+ N))
	)
	(setq PT-LST (reverse PT-LST))
    )
)
(princ pt-lst)