(施工经验)提取cad点坐标生成表格并至excel

提取cad点坐标生成表格并至excelCAD坐标数据批量导出小工具(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选取节点！)x(strcatX=(rtos(nth0p)))y(strcatY=(rtos(nth1p))))(princkfp)(princ\tfp)(princxfp)(princ\tfp)(princyfp)(princ\nfp))(closefp)(setvarcmdechos))(princ\n提示：输入MD命令来运行本程序！)(princ)1、打开记事本，粘贴以上代码，然后保存成md.lsp2、打开CAD并加载这个小程序（在命令行输入appload，选择加载md.lsp程序），将md.lsp复制在support文件夹下后可自动加载。3、输入md运行命令，输入桩数，再输入桩号，再选择点，完成后，保存CAD文件，关闭CAD，打开D盘你就会看到生成一个文件“桩号坐标值.xls”的Excel文件，打开，如下格式桩号X坐标值Y坐标值k1X=1073.205Y=1028.341k2X=2193.676Y=922.327k3X=1752.278Y=595.802桩号X坐标值Y坐标值1X=877.972Y=1257.3332X=2360.883Y=1257.3333X=1578.266Y=281.999