|
我的意思是如果我已知块的名称为"ABC",想取得块ABC在图的实体,即想通块名称来删除图中该块实体图形.
我现在的一个方法如下,但我感觉不是太好太快,有没更好的呢?
Dim n
Dim sset As AcadSelectionSet
n = SetForegroundWindow(aCADapp.hwnd)
Set sset = aCADdoc.SelectionSets.Add("SelectText")
sset.Clear
Dim Filtertype(0) As Integer, Filterdata(0) As Variant, Mode As Variant
Filtertype(0) = 0
Filterdata(0) = "BLOCK"
Mode = acSelectionSetAll
sset.Select Mode, Filtertype, Filterdata
Dim entry As AcadBlockReference
For Each entry In sset
If entry.Name = "ABC" Then entry.Delete
Next entry
sset.Delete
Set sset = Nothing
|
|