关于宏问题

yuchaoxl

如下代码：
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub 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
Dim i As Integer
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
‘SetFeatureCustomProps swFeats(i)
End If
End If
Set swFeat = swFeats(i)
Next
End Sub
问题：当 swFeats(i)=nothing时， If Not IsEmpty(swFeats(i))判断无效，还继续执行。
请高人指点一下。谢谢！！

646063

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

beyondwave

你将Dim i As Integer以及后面的语句变为：
Do While Not swFeat Is Nothing
    If "CutListFolder" = swFeat.GetTypeName Or "SubWeldFolder" = swFeat.GetTypeName Then
        'SetFeatureCustomProps swFeats(i)
      
    End If
    Set swFeat = swFeat.GetNextFeature
Loop
试一试！