情形一：将CAD中点的坐标导入到EXCEL表格中
①将下面的程序拷贝到记事本并另存为：getdata.lsp
②将生成的文件放进AUTO CAD安装文件夹中SUPPORT文件夹内 ③在AUTO CAD中工具>加载应用程序>getdata.lsp ④在AUTO CAD命令窗口输入getdata即可以进行数据导出程序，以此为导出结果文件EXCEL路径及文件名、维数 (defun setfile()
(setq f (getfiled \点坐标写入\ (setq ff (open f \)
(defun setcon() (initget \
(setq aa (getkword \请选择二维还是三维坐标(2)：[2/3]\ (cond
((= aa \点编号,X坐标,Y坐标\
((= aa \点编号,X坐标,Y坐标,Z坐标\ ((= aa nil) (write-line \点编号,X坐标,Y坐标\ ) )
(defun setpd() (setq n 1)
(while (/= n nil)
(setq p1 (getpoint \请选择需要标注的点:\ (if (= p1 nil) (setq n nil) (progn
(setq str2(strcat \ (setq n(+ 1 n))
(command \ (setq x (rtos (car p1)2 4)) (setq y (rtos (cadr p1)2 4)) (setq z (rtos (caddr p1)2 4)) (cond
((= aa \
((= aa \ ((= aa nil) (setq str1 (strcat str2 \ )
(write-line str1 ff) ) ) )
(close ff) )
(defun c:getdata()
(setvar \ (setfile) (setcon) (setpd) (princ) )
情形二：将EXCEL表格数据转换成CAD中的点
如果坐标文件XY，中间用逗号逗开，可直接复制全部坐标，再打开CAD，如果要把坐标转成CAD点，拾取画点命令，在命令行点击一下，右键，再粘帖，所有坐标就转换成CAD点；如果要把坐标转成CAD图形线段，拾取画多线的命令，在命令行点击一下，右键、粘帖，所有坐标就转换成CAD图形线条。
如果坐标文件分别在A列和B列，可在C列输入=A1&\回车，鼠标移到C1，出现黑十字时按住，往下拉，再复制该列，再按1的方法操作。 注意：测量坐标与CAD坐标的X、Y 相反。
相关推荐：
loading