1、方法一：告诉你一个我常用的 cad 批量导出坐标的方法第一步，把需要的坐标点用 pl 线连接成一条直线。第二步，把这条直线选中，输入 li，在弹出的文本窗口中出现了这条 pl 线的全部坐标。第三步，把这些坐标复制到电子表格里面，再经过处理就得到你要的坐标了。7方法二：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“)
2、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)(prin
3、c y fp)(princ “n“ fp) (close fp)(setvar “cmdecho“ s)(princ “n 提示：输入 MD 命令来运行本程序！“)(princ)1、 打开记事本，粘贴以上代码，然后保存成 md.lsp2、 打开 CAD 并加载这个小程序（在命令行输入 appload，选择加载 md.lsp 程序），将 md.lsp 复制在 support 文件夹下后可自动加载。3、 输入 md 运行命令，输入桩数，再输入桩号，再选择点，完成后，保存 CAD文件，关闭 CAD，打开 D 盘你就会看到生成一个文件“桩号坐标值.xls”的Excel 文件，打开，如下格式桩号X 坐标值Y 坐标值k1X=1073.205Y=1028.341k2X=2193.676Y=922.327k3X=1752.278Y=595.802桩号X 坐标值Y 坐标值1X=877.972Y=1257.3332X=2360.883Y=1257.3333X=1578.266Y=281.999
