(施工经验)提取cad点坐标生成表格并至excel
- 格式:docx
- 大小:6.59 KB
- 文档页数:1
提取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、打开记事本,粘贴以上代码,然后保存成md.lsp
2、打开CAD 并加载这个小程序(在命令行输入appload ,选择加载md.lsp 程序),将md.lsp 复制在support 文件夹下后可自动加载。
3、输入md 运行命令,输入桩数,再输入桩号,再选择点,完成后,保存CAD 文件,关闭CAD,打开D盘你就会看到生成一个文件桩号坐标值.xls的Excel 文件,打开,如下格式桩号X 坐标值Y 坐标值
k1 X=1073.205 Y=1028.341
k2 X=2193.676 Y=922.327
k3 X=1752.278 Y=595.802
桩号X 坐标值Y 坐标值
1 X=877.97
2 Y=1257.333
2 X=2360.88
3 Y=1257.333