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 坐标值 “ fp)(
2、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、 打开记事
3、本,粘贴以上代码,然后保存成 md.lsp2、 打开 CAD 并加载这个小程序(在命令行输入 appload,选择加载 md.lsp程序),将 md.lsp 复制在 support 文件夹下后可自动加载。3、 输入 md 运行命令,输入桩数,再输入桩号,再选择点,完成后,保存CAD 文件,关闭 CAD,打开 D 盘你就会看到生成一个文件“桩号坐标值.xls” 的Excel 文件,打开,如下格式桩号 X 坐标值 Y 坐标值k1 X=1073.205 Y=1028.341k2 X=2193.676 Y=922.327k3 X=1752.278 Y=595.802桩号 X 坐标值 Y 坐标值1 X=877.972 Y=1257.3332 X=2360.883 Y=1257.3333 X=1578.266 Y=281.999