|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
5 x' j }! _* d9 ~2 r$ h( \( |2 t- b5 }: b! o- U# J
在网上找了二个删除属性的代码，现想合并成一个SW删除所有属性不知怎么修改，请大神指点一下谢谢！' L; E2 f' A( }3 x# F" E5 ?
+ D4 Q9 l8 P+ W7 z# k- Dim swApp As Object% S7 ^# l$ A" q- S, R& l
- Sub main() '删除自定义属性- \( g: s+ {4 ` ~$ q6 Q! U
- Dim swApp As Object5 o6 o% d7 g. M `" e
- Dim swModel2 As SldWorks.ModelDoc2
. L* Y8 w8 q h# u - Dim vCustInfoNameArr2 As Variant
7 \6 _% H' b, Q/ D - Set swApp = _6 r) d+ l/ T" y0 t% Y, a
- Application.SldWorks
: I! R7 T6 A$ c1 G - Set swModel2 = swApp.ActiveDoc2 W. q. O0 }( @4 |* ^ S, t
- vCustInfoNameArr2 = swModel2.GetCustomInfoNames2 a3 r, ~% }# A
- If Not IsEmpty(vCustInfoNameArr2) Then
9 Q% ?; n9 X0 F; W - For Each vCustInfoName2 In vCustInfoNameArr2
5 J# |. d/ m6 z8 I - bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
6 R0 g# C& J: _: o* I& v - Next6 T v! N7 e8 `& V6 S
- End If
1 P; g; }$ | B - End Sub3 s6 a5 C% F; Y: b% o }0 A
0 n$ \0 g2 J& o2 d% E
, T7 O( i( V7 \2 M0 Y7 y: u5 ~% v- Sub main() '删除所有配置所有属性8 S2 c- \$ D* ]6 s
- Set swApp = Application.SldWorks K) b, `9 b( ]: B" B- r0 C* p, U
- Set Part = swApp.ActiveDoc
1 |0 t+ S) V- {( p! e+ w - CurCFGname = Part.GetConfigurationNames
- z0 V( w# p2 L: K& r9 } - CurCFGnameCount = Part.GetConfigurationCount1 `. B5 A q, ~2 t% f
- For i = 0 To CurCFGnameCount - 1
' s- U3 l: C/ N: P& T& O' [ - Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
" v+ g+ ]- c9 @# y* N% z1 f9 Y - Vnamearr = CusPropMgr.GetNames/ D% e# s S" o& y: B; [
- If Not IsEmpty(Vnamearr) Then X# V; r( ?6 B7 Q' e9 i' s
- For Each Vnamearr2 In Vnamearr
7 H8 O8 c3 E% M' r7 ? - bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
) p, F& M, y7 G7 ~9 I Y - Next# s9 Q" W- }& F+ I2 l
- End If
: v! L5 M; z0 b# C/ a) f - Next
) [% W, I3 O1 o" i1 B - Set swApp = Application.SldWorks
& v! b: t$ M) e2 W7 s) k6 k - End Sub7 T8 L, Y, |7 @0 c7 u8 H
4 W' E# ?8 q3 x; I8 G3 C
. O* W6 { |+ |0 M2 M7 V* Z) K |
|
发表于 2020-2-27 13:37:03