求助一个关于SelectOnScreen 的问题

yinzhiw

如何用SelectOnScreen方法来只选择块（块参照）

就是sstext.SelectOnScreen FilterType, FilterData

中的条件FilterType，FilterData　应该如何写

谢谢！

alin

Sub Example_SelectOnScreen()
    ' This example adds objects to a selection set by prompting the user
    ' to select ones to add.
   
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
   
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    dataValue(0) = "Insert"
   
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
   
    ' Add objects to a selection set by prompting user to select on the screen
    ssetObj.SelectOnScreen groupCode, dataCode
   
End Sub

yinzhiw

非常感谢版主alin的回答，我找了好久都了