|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
如下代码：
& G2 N. \! U UDim swApp As Object
o! y" W: @4 B( G7 X# iDim Part As Object r" Y6 c g( Y+ n4 m
Dim boolstatus As Boolean4 G* C; A0 _/ I" t, ^2 L0 h
Dim longstatus As Long, longwarnings As Long( a: o! O4 `& c9 r
Sub main()
/ \9 f, V. ~+ X' Q1 pSet swApp = Application.SldWorks1 i5 L* j) D+ O5 I9 t& I
Set Part = swApp.ActiveDoc
- n: a$ P. j5 C$ |) H* a, a- [. j! CDim swFeat As SldWorks.Feature! b( y. ?" b# Q1 t {, J
Dim swFeats() As SldWorks.Feature+ @' L# b2 a5 u! c
ReDim Preserve swFeats(Part.GetFeatureCount())
' C1 m. k: F! F0 r1 vSet swFeat = Part.FirstFeature* G1 ?: Z+ X# w' D: Y8 V: I/ H
Dim i As Integer
( {6 {* N& H2 y; x! e For i = 0 To Part.GetFeatureCount()- \+ t7 b& a! G; P- d5 W9 c
Set swFeats(i) = swFeat.GetNextFeature
4 x+ `8 ^7 [7 w$ L5 @5 P5 H If Not IsEmpty(swFeats(i)) Then7 H6 Q( N3 y2 n, F2 q- b
If swFeats(i).GetTypeName = "CutListFolder" Or swFeats(i).GetTypeName = "SubWeldFolder" Then
# b- G H: r" U: N# Q2 q" V* F ‘SetFeatureCustomProps swFeats(i)
0 m+ d) h5 C1 H9 ~' \ End If 7 m; E3 y! V, V+ j
End If2 v% ?1 q! e9 r# ^% c
Set swFeat = swFeats(i)( L: I1 }2 e! S2 K2 L1 J' b
Next4 V& _' Y# N! e
End Sub
7 K& x- V3 B2 Y1 {! U/ R, J& H& M
& z3 n2 M: ~# H8 }/ L( ?( O问题：当 swFeats(i)=nothing时， If Not IsEmpty(swFeats(i))判断无效，还继续执行。
$ B8 H- O8 G, ?8 F0 Q! [- A4 I请高人指点一下。谢谢！！8 T( h! i9 z- F( K1 S0 n; {/ ]5 k1 [
, N4 R: _/ A, E& c4 H" F/ `
|
|
发表于 2015-8-10 11:42:31
楼主