SW删除所有属性

yh2008 · 发表于 2020-2-27 13:37:03

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

在网上找了二个删除属性的代码，现想合并成一个SW删除所有属性不知怎么修改，请大神指点一下谢谢！

Dim swApp As Object: R- E9 P& c* h0 M: Q0 G
Sub main() '删除自定义属性; w x& J6 i5 T1 u' s2 V7 J; z
Dim swApp As Object/ [4 ~: \$ R, M/ s
Dim swModel2 As SldWorks.ModelDoc2+ z3 m8 O6 y8 w. ^7 j' r
Dim vCustInfoNameArr2 As Variant
; O: y$ s9 x2 c" Z/ Y$ y$ l
Set swApp = _
* m8 Q. O( r- j: ?
Application.SldWorks
: _; Y4 m& A6 p |8 J) F: T" I% |
Set swModel2 = swApp.ActiveDoc( F& Q. g4 t8 X' H5 v7 T
vCustInfoNameArr2 = swModel2.GetCustomInfoNames1 h- }3 U4 |) p7 |, K
If Not IsEmpty(vCustInfoNameArr2) Then. p7 [) f* X( R& }" E
For Each vCustInfoName2 In vCustInfoNameArr2
; S' k- O5 l; b
bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
2 ] n8 L; e* @+ X" f4 p/ P
Next& b+ r# _; m7 E# S1 i$ p y F V
End If
! r d0 i D# m
End Sub* t; f1 a) q0 M$ \$ d/ o* Y
2 C( ]2 y$ [8 t
" i5 C/ ^ o n* L+ L2 L
Sub main() '删除所有配置所有属性3 [. ~' ?- j( U1 y2 H
Set swApp = Application.SldWorks$ T0 q0 d6 I2 x* z9 t8 y9 I
Set Part = swApp.ActiveDoc4 W0 H( m$ K1 x! n1 S% d$ p x4 w$ L. H
CurCFGname = Part.GetConfigurationNames
' @8 I E, }4 v
CurCFGnameCount = Part.GetConfigurationCount3 I3 k) T" u H" d9 j7 h3 m
For i = 0 To CurCFGnameCount - 18 t+ P$ K) e/ t0 }
Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
) _6 t9 _$ v# v. J
Vnamearr = CusPropMgr.GetNames
8 x: h/ a" F0 U0 Y
If Not IsEmpty(Vnamearr) Then6 W; _7 b) V9 J7 @0 r+ Q
For Each Vnamearr2 In Vnamearr: ^/ w& l g' M [6 M, X/ ?+ M
bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)+ J6 [) F0 T( X S! f
Next
: u+ z# w: B0 z) ]
End If
% A% ~0 |( `( j, X. @, W7 e
Next+ A; V1 s4 y8 v& B. \/ Y' q
Set swApp = Application.SldWorks$ r* D8 p3 Z$ x+ S8 I8 a
End Sub, r3 U, F0 p n

复制代码

		自动登录	找回密码
密码			注册

通知

[求助] SW删除所有属性

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块