关于宏问题

steve_suich

如下代码：
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
: b, F8 `. T3 x% Q. dDim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
9 G/ F% T; e- S5 N5 I! NDim swFeat As SldWorks.Feature
# {2 a1 `$ U- z, `$ [" L0 VDim swFeats() As SldWorks.Feature
5 [" A/ H" G' [- }9 M4 M. z) OReDim Preserve swFeats(Part.GetFeatureCount())
Set swFeat = Part.FirstFeature
Dim i As Integer
For i = 0 To Part.GetFeatureCount()
6 ^3 p6 i5 I( Q% v1 j   Set swFeats(i) = swFeat.GetNextFeature
$ {" ~. V% m2 @% I5 C- [    If Not IsEmpty(swFeats(i)) Then
     If swFeats(i).GetTypeName = "CutListFolder" Or swFeats(i).GetTypeName = "SubWeldFolder" Then
( ]+ Q# m2 v: u8 ^      ‘SetFeatureCustomProps swFeats(i)
     End If
   End If
; W6 B1 [' ?( r) B; A5 O8 \   Set swFeat = swFeats(i)
: b' I/ Y2 y# ~  C# }  Next
; M7 P1 o1 R, n* W+ w1 R7 F5 ^7 dEnd Sub
% o  O- i4 ]2 X% _; V+ D4 C
6 j0 M+ y: X1 k$ m3 ?问题：当 swFeats(i)=nothing时， If Not IsEmpty(swFeats(i))判断无效，还继续执行。
请高人指点一下。谢谢！！
: o; J: T, v1 D
/ c  U) N( R( ~6 g6 D' l- |

lhl2008

你将Dim i As Integer以及后面的语句变为：
4 }* Y9 Z5 e9 k+ I% a% @Do While Not swFeat Is Nothing
- l5 W# Z- U* t% h. A4 W! Y+ d    If "CutListFolder" = swFeat.GetTypeName Or "SubWeldFolder" = swFeat.GetTypeName Then
        'SetFeatureCustomProps swFeats(i)
      
    End If
: V: d" R5 c) q' M+ l! B    Set swFeat = swFeat.GetNextFeature
Loop
! F& J( |: A" _. C: {' ]: @2 @试一试！

steve_suich

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

. F" o5 M8 ]7 J8 f' Z7 T/ z5 q! G0 H精简！！
没问题了。
谢谢！！！