CAD与EXCEL数据之间的转换.

情形一:将CAD中点的坐标导入到EXCEL表格中
①将下面的程序拷贝到记事本并另存为：getdata.lsp
②将生成的文件放进AUTO CAD安装文件夹中SUPPORT文件夹内
③在AUTO CAD中工具〉加载应用程序＞getdata.lsp
④在AUTO CAD命令窗口输入getdata即可以进行数据导出程序,以此为导出结果文件EXCEL路径及文件名、维数
(def un setfile(
(setq f (getfiled "\n 点坐标写入""c:\\" "csv" 1
(setq ff (ope n f "a"
(def un setc on(
(in itget "2 3"
(setq aa (getkword '请选择二维还是三维坐标(2:[2/3]"
(cond
((=aa "2" (write-line "点编号,X 坐标，丫坐标"ff
((=aa "3" (write-line "点编号,X 坐标，丫坐标,Z 坐标"ff
((=aa nil (write-line "点编号,X 坐标，丫坐标"ff
(def un setpd(
(setq n 1
(while (/= n nil
(setq pl (getpoint "\n请选择需要标注的点：" (if (= pl nil
(setq n nil
(prog n
(setq str2(strcat "pt" (rtos n 2 0
(setq n(+ 1 n
(comma nd ".text" pl ...... s tr2
(setq x (rtos (car p12 4
(setq y (rtos (cadr p12 4
(setq z (rtos (caddr p12 4
(cond
((=aa "2" (setq strl (strcat str2 "," x "," y ((=aa "3" (setq strl (strcat str2 "," x "," y "," z ((=aa n il (setq strl (strcat str2 "," x "," y (write-line strl ff
(close ff
(defu n c:getdata(
(setvar "cmdecho" 0
(setfile
(setc on
(setpd
(pri nc
情形二:将EXCEL表格数据转换成CAD中的点
如果坐标文件XY,中间用逗号逗开，可直接复制全部坐标，再打开CAD,如果要把坐标转成CAD点,拾取画点命令，在命令行点击一下，右键，再粘帖，所有坐标就转换成CAD点;如果要把坐标转成CAD图形线段，拾取画多线的命令，在命令行点击一下右键、粘帖，所有坐标就转换成CAD图形线条。

如果坐标文件分别在A列和B列可在C列输入=A1 &","&B1,回车，鼠标移到C1,出现黑十字时按住，往下拉，再复制该列，再按1的方法操作。

注意:测量坐标与CAD坐标的X、Y相反。