关于宏问题

steve_suich

如下代码：
Dim swApp As Object
Dim Part As Object
- M6 j  N" x! @4 m: J/ xDim boolstatus As Boolean
  u! B2 ^" b/ VDim longstatus As Long, longwarnings As Long
Sub main()
( ~, Z7 A7 M# O3 K6 o9 D$ _Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
! y& b% j) P' H0 ]7 \& m( hDim swFeat As SldWorks.Feature
5 ?; k# w1 `5 A, E$ }Dim swFeats() As SldWorks.Feature
' k8 x5 p- a& u6 A# JReDim Preserve swFeats(Part.GetFeatureCount())
Set swFeat = Part.FirstFeature
- ~2 p7 d8 p" ]/ k% j Dim i As Integer
For i = 0 To Part.GetFeatureCount()
   Set swFeats(i) = swFeat.GetNextFeature
# y1 G7 ^! r6 J+ l+ O    If Not IsEmpty(swFeats(i)) Then
     If swFeats(i).GetTypeName = "CutListFolder" Or swFeats(i).GetTypeName = "SubWeldFolder" Then
4 J' d5 E% j3 \7 {7 U+ V9 t1 \, a      ‘SetFeatureCustomProps swFeats(i)
     End If
: ^0 O& p" N1 x& F' s/ B( c1 R7 R, `   End If
   Set swFeat = swFeats(i)
' i7 ^/ C0 y% u8 i$ U$ i  k. Q  Next
End Sub

问题：当 swFeats(i)=nothing时， If Not IsEmpty(swFeats(i))判断无效，还继续执行。
5 B+ f) p) ~% y6 s) `请高人指点一下。谢谢！！
1 ?# X: E8 m: W5 E5 |+ {* u
4 B- u$ N+ u& o" h7 k- o

lhl2008

你将Dim i As Integer以及后面的语句变为：
Do While Not swFeat Is Nothing
    If "CutListFolder" = swFeat.GetTypeName Or "SubWeldFolder" = swFeat.GetTypeName Then
0 c+ O2 K0 \& T# o. ~& b, S9 `* w        'SetFeatureCustomProps swFeats(i)
! X9 z) T6 D3 Y# _6 h7 D' T      
    End If
& g+ P5 M6 p4 X  Y$ c    Set swFeat = swFeat.GetNextFeature
Loop
8 A% ^$ m. v/ \& |7 N. h试一试！

steve_suich

lhl2008 发表于 2015-8-10 12:57
你将Dim i As Integer以及后面的语句变为：
8 g3 N4 @5 U* }+ k% M! UDo While Not swFeat Is Nothing
    If "CutListFolder" = s ...

精简！！
2 d. ~5 e/ z+ _1 W4 C$ s+ s9 z没问题了。
) n% ?5 B" R3 J/ v谢谢！！！