alan_911lj 发表于 2004-4-19 18:18:00

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

本帖最后由 作者 于 2004-4-20 17:13:26 编辑 <br /><br /> 我想在VB中操作只选择标注，请问标注应该也是实体吧？该如何定义过滤器？急求！！也可加我的QICQ：64405458，多谢！！！！



请问选择半径标注用以下过滤器可以吗?<FONT face="" color=#ff0000>FilterType应该设成什么值？设成0还是其他什么值？多谢！！！！ </FONT>









<FONT color=#000080>FilterType = 0<BR>FilterData = "dimradial"<BR>sset.SelectOnScreen FilterType, FilterData</FONT>

mccad 发表于 2004-4-19 22:29:00

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

alan_911lj 发表于 2004-4-20 17:00:00

请问选择半径标注用以下过滤器可以吗?<FONT color=#000080>FilterType应该设成什么值？多谢！！！！</FONT>





<FONT color=#000080>FilterType = 0<BR>FilterData = "dimradial"<BR>sset.SelectOnScreen FilterType, FilterData</FONT>

雪山飞狐_lzh 发表于 2004-4-20 21:40:00

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


<BR>自己试试不就行了，帮助上都有说明么


<A href="dispbbs.asp?boardID=4&amp;ID=19667&amp;page=1" target="_blank" >dispbbs.asp?boardID=4&amp;ID=19667&amp;page=1</A></FONT>

ft630712 发表于 2008-9-28 20:54:00

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
那我想同时选择两种对象怎样写代码
页: [1]
查看完整版本: [急！]高手请进！如何选择集选择标注？用遍历等其他方式也行！