提取cad点坐标生成表格并至excel

提取cad点坐标生成表格并至excel

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

(defun c:md()

(setvar "cmdecho" 0)

(COMMAND ".UNDO" "BE")

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

(setq fp (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)

(repeat n

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

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

x (strcat "X=" (rtos (nth 0 p)))

y (strcat "Y=" (rtos (nth 1 p))))

(princ k fp)(princ "\t" fp)

(princ x fp)(princ "\t" fp)

(princ y fp)(princ "\n" fp))

(close fp)

(setvar "cmdecho" s))

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

(princ)

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

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

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

桩号 X坐标值 Y坐标值

k1 X= Y=

k2 X= Y=

k3 X= Y=

桩号 X坐标值 Y坐标值

1 X= Y=

2 X= Y=

3 X= Y=