《(施工经验)提取cad点坐标生成表格并至excel》由会员分享，可在线阅读，更多相关《(施工经验)提取cad点坐标生成表格并至excel（1页珍藏版）》请在金锄头文库上搜索。
1、提取提取 cad 点坐标生成表格并至点坐标生成表格并至 excelCAD 坐标数据批量导出小工具(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
2、 坐标值“ 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 命令来运行本程序！“)(pr
3、inc) 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.972 Y=1257.333 2 X=2360.883 Y=1257.333 3 X=1578.266 Y=281.999
