[求助]請教怎樣找出動態圖塊的AcadBlockReference正確名稱

tai550115

用"功能選項板"做了一些簡單的"動態圖塊",把外部參考dwg圖檔圖塊貼進新圖,

貼入若干圖塊後,想直接把圖面貼的"動態圖塊"刪除,

寫一vba

 

Dim blk As AcadBlock

Dim blkref As AcadBlockReference
Dim str As String

ListBox1.Clear
For Each blkref In ThisDrawing.ModelSpace
   ListBox1.AddItem blkref.Name
Next blkref

ListBox2.Clear
For Each blk In ThisDrawing.Blocks
   ListBox2.AddItem blk.Name
Next blk

奇怪!

在 ListBox1顯示的AcadBlockReference名稱

1.有很多匿名塊參照出現(*U3,*U42.....)

2.圖面出現的引用的AcadBlockReference.NAME, 反而沒看到

 

3.在 ListBox2顯示的AcadBlock名稱包含所有用到的圖塊名(和預期一樣)

   只是多出了少許匿名塊(*T14,*T43.....)

 

請教:怎樣找出使用中動態圖塊的AcadBlockReference正確名稱

謝謝!!

woaishuijia

AcadBlockReference对象的EffectiveName属性

tai550115

來論壇提問獲益良多,

盼望有天自己也具備

"取之明經,用之明經"的能耐

在論壇點提後進

 

感謝大大指教!!