请教：如何提取多义线的顶点坐标，并把坐标保存在一个txt文件里？

skyahai

请教各位大虾：如何提取多义线的顶点坐标，并把坐标保存在一个txt文件里？txt文件格式为：
点号1（绘制多义线时的第一个顶点）
y坐标
x坐标
点号2（绘制多义线时的第二个顶点）
y坐标
x坐标
。。。
谢谢了！

vexation

网上搜索坐标标注，大把的。

hqdwy

(DEFUN c:ddzb()
        (setq e1 (entsel "\n选择一多义线："))
        (setq dxf (entget (car e1)))
        (setq file1 (open "d:\\多义线顶点XY.txt" "a"))
        (foreach p dxf
                (if (= 10 (car p))
                        (progn
                                (print (list (cadr p) (caddr p)) file1)
                        )       
                )
        )
        (close file1)
        (print "完成！")
       (princ)
)
初学，请指教。还不会加点号。