Auto Cad
记事本
点击菜单“工具”-“Auto Lips”-“Visaul lisp编辑器”
然后在弹出的编辑器菜单中新建程序
在“未命名-1'窗口输入如下代码:(defun c:tqzb (/) (setq cm (getvar 'cmdecho')) (setvar 'cmdecho' 0) (if (setq wjm (getfiled '请指定要保存的坐标文件' 'C:\Users\huya21\Desktop' 'txt' 1)) (if (setq ssa (ssget '((0 . 'LWPOLYLINE')))) (progn (setq fff (open wjm 'w') n (sslength ssa) i 0 no 0 ) (repeat n (setq dxf (entget (ssname ssa i)) i (1+ i) ptb (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 10)) dxf)) ptb (mapcar '(lambda(x)(trans x 0 1)) ptb) ) (foreach pt ptb (setq no (1+ no)) (write-line (strcat ;(itoa no) ',' (rtos (car pt) 2 3) ',' (rtos (cadr pt) 2 3) ) fff ) ) ) (close fff) (princ (strcat '\n坐标已存入\'' wjm '\'中')) ) ) ) (setvar 'cmdecho' cm) (princ))
然后点击菜单 ”文件“-”另存为“。在弹出出口中选择保存该程序位置并且设置程序文件名。保存后关闭”Visual Lips '编辑器,返回Auto CAD程序.
点击菜单“工具”-“Auto Lips”-“加载应用程序”
选择刚才保存的程序文件,然后点击“加载”按钮
命令行看到提示加载成功,然后在命令行输入:'tqzb'(不带引号) 执行刚才编写的程序
输入需要保存坐标的文件名以及保存位置(坐标文件将会以txt格式文件保存)
然后在图中选择多段线。可以单选也可以多选。选择完成后按“回车”键结束名命令。这时候,我们 选择的多端线的坐标就已经被保存在刚才我们指定的文件中了。
如果程序执行不成功。可以换一个版本的CAD。以上代码也可以粘贴到系统自带的“记事本”工具,保存后更改后缀名为.lsp。然后再执行。效果一样。
提取的坐标以当前图纸中的坐标系为准。