[VBA程序]：请问选择集过滤的时候对过滤类型这些变量名字？

xsquan

请问选择集过滤的时候对过滤类型这些变量名字有一定的限制吗？
例如filtertype，filterdata，因为我随便用了一个名字，好像不行！

lijiao

对变量的名字不会有特别的限制，可能在其他方面出现了问题。
可以把你的代码贴出来。

xsquan

On Error Resume Next
Set textsel = acadobj.ActiveDocument.SelectionSets("SStext")
textsel.Clear
If Err Then
Err.Clear
Set textsel = acadobj.ActiveDocument.SelectionSets.Add("SStext")
End If
Dim FILTERIN(0) As Integer
Dim FILTERLI(0) As Variant
Dim FILTERY1(0) As Integer
Dim FILTERA1(0) As Variant
acadobj.ActiveDocument.StartUndoMark
acadobj.ZoomWindow fs, fe
acadobj.ActiveDocument.EndUndoMark
FILTERIN(0) = 0
FILTERLI(0) = "TEXT"
FILTERY1(0) = 0
FILTERA1(0) = "TEXT"
'FILTERY1(0), FILTERA1(0) '
textsel.SelectByPolygon mode, dgxgroup, FILTERIN, FILTERLI
这个是可以的，但是如果换了filtery1（0），filtera1（0）就不行了，我也想是我的变量设置有问题，但是不知道错在那，有可能是很简单的一个字母

efan2000

没有完整的代码，也没办法测试，不过，问题可能出在On Error Resume Next这一句，如果使用了这个语句，那么之后的错误都将被屏蔽，而得不到正确的结果。因而，要先去掉这一句，然后再一步步的跟踪，找到错误的原因。

lijiao

最初由 xsquan 发布
[B]On Error Resume Next
Set textsel = acadobj.ActiveDocument.SelectionSets("SStext")
textsel.Clear
If Err Then
Err.Clear
Set textsel = acadobj.ActiveDocument.SelectionSets.Add("SStext")
End If
Dim... [/B]

就你的代码，稍作修改，在VBA中进行测试，没有问题。

2. 
   
3.   [FONT=courier new]
   
4. Public Sub test()
   
5. Dim Textsel As AcadSelectionSet
   
6. Dim FILTERIN(0) As Integer
   
7. Dim FILTERLI(0) As Variant
   
8. Dim Filtery1(0) As Integer
   
9. Dim Filtera1(0) As Variant
   
10. 
    
11. 
    
12. On Error Resume Next
    
13. Set Textsel = ThisDrawing.SelectionSets("SStext")
    
14. If Err <> 0 Then
    
15.    Err.Clear
    
16.    Set Textsel = ThisDrawing.SelectionSets.Add("SStext")
    
17. Else
    
18.    Textsel.Clear
    
19. End If
    
20. 
    
21. 'ThisDrawing.StartUndoMark
    
22. 'acadobj.ZoomWindow fs, fe
    
23. 'ThisDrawing.EndUndoMark
    
24. 
    
25. FILTERIN(0) = 0
    
26. FILTERLI(0) = "TEXT"
    
27. Filtery1(0) = 0
    
28. Filtera1(0) = "TEXT"
    
29. 
    
30. 'Textsel.SelectOnScreen FILTERIN, FILTERLI
    
31. Textsel.SelectOnScreen Filtery1, Filtera1
    
32. MsgBox Textsel.Count
    
33. End Sub
    
34.   [/FONT]
    

<br />   [FONT=courier new]<br /> Public Sub test()<br /> Dim Textsel As AcadSelectionSet<br /> Dim FILTERIN(0) As Integer<br /> Dim FILTERLI(0) As Variant<br /> Dim Filtery1(0) As Integer<br /> Dim Filtera1(0) As Variant<br /> <br /> <br /> On Error Resume Next<br /> Set Textsel = ThisDrawing.SelectionSets("SStext")<br /> If Err <> 0 Then<br />    Err.Clear<br />    Set Textsel = ThisDrawing.SelectionSets.Add("SStext")<br /> Else<br />    Textsel.Clear<br /> End If<br /> <br /> 'ThisDrawing.StartUndoMark<br /> 'acadobj.ZoomWindow fs, fe<br /> 'ThisDrawing.EndUndoMark<br /> <br /> FILTERIN(0) = 0<br /> FILTERLI(0) = "TEXT"<br /> Filtery1(0) = 0<br /> Filtera1(0) = "TEXT"<br /> <br /> 'Textsel.SelectOnScreen FILTERIN, FILTERLI<br /> Textsel.SelectOnScreen Filtery1, Filtera1<br /> MsgBox Textsel.Count<br /> End Sub<br />   [/FONT]<br />

xsquan

很谢谢你的回答和帮助，你还用了flash cam 做了，很好，非常感谢！我还有个问题想问问你，cad的地形图里面，等高线是用polyline画的，知道间隔5米的等高线的高程，elevation知道，但是5米之间的1米间隔的等高线的elevation是0，我想用程序只要我选取了这一批等高线，实现提高1米间隔的等高线的elevation，这样程序只能通过已经有的5米间隔等高线的elevation来获取一些信息了，不知道你们是用什么办法的？如果用手选，先输入开始高程，在选，这样比较麻烦，特别是很多等高线的时候！

lijiao

最初由 xsquan 发布
[B]很谢谢你的回答和帮助，你还用了flash cam 做了，很好，非常感谢！我还有个问题想问问你，cad的地形图里面，等高线是用polyline画的，知道间隔5米的等高线的高程，elevation知道，但是5米之间的1米间隔的等高线的ele... [/B]

非常抱歉，我是学机械的，你说的让我感到头晕。

gyl

照理说，每条等高线都应该有高程，一般用该条线的Z坐标表示。你为什么说只有计曲线有高程，而首曲线没有高程呢？若真如此，可以编一程序，每选一条等高线，然后输入高程，将该条线每个转折点的Z坐标都修改成输入值。这样需要对每条等高线逐一处理，比较麻烦；不过似乎没有更好的办法。

xsquan

等高线我们是知道它的高程， 但是有些地形图就是2维的，z坐标都是0，当然是通过等高线上面的文字可以知道他们的高程，但是一般都是5米或者更大的间距才有数据，而小间距象一米一根的就要数一数了，你说的那种方法还是要人工输入值，我是指有什么办法可以根据那些5米间隔的z或者elevation来自动修改一米的小间距的等高线的z或者elevation！