在采矿设计图中，我们通常要通过一个已知点的坐标，推算出其他点的坐标。或是由一个坐标系，算出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”时就出现错误的吧。