[急！]高手请进！如何选择集选择标注？用遍历等其他方式也行！

alan_911lj

我想在VB中操作只选择标注，请问标注应该也是实体吧？该如何定义过滤器？急求！！也可加我的QICQ：64405458，多谢！！！！ 请问选择半径标注用以下过滤器可以吗?FilterType应该设成什么值？设成0还是其他什么值？多谢！！！！ FilterType = 0
FilterData = "dimradial"
sset.SelectOnScreen FilterType, FilterData

mccad

用Dim*来做过滤器的图元名称

alan_911lj

请问选择半径标注用以下过滤器可以吗?FilterType应该设成什么值？多谢！！！！ FilterType = 0
FilterData = "dimradial"
sset.SelectOnScreen FilterType, FilterData

雪山飞狐_lzh

alan_911lj发表于2004-4-20 17:00:00请问选择半径标注用以下过滤器可以吗?

自己试试不就行了，帮助上都有说明么 dispbbs.asp?boardID=4&ID=19667&page=1

ft630712

autocad vba 选择集过滤器问题  
以下代码运行不正常
Sub aa()
On Error GoTo errcontrol
  
    '创建选择集
    Set FilterSet = ThisDrawing.SelectionSets.Add("xxx")
   
    Dim FilterType(0 To 1) As Integer
    Dim FilterData(0 To 1) As Variant
    '设置过滤器类型
    FilterType(0) = 0
    FilterType(1) = 0
    '设置过滤数据
    FilterData(0) = "line"
    FilterData(1) = "arc"
    '使用过滤器,由用户在屏幕上选择
    FilterSet.SelectOnScreen FilterType, FilterData
   
   

errcontrol:
  ThisDrawing.SelectionSets("xxx").Delete

End Sub
而这段代码却运行正常，
Sub aa()
On Error GoTo errcontrol
  
    '创建选择集
    Set FilterSet = ThisDrawing.SelectionSets.Add("xxx")
   
    Dim FilterType(0 ) As Integer
    Dim FilterData(0 ) As Variant
    '设置过滤器类型
    FilterType(0) = 0
        '设置过滤数据
    FilterData(0) = "line"
      '使用过滤器,由用户在屏幕上选择
    FilterSet.SelectOnScreen FilterType, FilterData
errcontrol:
  ThisDrawing.SelectionSets("xxx").Delete

End Sub
那我想同时选择两种对象怎样写代码