Question

怎么把CAD里面的标注导入到EXCEL里面

Answer 1

(setq fp (open "e:/桩号坐标值.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选取节点！") y (strcat "Y=" (rtos (nth 0 p))) x (strcat "X=" (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程序）3、 输入md运行命令，输入桩数，再输入桩号，再选择点，完成后，保存CAD文件，关闭CAD，打开e盘你就会看到生成一个文件“桩号坐标值.xls”的Excel文件，打开，如下格式 桩号X坐标值 Y坐标值 k1 X=1073.205 Y=1028.341