CAD坐标批量生成办法

在采矿设计图中，我们通常要通过一个已知点的坐标，推算出其他点的坐标。或是由一个坐标系，算出N个点的坐标，如果按老办法，用查询工具查出点到 XY轴的距离，再一点一点用计算器算出来，这样的效率会非常慢，而且随着计算次数的增加，出错的概率也非常大，现介绍些非常实用的方法，能提高我们的办事 效率，希望此分享能帮上些同行，或是办类似事的人。

方法一:

1、新建一个坐标系：工具-新建UCS-三点，确定原点O和XY轴。

2、校准：工具-查询-点坐标，任点一个点，看其坐标与新建的坐标是否一吻合，如果不合，再重新坐标系。

3、在命令一栏中输入pl，也就是多段线的命令，将我们要画的点的起点依次连接起来。

4、输入li命令，将3步骤的多段线给选择，再依次选择与多段线相交的线段（相交的点的坐标是我们要求的点的坐标，不求的点不用选）。

5、按下回车或空格键，此时要求的点的坐标就出来了。

此方法优点，方便速度快。缺点：如果选择线段交点出错时，导出的点会对不上顺序，适用于找点坐标不多的情况。

方法二：

复制下面代码：

(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、 打开记事本，粘贴以上代码，然后保存成 md.lsp

2、 打开CAD并加载这个小程序（在命令行输入ap，选择加载md.lsp程序），将md.lsp复制在support文件夹下后可自动加载。

使用方法：

1、新建一个坐标系：工具-新建UCS-三点，确定原点O和XY轴。

2、校准：工具-查询-点坐标，任点一个点，看其坐标与新建的坐标是否一吻合，如果不合，再重新坐标系。

3、输入md运行命令，输入桩数，再输入桩号，再选择点，完成后，保存CAD文件。此时，打开D盘你就会看到生成一个文件“桩号坐标值.xls”的Excel文件，打开excel文件，里面就有刚我们输入点的坐标值了。

优 点：适用于求多个点。  缺点：该台电脑得安有excel2007，我用wps2012共享版测试过，按有wps的电脑也可以打开生成的“桩号坐标值.xls”的Excel文件， 但打开时会提示错误对话框，也许是在用WPS自动生成“桩号坐标值.xls”时就出现错误的吧。