关于宏问题

steve_suich

如下代码：
9 E- R6 R# z- D: w) yDim swApp As Object
0 x, p$ z  ?+ Z# N  J3 ]Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
4 x1 ~- V9 a9 i+ KSet Part = swApp.ActiveDoc
Dim swFeat As SldWorks.Feature
9 R  v7 b- Q; y; \Dim swFeats() As SldWorks.Feature
ReDim Preserve swFeats(Part.GetFeatureCount())
. ^1 V8 u4 o7 C5 m  m: wSet swFeat = Part.FirstFeature
Dim i As Integer
For i = 0 To Part.GetFeatureCount()
* |" g) C' s0 f' P" [$ z8 A   Set swFeats(i) = swFeat.GetNextFeature
4 k% c0 N: m( e7 E    If Not IsEmpty(swFeats(i)) Then
     If swFeats(i).GetTypeName = "CutListFolder" Or swFeats(i).GetTypeName = "SubWeldFolder" Then
      ‘SetFeatureCustomProps swFeats(i)
     End If
   End If
. l/ i% v. d% ?" a4 A, l   Set swFeat = swFeats(i)
  Next
End Sub

4 y5 m' ?# b$ K0 W8 F/ K4 l) l3 X% ^问题：当 swFeats(i)=nothing时， If Not IsEmpty(swFeats(i))判断无效，还继续执行。
1 z1 P# p9 b) E1 U( d请高人指点一下。谢谢！！

lhl2008

你将Dim i As Integer以及后面的语句变为：
Do While Not swFeat Is Nothing
    If "CutListFolder" = swFeat.GetTypeName Or "SubWeldFolder" = swFeat.GetTypeName Then
( c( [3 M, {3 W4 s: F        'SetFeatureCustomProps swFeats(i)
      
    End If
. V6 i2 V* X/ P, W: i" l$ V5 D4 ]    Set swFeat = swFeat.GetNextFeature
2 W  S+ j' S: d, o* iLoop
试一试！

steve_suich

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

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