CAD坐标批量提取.docx
CAD坐标数据批量导出小工具
这个是利用cad二次开发编写的一个lisp，以下是程序，如果想修改坐标提取的的excel，可将下面红色背景的路径改一下
(defunc:md()(setvarcmdecho0)(COMMAND.UNDOBE)
(command-units2323)
(setqfp(opend:桩/号坐标值.xlsa)s(getvarcmdecho)n(getint\n
请输入总桩数！))
(princ桩号fp)(princ\tfp)(princX坐标值fp)(princ\tfp)(princY坐标值fp)(princ\nfp)(repeatn
(setqk(getstring\n输入桩号（如：K1）！)p(getpoint\n选取节点！)
(strcat(rtos(nth0p)))
(strcat(rtos(nth1p))))
(princ
k
fp)(princ
\t
fp)
(princ
x
fp)(princ
\t
fp)
(princ
y
fp)(princ
\n
fp))
(closefp)
(setvarcmdechos))
(princ\n提示：输入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