|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
6 j& N/ e/ G0 j- O7 a0 n% R8 y+ Z. j
. M" q* `% \% K/ s* Y. ]4 G在网上找了二个删除属性的代码，现想合并成一个SW删除所有属性不知怎么修改，请大神指点一下谢谢！ ^/ z$ s4 N' c7 ]; q6 L
+ N2 }) Y% d* o; d' z
- Dim swApp As Object
, ?/ E2 g7 p& i# ]5 X! \3 M - Sub main() '删除自定义属性
- c; X: U8 s. \ - Dim swApp As Object. @1 k( o7 ^ m: B
- Dim swModel2 As SldWorks.ModelDoc2
8 H) M5 g9 y8 K5 v+ k" G$ B - Dim vCustInfoNameArr2 As Variant
4 ]5 o1 L: @0 i. k L' ~ l1 ` - Set swApp = _
d8 L5 m( y( s G& F$ y/ h+ C, v - Application.SldWorks0 c9 \& }3 V& C# a
- Set swModel2 = swApp.ActiveDoc Y9 j: w/ m( e: t
- vCustInfoNameArr2 = swModel2.GetCustomInfoNames
* K% a2 f. T4 y% h, s% a( c' _ - If Not IsEmpty(vCustInfoNameArr2) Then
4 h- z: t" w [0 k* X - For Each vCustInfoName2 In vCustInfoNameArr23 s7 q; t8 x0 ?/ m' U7 a
- bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
+ _/ v6 g) O+ Q3 T1 [9 U" t% b - Next4 r5 C: ]+ g# J2 I
- End If. H! L5 N9 p) I
- End Sub! P; m& s8 A% Q. c
" U, w, b- p4 a0 i% r- - Y; A$ y$ |* i5 |/ z' |, g
- Sub main() '删除所有配置所有属性
; a) V: R, V4 O5 K- C - Set swApp = Application.SldWorks ~# T9 ]- N/ }. q
- Set Part = swApp.ActiveDoc
1 W" u J1 B# n9 [5 I - CurCFGname = Part.GetConfigurationNames
5 q2 N: S; E" r' Z0 i* \ - CurCFGnameCount = Part.GetConfigurationCount- x6 t1 X: d3 M- o+ n
- For i = 0 To CurCFGnameCount - 1
$ {. }9 k& S) ]: _/ [ - Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
' ` t) J8 C- U6 N- d: U5 h2 ^, ~1 v - Vnamearr = CusPropMgr.GetNames+ \/ T( H/ ^7 r+ ~5 w/ k( Z O4 L
- If Not IsEmpty(Vnamearr) Then0 b/ i# c( S9 i( p* y j: @
- For Each Vnamearr2 In Vnamearr
+ @1 f- {: ]' g7 O8 } - bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2). w0 G, R y! ?' \: W
- Next" b1 m/ \8 `. Y* `3 g
- End If
. ~+ P* \* ]' }+ D; j - Next
% y5 Y# Q. Q2 _! o8 V2 b8 o - Set swApp = Application.SldWorks6 a6 B9 R4 _5 @& I. b& R% R
- End Sub
4 \" w5 z5 h# c2 l# f% G% D
0 y% q0 O# U T. c4 l/ C) w5 |
8 j4 D7 u# c# G9 W% s0 v |
|
发表于 2020-2-27 13:37:03