这是我的看法，请采纳。
可能是版本不同，建议下载新版本试试。
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 " 请输入总桩数！ ")) (princ "桩号" fp)(princ " " fp) (princ "X坐标值" fp)(princ " " fp) (princ "Y坐标值" fp)(princ " " fp) (repeat n (setq k (getstring " 输入桩号（如：K1）！") p (getpoint " 选取节点！") x (strcat "X=" (rtos (nth 0 p))) y (strcat "Y=" (rtos (nth 1 p))))(princ k fp)(princ " " fp)(princ x fp)(princ " " fp)(princ y fp)(princ " " fp)) (close fp) (setvar "cmdecho" s)) (princ " 提示：输入 MD 命令来运行本程序！") (princ)1、 打开记事本，粘贴以上代码，然后保存成 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
