cad批量导出坐标

cad批量导出坐标

cad批量导出坐标的过程：

双击打开需要提取坐标的图形文件。在下面找到命令输入行，在命令行内，输入list命令。输入list后根据提示，选择对象。使用鼠标左键点击对象，按键盘上的回车，即可得到各点的坐标。

CAD文件中怎么就能把所有点的坐标批量导出转化成文本格式？

告诉你一个我常用的cad批量导出坐标的方法
第一步，把需要的坐标点用pl线连接成一条直线。
第二步，把这条直线选中，输入li，在弹出的文本窗口中出现了这条pl线的全部坐标。
第三步，把这些坐标复制到电子表格里面，再经过处理就得到你要的坐标了。

cad批量导出坐标

(defun c:zbsc ()
(setvar "cmdecho" 0)
(princ " 请选择导出点范围")
(setq xzj_1 (ssget))
(setq n (sslength xzj_1))
   (setq dat_file (getfiled "选择生成列表" "d:/data" "txt" 2))
   (setq ff (open dat_file "a"))
(repeat n 
(setq en1 (ssname xzj_1 (1- n)))
(setq n (1- n))
(setq en1_data (entget en1))
(setq a1 (assoc 10 en1_data))
(setq aax (cadr a1))
(setq aay (caddr a1))
(if (null (setq aaz (cadddr a1))) (setq azz 0) );如果没有Z坐标，那么Z坐标为0
(write_data)
)
   (close ff)
(print)
)
(defun write_data ()
(write-line (strcat (rtos aax) "," (rtos aay) "," (rtos aaz)) ff)
)
(alert "坐标文件已生成于d:/data.txt文件中")
(prin1)

声明： 我们致力于保护作者版权，注重分享，被刊用文章因无法核实真实出处，未能及时与作者取得联系，或有版权异议的，请联系管理员，我们会立即处理，本站部分文字与图片资源来自于网络，转载是出于传递更多信息之目的,若有来源标注错误或侵犯了您的合法权益，请立即通知我们(管理员邮箱：daokedao3713@qq.com)，情况属实，我们会第一时间予以删除，并同时向您表示歉意,谢谢!