社区 › AutoLISP/Visual LISP 编程技术 › 请教：如何提取多义线的顶点坐标，并把坐标保存在一个txt文件里？

skyahai 发表于 2011-8-2 23:23:34

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

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

vexation 发表于 2011-8-3 00:50:24

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

hqdwy 发表于 2024-2-17 18:54:33

(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)
)
初学，请指教。还不会加点号。

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