[VBA程序]：怎么办？

wwwdong

有如下程序，原意图对一组尺寸进行处理，当尺寸值为100（〉99，<101）
时，将其删除
在程序执行时，遇到自动化错误
经查，缘由尺寸创建时非ALIGNED
而是水平，或垂直标注
单VBA没有提供对这样的尺寸的对象，我该怎么办
程序代码如下：
Public Sub test()
  Dim ss1 As AcadSelectionSet
  Dim mydim As AcadDimAligned
  Dim filtertype(0) As Integer
  Dim filterdata(0) As Variant
  filtertype(0) = 0
  filterdata(0) = "DIMENSION"
  Call Module10.bulidselction(ss1, 1) '创建选择集
  Dim i As Integer
    Call ss1.SelectOnScreen(filtertype, filterdata)
  For i = 0 To ss1.Count - 1
  
    Set mydim = ss1(i)
      
        If mydim.Measurement > 99 And mydim.Measurement < 101 Then
            mydim.Delete
        Else
        End If

Next i
End Sub

灯火

仔细阅读，找出差别

2. 
   
3. Public Sub test()
   
4.     Dim ss1 As AcadSelectionSet
   
5.     Dim mydim As AcadEntity
   
6.     Dim filtertype(0) As Integer
   
7.     Dim filterdata(0) As Variant
   
8.     filtertype(0) = 0
   
9.     filterdata(0) = "DIMENSION"
   
10.     Call Module10.bulidselction(ss1, 1)    '创建选择集
    
11.     Dim i As Integer
    
12.     Call ss1.SelectOnScreen(filtertype, filterdata)
    
13.     For i = 0 To ss1.Count - 1
    
14. 
    
15.         Set mydim = ss1(i)
    
16.         If mydim.ObjectName = "AcDbAlignedDimension" Or mydim.ObjectName = "AcDbRotatedDimension" Then
    
17.             If mydim.Measurement > 99 And mydim.Measurement < 101 Then
    
18.                 mydim.Delete
    
19.             Else
    
20.             End If
    
21.         End If
    
22. 
    
23.     Next i
    
24. End Sub
    
25. 
    

<br /> Public Sub test()<br />     Dim ss1 As AcadSelectionSet<br />     Dim mydim As AcadEntity<br />     Dim filtertype(0) As Integer<br />     Dim filterdata(0) As Variant<br />     filtertype(0) = 0<br />     filterdata(0) = "DIMENSION"<br />     Call Module10.bulidselction(ss1, 1)    '创建选择集<br />     Dim i As Integer<br />     Call ss1.SelectOnScreen(filtertype, filterdata)<br />     For i = 0 To ss1.Count - 1<br /> <br />         Set mydim = ss1(i)<br />         If mydim.ObjectName = "AcDbAlignedDimension" Or mydim.ObjectName = "AcDbRotatedDimension" Then<br />             If mydim.Measurement > 99 And mydim.Measurement < 101 Then<br />                 mydim.Delete<br />             Else<br />             End If<br />         End If<br /> <br />     Next i<br /> End Sub<br /> <br />

wwwdong

谢斑竹，后来我查阅了acad的帮助信息，
发现了AcDbRotatedDimension对象
我的解决方法如下：
Public Sub test()
  Dim ss1 As AcadSelectionSet
  Dim mydim As AcadDimAligned
  Dim mydim2 As AcadDimRotated
  Dim filtertype(0) As Integer
  Dim filterdata(0) As Variant
  filtertype(0) = 0
  filterdata(0) = "DIMENSION"
  Call Module10.bulidselction(ss1, 1) '创建选择集
  Dim i As Integer
    Call ss1.SelectOnScreen(filtertype, filterdata)
  For i = 0 To ss1.Count - 1
    If ss1(i).ObjectName = "AcDbAlignedDimension" Then
   
        Set mydim = ss1(i)
           
            If mydim.Measurement > 99 And mydim.Measurement < 101 Then
                mydim.Delete
            Else
            End If
    Else
        Set mydim2 = ss1(i)
        If mydim2.Measurement > 99 And mydim2.Measurement < 101 Then
                mydim2.Delete
            Else
            End If
    End If
Next i
End Sub