关于宏问题

steve_suich · 发表于 2015-8-10 11:42:31

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

如下代码：
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))判断无效，还继续执行。
请高人指点一下。谢谢！！

lhl2008 · 发表于 2015-8-10 12:57:19

你将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
试一试！

steve_suich · 发表于 2015-8-10 14:22:10

lhl2008 发表于 2015-8-10 12:572 [: }- H8 K- H* \3 @6 C, A
你将Dim i As Integer以及后面的语句变为：& X" e8 h- I* M' G3 e
Do While Not swFeat Is Nothing
7 d2 S5 Q" A2 L! a( h D If "CutListFolder" = s ...

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

		自动登录	找回密码
密码			注册

通知

[求助] 关于宏问题

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块