方法一：
告诉你一个我常用的cad批量导出坐标的方法
第一步，把需要的坐标点用pl线连接成一条直线。
第二步，把这条直线选中，输入li，在弹出的文本窗口中出现了这条pl线的全部坐标。
第三步，把这些坐标复制到电子表格里面，再经过处理就得到你要的坐标了。
7
方法二：
CAD坐标数据批量导出小工具
(defun c:md()
(setvar \"cmdecho\" 0)
(COMMAND \".UNDO\" \"BE\")
(command \"-units\" \"2\" \"3\" \"2\" \"3\" \"\" \"\")
(setq fp (open \"d:/桩号坐标值.xls\" \"a\") s (getvar \"cmdecho\") n (getint \"\\n请输入总桩数！ \"))
(princ \"桩号\" fp)(princ \"\\" fp)
(princ \"X坐标值\" fp)(princ \"\\" fp)
(princ \"Y坐标值\" fp)(princ \"\\n\" fp)
(repeat n
(setq k (getstring \"\\n输入桩号（如：K1）！\")
p (getpoint \"\\n选取节点！\")
x (strcat \"X=\" (rtos (nth 0 p)))
y (strcat \"Y=\" (rtos (nth 1 p))))
(princ k fp)(princ \"\\" fp)
(princ x fp)(princ \"\\" fp)
(princ y fp)(princ \"\\n\" fp))
(close fp)
(setvar \"cmdecho\" s))
(princ \"\\n提示：输入 MD 命令来运行本程序！\")
(princ)
1、 打开记事本，粘贴以上代码，然后保存成
2、 打开CAD并加载这个小程序（在命令行输入appload，选择加载程序），将复制在support文件夹下后可自动加载。
3、 输入md运行命令，输入桩数，再输入桩号，再选择点，完成后，保存CAD文件，关闭CAD，打开D盘你就会看到生成一个文件“桩号坐标值.xls”的Excel文件，打开，如下格式
桩号
X坐标值
Y坐标值
k1
X=
Y=
k2
X=
Y=
k3
X=
Y=
桩号
X坐标值
Y坐标值
1
X=
Y=
2
X=
Y=
3
X=
Y=
