1、点击菜单“工具”-“Auto Lips”-“Visaul lisp编辑器”
2、然后在弹出的编辑器菜单中新建程序
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))
4、然后点击菜单 ”文件“-”另存为“。在弹出出口中选择保存该程序位置并且设置程序文件名。保存后关闭”Visual Lips "编辑器，返回Auto CAD程序.
5、点击菜单“工具”-“Auto Lips”-“加载应用程序”
6、选择刚才保存的程序文件，然后点击“加载”按钮
7、命令行看到提示加载成功，然后在命令行输入："tqzb"(不带引号) 执行刚才编写的程序
8、输入需要保存坐标的文件名以及保存位置（坐标文件将会以txt格式文件保存）
9、然后在图中选择多段线。可以单选也可以多选。选择完成后按“回车”键结束名命令。这时候，我们 选择的多端线的坐标就已经被保存在刚才我们指定的文件中了。
10、双击打开对应的坐标文件，就可以看到坐标已经提取成功。可以通过更改改文件后缀名为.csv格式就可以使用EXCEL 软件编辑数据了。
