|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
, l7 t: K0 B; h' [+ _
]0 _ G. F( x- { u- M7 ^" _在网上找了二个删除属性的代码，现想合并成一个SW删除所有属性不知怎么修改，请大神指点一下谢谢！
$ L5 O, T' L8 n$ Y1 g* G5 M5 z. i9 {% S: v! i0 D. E9 a5 h! E$ P9 p" I; K% ?
- Dim swApp As Object& F! x) l5 o9 p9 C" n
- Sub main() '删除自定义属性
( p% t, |8 I+ ` l, K - Dim swApp As Object8 F$ d/ p7 M3 a; a* ~3 s% b1 i
- Dim swModel2 As SldWorks.ModelDoc2
' L0 a& G" M& M/ [6 v5 C7 \' e+ `( G - Dim vCustInfoNameArr2 As Variant4 Y5 d+ E$ v/ Z" C' f
- Set swApp = _
& i6 `( X' {% _/ C( G - Application.SldWorks( u, ~4 m0 u: C5 Z
- Set swModel2 = swApp.ActiveDoc' X/ o& H9 p( z) \* A+ C* A8 D
- vCustInfoNameArr2 = swModel2.GetCustomInfoNames" m' t- h4 y: }+ N
- If Not IsEmpty(vCustInfoNameArr2) Then2 Q5 S3 @1 T; @$ {
- For Each vCustInfoName2 In vCustInfoNameArr24 n$ x" J/ ?% f6 f6 v3 ?
- bRet = swModel2.DeleteCustomInfo(vCustInfoName2). k3 o* H5 m" I' l0 p
- Next0 Q: b- z; r: A# {# ~* w
- End If7 e, k2 Z: A! s% X4 U1 i& _
- End Sub
1 d& q: B. q" s# Q, I) I. l - % E1 f& N$ z+ t5 l3 m: x$ m
* A- i! B7 _' w9 ~8 D- h- Sub main() '删除所有配置所有属性; X' M6 d5 o* P2 }8 m
- Set swApp = Application.SldWorks
h' j! f% E. w% n0 a& Y - Set Part = swApp.ActiveDoc
6 E; j. i2 o* S4 Y3 l; M) R9 w; e - CurCFGname = Part.GetConfigurationNames% G" Y: d0 U9 a5 G, e4 Y
- CurCFGnameCount = Part.GetConfigurationCount
' \& `% P. |( Y- E - For i = 0 To CurCFGnameCount - 1
1 Y7 n" R' ^2 H# h9 ^( @( ^ - Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
* r% Y$ f* N# L' P - Vnamearr = CusPropMgr.GetNames
7 Y5 b% N, @( ~# e! k7 N# q - If Not IsEmpty(Vnamearr) Then. N1 [) J& G+ p# U5 F) R% Z9 |
- For Each Vnamearr2 In Vnamearr
; Y& W; M- v0 l: L - bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)1 O+ F" M8 Z* I- U% m% V, ^8 y
- Next
9 F( c8 S. a/ M* ?' y$ [# m. n' B; }* n - End If8 b* r( x2 d7 t- R
- Next
9 Q: _/ J6 W* ?+ \, u& h6 P - Set swApp = Application.SldWorks/ @& N1 K9 t5 B1 A5 r F {6 c2 k
- End Sub
! G% o9 x' ^. v9 h9 w& ~0 C! Q
" ?$ W2 w# i: K C* {8 i9 R& K- c& K, {+ A* P8 X
|
|
发表于 2020-2-27 13:37:03