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

tai550115 · 发表于 2010-6-4 19:54:00

用"功能選項板"做了一些簡單的"動態圖塊",把外部參考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正確名稱
謝謝!!