快速提取Auto Cad中多段线坐标的方法

1、点击菜单“工具”-“Auto Lips”-“Visaul lisp编辑器”

3、在“未命名-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))

5、点击菜单“工具”-“Auto Lips”-“加载应用程序”

7、命令行看到提示加载成功，然后在命令行输入："tqzb"(不带引号) 执行刚才编写的程序

9、然后在图中选择多段线。可以单选也可以多选。选择完成后按“回车”键结束名命令。这时候，我们 选择的多端线的坐标就已经被保存在刚才我们指定的文件中了。