提取cad点坐标生成表格并至excel
CAD坐标数据批量导出小工具 (defun c:md()
(setvar \
(COMMAND \
(command \
(setq fp (open \放样坐标值.xls\请输入总放样坐标点数目！ \
(princ \放样坐标点\ (princ \坐标值\ (princ \坐标值\ (repeat n
(setq k (getstring \输入放样坐标点编号（如：K1）！\ p (getpoint \选取节点！\ x (strcat \ y (strcat \(princ k fp)(princ \(princ x fp)(princ \(princ y fp)(princ \ (close fp)
(setvar \
(princ \提示：输入 MD 命令来运行本程序！\ (princ)
1、 打开记事本，粘贴以上代码，然后保存成 md.lsp
2、 打开CAD并加载这个小程序（在命令行输入appload，选择加载md.lsp程序），将md.lsp复制在support文件夹下后可自动加载。
3、 输入md运行命令，输入桩数，再输入桩号，再选择点，完成后，保存CAD文件，关闭CAD，打开D盘你就会看到生成一个文件“桩号坐标值.xls”的Excel文件，打开，如下格式 桩号 X坐标值 Y坐标值 k1 X=1073.205 Y=1028.341 k2 X=2193.676 Y=922.327 k3 X=1752.278 Y=595.802 桩号 X坐标值 Y坐标值 1 X=877.972 Y=1257.333 2 X=2360.883 Y=1257.333 3 X=1578.266 Y=281.999