施工经验提取c点坐标生成表格并至EXCEL

施工经验提取c点坐标生成表格并至E X C E L

The latest revision on November 22, 2020

提取c a d点坐标生成表格并至e x c e l

CAD坐标数据批量导出小工具

(defunc:md()

(setvar"cmdecho"0)

(COMMAND".UNDO""BE")

(command"-units""2""3""2""3""""")

(setqfp(open"d:/放样坐标值.xls""a")s(getvar"cmdecho")n(getint"\n请输入总放样坐标点数目！"))

(princ"放样坐标点"fp)(princ"\t"fp)

(princ"X坐标值"fp)(princ"\t"fp)

(princ"Y坐标值"fp)(princ"\n"fp)

(repeatn

(setqk(getstring"\n输入放样坐标点编号（如：K1）！")

p(getpoint"\n选取节点！")

x(strcat"X="(rtos(nth0p)))

y(strcat"Y="(rtos(nth1p))))

(princkfp)(princ"\t"fp)

(princxfp)(princ"\t"fp)

(princyfp)(princ"\n"fp))

(closefp)

(setvar"cmdecho"s))

(princ"\n提示：输入MD命令来运行本程序！")

(princ)

1、打开记事本，粘贴以上代码，然后保存成md.lsp

2、打开CAD并加载这个小程序（在命令行输入appload，选择加载md.lsp程序），将md.lsp复制在support文件夹下后可自动加载。

3、输入md运行命令，输入桩数，再输入桩号，再选择点，完成后，保存CAD文件，关闭CAD，打开D盘你就会看到生成一个文件“桩号坐标值.xls”的Excel文件，打开，如下格式

桩号X坐标值Y坐标值

k1X=1073.205Y=1028.341

k2X=2193.676Y=922.327

k3X=1752.278Y=595.802

桩号X坐标值Y坐标值

1X=877.972Y=1257.333

2X=2360.883Y=1257.333

3X=1578.266Y=281.999