关于宏问题

steve_suich

如下代码：
: N3 S  [: f. ~  Q, i" X4 D  W8 N8 }Dim swApp As Object
2 f, Y$ F9 H  @: IDim Part As Object
5 \& E3 J' q6 }3 |Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
* [6 |6 B( b4 {5 h& e+ zSet Part = swApp.ActiveDoc
Dim swFeat As SldWorks.Feature
Dim swFeats() As SldWorks.Feature
ReDim Preserve swFeats(Part.GetFeatureCount())
Set swFeat = Part.FirstFeature
4 j  m! O8 H; H) G. G4 f Dim i As Integer
# S8 U) q# i# e( K$ C; l For i = 0 To Part.GetFeatureCount()
- d' ?$ [$ A( D3 m* `( n3 w   Set swFeats(i) = swFeat.GetNextFeature
7 a; f0 J" ]5 S8 G. l    If Not IsEmpty(swFeats(i)) Then
     If swFeats(i).GetTypeName = "CutListFolder" Or swFeats(i).GetTypeName = "SubWeldFolder" Then
* }; p# b  F' r; e2 a# g      ‘SetFeatureCustomProps swFeats(i)
8 `! u, W; E( y5 f     End If
   End If
   Set swFeat = swFeats(i)
  Next
End Sub
9 i) v4 E8 L7 A7 p6 {% P) v+ x+ T8 R+ m
问题：当 swFeats(i)=nothing时， If Not IsEmpty(swFeats(i))判断无效，还继续执行。
请高人指点一下。谢谢！！

lhl2008

你将Dim i As Integer以及后面的语句变为：
Do While Not swFeat Is Nothing
/ L3 D. ]: C7 s/ F4 t: n, y    If "CutListFolder" = swFeat.GetTypeName Or "SubWeldFolder" = swFeat.GetTypeName Then
# s5 t5 _5 U+ Y+ }2 b6 w& N# B        'SetFeatureCustomProps swFeats(i)
" B+ d+ `8 _: ?& H: |; i      
    End If
    Set swFeat = swFeat.GetNextFeature
Loop
8 p) ]6 F9 ]6 t' |试一试！

steve_suich

lhl2008 发表于 2015-8-10 12:57
你将Dim i As Integer以及后面的语句变为：
  m7 l7 g) C( \8 @5 I6 t2 ^: BDo While Not swFeat Is Nothing
# L: F) W5 M# R' r' h) b6 X    If "CutListFolder" = s ...

精简！！
* e2 e; p, q# Z- X没问题了。
谢谢！！！