怎样提取CAD点坐标值并生成excel表格.doc

怎样提取CAD点坐标值并生成excel表格 下面是一个程序代码（蓝色部分） defun cmd setvar “echo“ 0 COMMAND “.UNDO“ “BE“ command “-units“ “2“ “3“ “2“ “3“ ““ ““ setq fp open “d/桩号坐标值.xls“ “a“ s getvar “echo“ n getint “\n请输入总桩数 “ princ “桩号“ fpprinc “\t“ fp princ “X坐标值“ fpprinc “\t“ fp princ “Y坐标值“ fpprinc “\n“ fp repeat n setq k getstring “\n输入桩号（如A1）“ p getpoint “\n在图形中相应位置拾取点“ x strcat “X“ rtos nth 0 p y strcat “Y“ rtos nth 1 p princ k fpprinc “\t“ fp princ x fpprinc “\t“ fp princ y fpprinc “\n“ fp close fp setvar “echo“ s princ “\n提示输入 MD 命令来运行本程序“ princ 第一步， 打开记事本，粘贴以上代码（蓝色部分），然后保存成文件名md.lsp 第二步， 打开CAD并加载这个小程序（在命令行输入appload，选择加载md.lsp程序），将md.lsp复制在support文件夹下后可自动加载。 第三步， 在CAD中的命令行输入md，输入桩数（你需要的坐标点一共有多少），再输入桩号和在图形上相应位置点击（从第一个桩号开始输入，每次输入一个桩号之后按回车键，再在图形上相应的位置点一下鼠标左键用来表示拾取点；然后再输入第二个桩号和拾取第二个桩号对应的图形上的位置。依此类推，一直把所有的桩号输完为止。那么多个桩号重复着同样的操作，头都晕了，怎样判断桩号输完了呢小窍门输完之后命令行只显示这个字样“命令”），完成后，保存CAD文件，关闭CAD，打开D盘你就会看到生成一个文件“桩号坐标值.xls”的Excel文件，打开，如下格式 桩号 X坐标值 Y坐标值 A1 X1073.205 Y1028.341 A2 X2193.676 Y922.327 A3 X1752.278 Y595.802 桩号 X坐标值 Y坐标值 1 X877.972 Y1257.333 2 X2360.883 Y1257.333 3 X1578.266 Y281.999 注如果大家不喜欢在生成的EXCEL表格中看到“桩号”等字眼，可以在原代码中把文字改成其他的文字