关于宏问题

steve_suich

如下代码：
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
( N: n% h' ?# K* H9 h% nSub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim swFeat As SldWorks.Feature
Dim swFeats() As SldWorks.Feature
ReDim Preserve swFeats(Part.GetFeatureCount())
Set swFeat = Part.FirstFeature
  U: z' e) k) q- |4 V( K3 C* X Dim i As Integer
4 I; K4 }: E( M$ ^( h4 } For i = 0 To Part.GetFeatureCount()
   Set swFeats(i) = swFeat.GetNextFeature
- C  J3 x) K2 x    If Not IsEmpty(swFeats(i)) Then
0 J7 ^1 ^, a, t3 K0 @     If swFeats(i).GetTypeName = "CutListFolder" Or swFeats(i).GetTypeName = "SubWeldFolder" Then
      ‘SetFeatureCustomProps swFeats(i)
     End If
* M  f" a7 M; J; n9 k   End If
+ x7 s3 A) F& v3 o; ~+ g   Set swFeat = swFeats(i)
  Next
End Sub
4 }- n5 E; g/ ^& ^; }
问题：当 swFeats(i)=nothing时， If Not IsEmpty(swFeats(i))判断无效，还继续执行。
请高人指点一下。谢谢！！

% h1 Z' d& Q# E5 D" X

lhl2008

你将Dim i As Integer以及后面的语句变为：
* T' I: ]% m; l) \. G- [8 B/ vDo While Not swFeat Is Nothing
    If "CutListFolder" = swFeat.GetTypeName Or "SubWeldFolder" = swFeat.GetTypeName Then
        'SetFeatureCustomProps swFeats(i)
' I- V: F' J- S8 O      
7 f5 ~, ]* Q2 ~4 g& }8 l    End If
    Set swFeat = swFeat.GetNextFeature
Loop
试一试！

steve_suich

lhl2008 发表于 2015-8-10 12:57
! L2 T0 A" F* j; O3 v9 y; A你将Dim i As Integer以及后面的语句变为：
: ^" U: ~1 A/ `% VDo While Not swFeat Is Nothing
    If "CutListFolder" = s ...

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