你好，有以下幾種方法供你參考：

第一

1、把要匯出點位座標的點，用pline方式連線起來。

2、在CAD命令列輸入list命令，選擇開始用pline方式畫出的多線段，回車。

3、在彈出的list對話方塊中會詳細顯示點位的資訊，如果點沒有顯示完全，繼續回車，直到所有的點均顯示為止。

4、copy第三步顯示的資訊進TXT或者其實格式的文件，替換掉不需要的文字，這個時候就是純的座標資料了。儲存。

5、CAD座標和測量座標的X、Y是相反的。如果測量軟體只支援xy格式的點，那麼就需要把第4步儲存的檔案的xy互換下位置，

即把CAD中的X換為測量座標的Y，把CAD的Y換為測量座標的X。方法是用EXCEL開啟第4步儲存的檔案，交換X、Y即可。

第二

CAD

座標資料批次匯出小工具

(defunc:md()

(setvar"cmdecho"0)

(COMMAND".UNDO""BE")

(command"-units""2""3""2""3""""")

(setqfp(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)

(repeatn

(setqk(getstring"\n

輸入樁號（如：

K1

）

！

")

p(getpoint"\n

選取節點！

")

x(strcat"X="(rtos(nth1p)))

y(strcat"Y="(rtos(nth0p))))

(princkfp)(princ"\t"fp)

(princxfp)(princ"\t"fp)

(princyfp)(princ"\n"fp))

(closefp)

(setvar"cmdecho"s))

(princ"\n

提示：輸入

MD

命令來執行本程式！

")

(princ)

1

、

開啟記事本，貼上以上程式碼，然後儲存成

md.lsp

2

、

開啟

CAD

並載入這個小程式

（在命令列輸入

appload

，

選擇載入

md.lsp

程式）

，

將

md.lsp

複製在

support

資料夾下後可自動載入

(cad2006

不支援自動載入）

。

3

、

輸入

md

執行命令，輸入樁數，再輸入樁號，再選擇點，完成後，儲存

CAD

檔案，關

閉

CAD

，開啟

D

盤你就會看到生成一個檔案

“

樁號座標值

.xls”

的

Excel

檔案，開啟，如下格式

樁號

X

座標值

Y

座標值

k1X=1073.205Y=1028.341

k2X=2193.676Y=922.327

k3X=1752.278Y=595.802

樁號

X

座標值

Y

座標值

1X=877.972Y=1257.333

2X=2360.883Y=1257.333

3X=1578.266Y=281.999