|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
( }1 ?# N' d Q* d: w# ^5 T3 o) [" k( P9 B1 [' R
在网上找了二个删除属性的代码，现想合并成一个SW删除所有属性不知怎么修改，请大神指点一下谢谢！' ]# [7 u* |+ _$ e
' z: J6 s* V# [ A4 a9 j- Dim swApp As Object
* Y/ i7 U$ V! h* T9 c) q - Sub main() '删除自定义属性
1 |2 H C) _6 r7 _6 ~; C - Dim swApp As Object K: W; O; z$ k4 H
- Dim swModel2 As SldWorks.ModelDoc2
. ^: {+ ?! I% H7 G% I. J - Dim vCustInfoNameArr2 As Variant
. v/ a) b8 E6 y4 H* `7 B% a; [ - Set swApp = _
: ^& @8 l2 [4 |+ @& @0 q: M6 y - Application.SldWorks( r7 t! d/ v4 j! c' M/ b& J
- Set swModel2 = swApp.ActiveDoc
) F- X" [* z3 v. [/ R/ n - vCustInfoNameArr2 = swModel2.GetCustomInfoNames
% {7 A$ j- @2 D8 K4 L* U& Z# B% s" d) b0 G - If Not IsEmpty(vCustInfoNameArr2) Then6 X' i" {4 y8 D0 @2 X7 ~
- For Each vCustInfoName2 In vCustInfoNameArr2
! n) h3 F8 l, r6 z! ]/ t8 b" V - bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
% p# [0 z1 j( v% ^4 G5 r - Next- L* n J) Y: o* p7 t7 X3 N1 N- O( m
- End If
. c# @4 X1 P; p( z) W - End Sub/ m, ~) f# c: L& @7 G6 w- X
- 6 J- U0 V$ l3 G( O8 G
+ o. A. w( a0 B& U( \ y- Sub main() '删除所有配置所有属性
) P# ^9 v$ k* k+ M - Set swApp = Application.SldWorks
1 }; G7 K6 @$ u; ]" X% Y3 S - Set Part = swApp.ActiveDoc! {- S; @2 y& W; V
- CurCFGname = Part.GetConfigurationNames
$ v7 A& I: g, `+ L; g0 w - CurCFGnameCount = Part.GetConfigurationCount
2 m; O) X$ o& N! Q, H - For i = 0 To CurCFGnameCount - 1 r- v5 q, V% E* g2 n
- Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
P1 T& \: F# T; i& y - Vnamearr = CusPropMgr.GetNames. m5 }7 p: z L a2 s" u
- If Not IsEmpty(Vnamearr) Then
( `9 U+ l, t& g0 d2 Q' y3 |& D - For Each Vnamearr2 In Vnamearr4 e2 B5 I+ j6 d2 O V
- bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
# r8 Z L- K9 y7 E8 ~5 m* D - Next
u9 k4 _ ~9 L2 G" ? - End If
0 }; L( B# O) ] - Next# g' G1 Z* ]# \- h; O
- Set swApp = Application.SldWorks
/ p& l: S6 j0 L2 X5 Z% G0 i+ c - End Sub
! S( N. u- U$ C! H" L9 ~
7 k1 V- S0 @4 n, F) X/ z( W( K1 s% r ^: C/ v/ S
|
|
发表于 2020-2-27 13:37:03