cad坐标导出方法

c a d坐标导出方法本页仅作为文档封面，使用时可以删除
This document is for reference only-rar21year.March
方法一：
告诉你一个我常用的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") 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)(princ y fp)(princ "\n" fp)) (close fp) (setvar "cmdecho" s)) (princ "\n 提示：输入 MD 命令来运行本程序！") (princ)
1、打开记事本，粘贴以上代码，然后保存成
2、打开CAD并加载这个小程序（在命令行输入appload，选择加载程序），将复制在support文件夹下后可自动加载。

3、输入md运行命令，输入桩数，再输入桩号，再选择点，完成后，保存CAD 文件，关闭CAD，打开D盘你就会看到生成一个文件“桩号坐标值.xls”的Excel
文件，打开，如下格式
桩号
X坐标值
Y坐标值
k1
X=
Y=
k2
X=
Y=
k3
X=
Y=
桩号
X坐标值Y坐标值1
X=
Y=
2
X=
Y=
3
X=
Y=。