CAD与EXCEL数据之间的转换

情形一：将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 相反。