关于宏问题

steve_suich

如下代码：
Dim swApp As Object
+ c2 ~4 m4 E" h3 g! kDim Part As Object
  ]# t" A# F: m4 R: w% QDim boolstatus As Boolean
" I& F+ v8 F8 x- h3 _: ]0 |Dim longstatus As Long, longwarnings As Long
Sub main()
6 C# M6 F  o6 U, ]Set swApp = Application.SldWorks
' c5 U' }" V* L6 S9 S, N6 ~5 SSet Part = swApp.ActiveDoc
7 }( _- [2 `; ^1 }2 nDim swFeat As SldWorks.Feature
Dim swFeats() As SldWorks.Feature
ReDim Preserve swFeats(Part.GetFeatureCount())
: n8 a+ Z* i! _% RSet swFeat = Part.FirstFeature
Dim i As Integer
  X0 w- p2 U' r/ S6 `! C For i = 0 To Part.GetFeatureCount()
   Set swFeats(i) = swFeat.GetNextFeature
    If Not IsEmpty(swFeats(i)) Then
     If swFeats(i).GetTypeName = "CutListFolder" Or swFeats(i).GetTypeName = "SubWeldFolder" Then
; I" c( Q, c. ~2 P3 W      ‘SetFeatureCustomProps swFeats(i)
     End If
   End If
   Set swFeat = swFeats(i)
0 `# G3 g) d3 n' ?  Next
; c0 r6 J; O" m9 i2 M7 K4 kEnd Sub
. z/ H( I) y6 {8 M9 e7 d
问题：当 swFeats(i)=nothing时， If Not IsEmpty(swFeats(i))判断无效，还继续执行。
请高人指点一下。谢谢！！
* n6 |, R  V' k0 B# |
" [; `$ h1 Q/ Q! n

lhl2008

你将Dim i As Integer以及后面的语句变为：
Do While Not swFeat Is Nothing
& }: e1 [1 F$ R& i# p3 o- }4 j    If "CutListFolder" = swFeat.GetTypeName Or "SubWeldFolder" = swFeat.GetTypeName Then
        'SetFeatureCustomProps swFeats(i)
      
    End If
    Set swFeat = swFeat.GetNextFeature
Loop
7 y. i  a5 {' [: Q3 r8 ^1 q试一试！

steve_suich

lhl2008 发表于 2015-8-10 12:57
你将Dim i As Integer以及后面的语句变为：
Do While Not swFeat Is Nothing
    If "CutListFolder" = s ...

精简！！
没问题了。
谢谢！！！