[知識]AutoCAD篩選功能及自動標註!

由 **Tiger&蘋果爸** 2010-01-14, 10:07

在一張圖形內有30個圓,尺寸均不相同,在不知情況下要如何去快速知道尺寸相同的各有多少,而不用一個個去標註,再來數數量,因為這樣很讓費時間

依你的需求有很多方法可達成，可運用AutoCAD本身提供的指令，不過需要一點技巧運用，而使用AutoLISP程式是最快的方法。

※※提供以下方法供你參考，適用於 AutoCAD 2000 以上版本，有問題請再提※※
方法一: LIST指令
利用 LIST指令顯示選取物件的資料庫資訊，需要在加入下列語法。
(SSGET "X" '((0 . "CIRCLE")))
操作步驟如下:

代碼:: 指令: LIST .....{Enter} 選取物件: (SSGET "X" '((0 . "CIRCLE"))) .....{Enter} <Selection set: cd> 5 找到選取物件: .....{Enter} CIRCLE 圖層:「0」空間: 模型空間處理碼 = 7f5 中心點 , X= 297.8348 Y= 64.4391 Z= 0.0000 半徑 9.0000 圓周 56.5487 面積 254.4690 CIRCLE 圖層:「0」空間: 模型空間處理碼 = 7f4 中心點 , X= 280.2779 Y= 63.8542 Z= 0.0000 半徑 8.0000 圓周 50.2655 面積 201.0619

方法二: QSELECT 指令 QDIM 指令
QSELECT 指令根據過濾準則來建立選集 → 過濾圓選集
QDIM 指令快速建立標註 → 半徑(R)
動態操作步驟如下:
[知識]AutoCAD篩選功能及自動標註! G0033a

方法三: AutoLISP程式
自定程式指令 AutoQDIM 自動化圓半徑標註
動態操作步驟如下:
[知識]AutoCAD篩選功能及自動標註! G0033b

下載自動化圓半徑標註程式：
;;;;;;;;;;;;;;;;;;;;;AutoCAD 指南;;;;;;;;;;;;;;;;;;;;;
;;;;;http://tw.club.yahoo.com/clubs/AutoCADGUIDE/;;;;;
;;;;;;;;;;;;2007/03/26/ ATSAI CAD 2007;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;版權所有翻印必究;;;;;;;;;;;;;;;;;;;
(DEFUN C:AutoQDIM ()
(SETVAR "CMDECHO" 0)
(SETQ OLDLAYEAR (GETVAR "CLAYER"))
(SETQ S1 (SSGET "X" '((0 . "CIRCLE"))))
(COMMAND "LAYER" "M" "S-DIM" "" "Qdim" S1 "" "R" 0)
(SETVAR "CLAYER" OLDLAYEAR)
(PROMPT "\n***自動化圓標註完成***")
(princ)
)

由 **id66fion** 2010-01-14, 10:55

這讓我想起之前我有寫過一支LISP, 把圖面中的線或聚合線快速標上,對齊式標柱和旋轉式標柱
看到圓也這麼做..讓我覺得也有人跟我想的一樣,想把標柱這件事,變的更快更簡單.

由 **Lily** 2010-01-14, 16:10

太神奇了，對於不會LISP的我真的很羨慕.

由 **IRENE5288** 2010-01-14, 16:34

篩選功能及自動標註真的非常好用，感謝了！

由 **Tiger&蘋果爸** 2010-01-14, 16:38

id66fion 寫到:這讓我想起之前我有寫過一支LISP, 把圖面中的線或聚合線快速標上,對齊式標柱和旋轉式標柱
看到圓也這麼做..讓我覺得也有人跟我想的一樣,想把標柱這件事,變的更快更簡單.

你的程式是不是和使用QDIM指令一樣呢!!

由 **linyo** 2010-01-14, 17:40

蘋果爸您好
對於上述的方法一跟方法二；已用過，但是因為工程圖裡這兩個方法較沒效率，很想學學LISP 程式的自動標註，不曉得蘋果爸能否讓我檢視一下呢？感謝您耶！

由 **Tiger&蘋果爸** 2010-01-14, 17:45

linyo 寫到:蘋果爸您好
對於上述的方法一跟方法二；已用過，但是因為工程圖裡這兩個方法較沒效率，很想學學LISP 程式的自動標註，不曉得蘋果爸能否讓我檢視一下呢？感謝您耶！

※已上本帖隱藏的LISP程式，需要回復主題後才可以瀏覽檢視※
所以你已經可以看得見囉~

由 **DARDAR** 2010-01-14, 19:28

增加知識中,謝謝蘋果爸分享...

由 **id66fion** 2010-01-14, 20:42

Tiger&蘋果爸寫到:
id66fion 寫到:這讓我想起之前我有寫過一支LISP, 把圖面中的線或聚合線快速標上,對齊式標柱和旋轉式標柱
看到圓也這麼做..讓我覺得也有人跟我想的一樣,想把標柱這件事,變的更快更簡單.
你的程式是不是和使用QDIM指令一樣呢!!

老實說我是看見你的作法才知道QDIM這各指令三條線

後來我試了 QDIM 也很好用
不過比較適合單一物件時
如果圖面有 10組聚合線,要一次標柱時 ,QDIM 的10組高度是不是會再同一個位置?
還是有我還沒試出來的方式可以做到分別在每組起點計算標柱高度?

我的方法是可以依每個物件的起點來計算標柱高度
簡略的說:
如果是"聚合線"就依掣點來找標柱的每個點
如果是"線"就利用起點與端點找標柱的點

不過我沒有寫的非常便利
判斷式的部分我還沒有非常熟析
所以每次我需要改變在上方標柱或標柱在下方時
我都直接回LISP裡改成我要的方向
這LISP我還在持續發展中
而且目前正在想可以標弧長的方式
只是一直還找不到解決方法
有機會可以分享在討論區裡嬤?
因為我不知道哪個區可以討論有關LISP的困擾....