自動插入座標圖塊綜合應用

這次與各位朋友分享綜合應用篇，底下範例結合了
屬性圖塊(Attdef)、功能變數(Field)、工具選項板(ToolPalettes)、Lisp程式、資料萃取(dataextraction)、自訂別名(acad.pgp)
算是一個很有趣、很活潑的範例主題，大家趕緊來練習吧~

1.之前有分享過 自訂座標圖塊，還有掛入工具選項板的方式


2.這回我把它結合使用LISP程式(Coordinate指令)，使用lisp幫助快速自動標註圓孔座標

註:可使用 單位UNITS指令 控制小數點，並透過 DIMSCALE系統變數 控制座標圖塊的整體比例。

3.另外可以搭配使用 資料萃取 dataextraction 產生表格喔~

※LISP檔及DWG檔,下載網址(回覆可見)，會員等級需為 一般會員 才有回覆文章權限。 <升等辦法點我>

---

掛入方式：
附件中有LISP檔及DWG檔，請參考以下說明:
步驟一:
將二個檔案放置在以下資料夾(椅2008版本為例)
C:\Program Files\AutoCAD 2008\support
步驟二:
Coordinate.lsp需要加載掛入到cui中，AutoCAD才能執行，掛入lisp方式請參考以下文章:

[影片]自訂CUI 載入LISP
https://www.autocad-tw.com/t3999-topic
步驟三:
掛入後就可以使用 Coordinate指令 執行自動標註圓孔座標。
註:如果覺得指令太長可以自訂別名(把指令名精簡)，方式如下:

[教學]自訂指令別名(PGP)_權限：初級會員(積分1)
https://www.autocad-tw.com/t703-topic

---

相關主題：有沒有可以顯示XY座標的功能變數？
https://www.autocad-tw.com/forum-f12/topic-t2753.htm

蘋果爸我搶頭香喔~~
謝謝您的分享
晚上來仔細看看~

希望我以前問的問題可以幫到很多人
尤其是從事土木、測量的人
這個功能幫助很大

學習中,下載來試試看謝謝蘋果爸分享.....

努力吺收中,雖然對我而言有些高難度....
謝謝蘋果爸敎導...3Q

感謝蘋果爸的用心分享
光看到影片就覺得值得了
不過自己的技術有待加強

繪圖有時會需要查詢座標~
此次自訂座標圖塊綜合應用這個功能很實用~
有很多分階段的功能影片分享~
感謝蘋果爸分享~

大家可以實際測試操作，有問題或是其他需求也可以提出來討論喔!

真受用，謝謝分享

實際測試後，很實用 。我還有用過用寫的自動標座標LISP，改天找到再分享

東婕 寫到:實際測試後，很實用 。我還有用過用寫的自動標座標LISP，改天找到再分享

謝謝東婕的分享~
使用LISP是最快最方便的，我之前與有使用過(各有優缺點啦)，不過他只是把座標文字寫在孔位旁，若要再將座標轉成表格可能就要費一般功夫改LISP(一般使用者可能沒辦法)~

另外使用圖塊的好處可以讓初學者自由運用，有其他需求只需要更改座標圖塊檔案即可。
優點:可使用 單位UNITS指令 控制小數點，並透過 DIMSCALE系統變數 控制座標圖塊的整體比例
PS:本範例提供的LISP程式只有插入圖塊動作。

以下改良座標圖塊只留下孔位(不秀出座標)，但是資料萃取表格時仍然可以有座標資訊:
步驟1:
進入圖塊編輯器 >> 選擇X座標跟Y座標 >> 開啟性質 >> 設定不可見


步驟2:
再來將屬性同步 >> 輸入AttSync指令 >> 選擇其中一個座標圖塊


步驟3:
同步完圖面只剩下編號 >> 再來使用資料萃取即可

謝謝蘋果爸的補充!!ACAD的便利性又多了一種

這個一定要學學
感謝蘋果爸的分享

看起來很好用,好好學學!

正在實際觀摩,操作中,原來是那麼不簡單?
感謝大大?

座標系統lisp真是太有幫助了，小弟在找人孔座標時都打字打個半死

正在找相關功能~~~感謝大大的分享~~~希望能解決目前工作上的困擾嚕!!CC

請問為何當我載入Coordinate指令~~選取完圓孔後~~我的物件鎖點指令裡面打勾的都不見了~~是哪裡出問題了呢??謝謝!!

claer 寫到:請問為何當我載入Coordinate指令~~選取完圓孔後~~我的物件鎖點指令裡面打勾的都不見了~~是哪裡出問題了呢??謝謝!!

因為程式沒有做除錯處理，也就是當不是正常步驟結束程式時，會造成物件鎖點值不見！
程式已經做了局部修改，請重新下載即可，測試玩請記得回報喔～

您好:當我選取完圓孔後~確定後出現函數被取消.....@@""什麼都沒有
上一次選取完雖然物件瑣點值雖然不見~~但至少座標有出來!!

claer 寫到:您好:當我選取完圓孔後~確定後出現函數被取消.....@@""什麼都沒有
上一次選取完雖然物件瑣點值雖然不見~~但至少座標有出來!!

圖檔中需要先有「座標圖塊」，請先insert附件中的dwg，再來執行程式即可。

酷斃了!!正需要!多謝!!!

看起來很好用謝謝

看了好久的LISP還是不知到自動的程式怎麼寫
先下載下來觀摩看看是否可修改成自己想要的!
感謝分享!

只能選圓形標註?柱子有四方形及多邊形...下載來試看看。謝謝。