|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
如下代码：0 O1 D* b6 z, {: a
Dim swApp As Object8 b0 a8 D* E0 b4 X9 U
Dim Part As Object- v, j7 L7 l( _
Dim boolstatus As Boolean
/ P/ O! j' \0 x7 o& tDim longstatus As Long, longwarnings As Long% b7 L% s; h+ i) w/ m0 X8 t( W0 i
Sub main()9 A% d1 F1 _+ S! S1 j
Set swApp = Application.SldWorks0 F6 g& m& z* k* V8 i9 ~! ]
Set Part = swApp.ActiveDoc+ a" _1 z& |, @: X
Dim swFeat As SldWorks.Feature( z' Y; q2 b* j, I2 C' t4 L8 ~ D
Dim swFeats() As SldWorks.Feature
; Y5 w5 C5 ^6 T3 K! DReDim Preserve swFeats(Part.GetFeatureCount()); E4 `$ j1 N$ @) B2 O& ` ^; B- W
Set swFeat = Part.FirstFeature4 N% |0 ^/ F# ~' v& Y8 z
Dim i As Integer/ j4 R0 m+ x* i* d( z
For i = 0 To Part.GetFeatureCount()
& F$ O; Q" e; C9 c Set swFeats(i) = swFeat.GetNextFeature
9 Q& m" h' e9 N5 e9 n" { If Not IsEmpty(swFeats(i)) Then
4 P6 \) C) k; Q$ E9 s. T4 i If swFeats(i).GetTypeName = "CutListFolder" Or swFeats(i).GetTypeName = "SubWeldFolder" Then
! _% f3 x& ~8 e! _9 n ‘SetFeatureCustomProps swFeats(i)
( {1 D5 [, W5 q& d! J; I6 X End If $ I% Z% d& e9 R
End If; v/ E) R0 I4 K& W
Set swFeat = swFeats(i)
" D. U2 E1 Q0 W Next \1 K9 |7 x4 X- J D& u0 d
End Sub! A1 c( u0 P5 W1 J) e1 x1 G: R0 ?
3 E: s+ G% x# w7 {0 n$ u
问题：当 swFeats(i)=nothing时， If Not IsEmpty(swFeats(i))判断无效，还继续执行。
1 n- Y( U) K9 ~3 J! r- ]0 k请高人指点一下。谢谢！！
. \4 ]0 R) c% R1 O. {* L* ?. ^3 h7 b' L; R) D. A" g
|
|
发表于 2015-8-10 11:42:31
楼主