|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
如下代码：
+ s" x$ I' k8 Z# r% ]Dim swApp As Object
; R% [7 p7 [* O7 E# i# S" V: rDim Part As Object
3 ?% @# b' B; |. G5 s) UDim boolstatus As Boolean
- t, U# Y% E7 u+ S; U( w" f0 VDim longstatus As Long, longwarnings As Long
8 \- d3 P" }) x! Z; s% vSub main()
# v) m% G4 w' v3 l1 A2 m9 ~Set swApp = Application.SldWorks
* y* V! s# k4 z/ uSet Part = swApp.ActiveDoc& ~& Z+ ]5 I- \$ P/ J6 u- {3 d; r
Dim swFeat As SldWorks.Feature5 ^6 x4 W) X5 r# w
Dim swFeats() As SldWorks.Feature. ~0 G( k s$ [8 r/ M/ _
ReDim Preserve swFeats(Part.GetFeatureCount())
1 F! [: }5 Q" j( q jSet swFeat = Part.FirstFeature8 W( w" K4 k5 f' V/ _6 I2 s6 J9 H; C
Dim i As Integer
% X0 {( E1 ?- N4 \! a/ c- ]6 K9 S For i = 0 To Part.GetFeatureCount()
+ D q; x# W1 k Set swFeats(i) = swFeat.GetNextFeature
# |" g5 I& f" m; ]$ G, A If Not IsEmpty(swFeats(i)) Then! t$ _8 @! y1 O7 Z. [- Y
If swFeats(i).GetTypeName = "CutListFolder" Or swFeats(i).GetTypeName = "SubWeldFolder" Then# x) n& T' d% m
‘SetFeatureCustomProps swFeats(i)& W7 b n7 m, w* d4 [
End If 1 i6 [: Y7 ^2 o7 p1 l1 V8 w& S1 h
End If
- P& U$ [) a/ S1 d% Q" T: R Set swFeat = swFeats(i)
! E8 }' J! [, A" ?0 z0 ?8 `5 v" ^ Next% p0 P+ v' d5 h
End Sub7 C+ n7 @5 Z f# F4 m; P2 }
, |! [) b4 ]1 [0 ^( j问题：当 swFeats(i)=nothing时， If Not IsEmpty(swFeats(i))判断无效，还继续执行。
- l+ [+ ?6 Q I: Z- ~6 X- E& Q请高人指点一下。谢谢！！
6 p, `$ U# s [. _+ f( z4 E9 ~0 Z2 @" }! l- V
|
|
发表于 2015-8-10 11:42:31
楼主