过滤器的选择的问题

charlesli8

按理来说我这个没错误，但一运行显示 参数 filter list（位于selectonscreen中）无效    麻烦帮忙看看啊
'设置过滤器
    Dim filtertype(0 To 3) As Integer
    Dim filterdate(0 To 3) As Variant
    filtertype(0) = -4
    filterdate(0) = " <or "
    filtertype(1) = 0
    filterdate(1) = "lwpolyline"
    filtertype(2) = 0
    filterdate(2) = "line"
    filtertype(3) = -4
    filterdate(3) = " or > "
    ThisDrawing.Utility.Prompt "选择要偏移的多段线："
    SSet.SelectOnScreen filtertype, filterdate

zzyong00

SSet.SelectOnScreen filtertype, filterdate
filtertype,filterdate必须是变体variant,而不是数组，你再定义两个变体，把这两个数组赋值给定义的两个变体即可

wangshuping42

我现在有电脑测试了，发现楼主的问题就是在数组中多打了空格，按下面的就可以了

2. Sub Test()
   
3. 
   
4.     Dim sset As AcadSelectionSet
   
5.     Dim filtertype(0 To 3) As Integer
   
6.     Dim filterdate(0 To 3) As Variant
   
7.    
   
8.     Set sset = ThisDrawing.SelectionSets.Add("test")
   
9.     filtertype(0) = -4
   
10.     filterdate(0) = "<or"
    
11.     filtertype(1) = 0
    
12.     filterdate(1) = "lwpolyline"
    
13.     filtertype(2) = 0
    
14.     filterdate(2) = "line"
    
15.     filtertype(3) = -4
    
16.     filterdate(3) = "or>"
    
17.     ThisDrawing.Utility.Prompt "选择要偏移的多段线："
    
18.     sset.SelectOnScreen filtertype, filterdate
    
19.    
    
20. End Sub

Sub Test()<br /> <br />     Dim sset As AcadSelectionSet<br />     Dim filtertype(0 To 3) As Integer<br />     Dim filterdate(0 To 3) As Variant<br />     <br />     Set sset = ThisDrawing.SelectionSets.Add("test")<br />     filtertype(0) = -4<br />     filterdate(0) = "<or"<br />     filtertype(1) = 0<br />     filterdate(1) = "lwpolyline"<br />     filtertype(2) = 0<br />     filterdate(2) = "line"<br />     filtertype(3) = -4<br />     filterdate(3) = "or>"<br />     ThisDrawing.Utility.Prompt "选择要偏移的多段线："<br />     sset.SelectOnScreen filtertype, filterdate<br />     <br /> End Sub

wangshuping42

zzyong00

1. Public Sub ss()
   
2. Dim filtertype(0 To 3) As Integer
   
3.     Dim filterdate(0 To 3) As Variant
   
4.     filtertype(0) = -4
   
5.     filterdate(0) = "<or"
   
6.     filtertype(1) = 0
   
7.     filterdate(1) = "lwpolyline"
   
8.     filtertype(2) = 0
   
9.     filterdate(2) = "line"
   
10.     filtertype(3) = -4
    
11.     filterdate(3) = "or>"
    
12.     ThisDrawing.Utility.Prompt "选择要偏移的多段线："
    
13.     Dim ft As Variant, fd As Variant
    
14.     ft = filtertype: fd = filterdate
    
15.     Dim SSet As AcadSelectionSet
    
16.     ThisDrawing.SelectionSets("ss1").Delete
    
17.     Set SSet = ThisDrawing.SelectionSets.Add("ss1")
    
18.     SSet.SelectOnScreen ft, fd
    
19. End Sub
    

Public Sub ss()<br /> Dim filtertype(0 To 3) As Integer<br />     Dim filterdate(0 To 3) As Variant<br />     filtertype(0) = -4<br />     filterdate(0) = "<or"<br />     filtertype(1) = 0<br />     filterdate(1) = "lwpolyline"<br />     filtertype(2) = 0<br />     filterdate(2) = "line"<br />     filtertype(3) = -4<br />     filterdate(3) = "or>"<br />     ThisDrawing.Utility.Prompt "选择要偏移的多段线："<br />     Dim ft As Variant, fd As Variant<br />     ft = filtertype: fd = filterdate<br />     Dim SSet As AcadSelectionSet<br />     ThisDrawing.SelectionSets("ss1").Delete<br />     Set SSet = ThisDrawing.SelectionSets.Add("ss1")<br />     SSet.SelectOnScreen ft, fd<br /> End Sub<br />

charlesli8

zzyong00 发表于 2015-2-3 10:54

你写的这个运行起来可以  ft  和fd开不出来有啥用啊

wangshuping42

charlesli8 发表于 2015-2-3 21:52
你写的这个运行起来可以  ft  和fd开不出来有啥用啊

zzyong00的解释不对，你的写法是对的，就是多打了空格，见下图

charlesli8

嗯   多谢了 各位  领教

zzyong00

SelectOnScreen 方法
提示用户从屏幕上拾取对象。
语法
object.SelectOnScreen [FilterType][, FilterData]
Object  
    SelectionSet
     使用该方法的对象。

FilterType

     Variant[变体](整数数组); 仅用于输入; 可选项
    指定使用的过滤器类型的 DXF 组码。

FilterData

     Variant[变体](变体数组); 仅用于输入; 可选项
     过滤器的值。

-----------------------------

zzyong00

1. 另外：如果仅仅是选多种对象，只需要这样就行！
   
2. 
   
3. Public Sub asdf()
   
4. On Error Resume Next
   
5.     Dim filtertype(0) As Integer
   
6.     Dim filterdate(0) As Variant
   
7.     filtertype(0) = 0
   
8.     filterdate(0) = "lwpolyline,line,arc,circle"
   
9.     Dim ft As Variant, fd As Variant
   
10.     ft = filtertype: fd = filterdate
    
11.     Dim SSet As AcadSelectionSet
    
12.     ThisDrawing.SelectionSets("ss1").Delete
    
13.     Set SSet = ThisDrawing.SelectionSets.Add("ss1")
    
14.     SSet.SelectOnScreen ft, fd
    
15. End Sub
    

另外：如果仅仅是选多种对象，只需要这样就行！<br /> <br /> Public Sub asdf()<br /> On Error Resume Next<br />     Dim filtertype(0) As Integer<br />     Dim filterdate(0) As Variant<br />     filtertype(0) = 0<br />     filterdate(0) = "lwpolyline,line,arc,circle"<br />     Dim ft As Variant, fd As Variant<br />     ft = filtertype: fd = filterdate<br />     Dim SSet As AcadSelectionSet<br />     ThisDrawing.SelectionSets("ss1").Delete<br />     Set SSet = ThisDrawing.SelectionSets.Add("ss1")<br />     SSet.SelectOnScreen ft, fd<br /> End Sub<br />