|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
) u+ |, v8 s: q, A
3 R2 m1 l9 s, A* l
在网上找了二个删除属性的代码，现想合并成一个SW删除所有属性不知怎么修改，请大神指点一下谢谢！- N' s. c, C% C/ i' x7 R& y
+ [ }2 z$ ~' F
- Dim swApp As Object* ?/ T- K! E5 L: Y
- Sub main() '删除自定义属性" S8 n" B) ?# D9 H' Y
- Dim swApp As Object2 m' x5 Z, M$ B4 Z
- Dim swModel2 As SldWorks.ModelDoc2
* A; C$ U, K' z1 Z - Dim vCustInfoNameArr2 As Variant
5 ~0 n; U0 k+ E; C - Set swApp = _
1 y! V1 A Y& P3 d- p. J) g h - Application.SldWorks
# Q: h% ~1 t/ v! S; s - Set swModel2 = swApp.ActiveDoc4 C, l* d/ \! v- ]/ V7 }( r. v
- vCustInfoNameArr2 = swModel2.GetCustomInfoNames
5 {8 K5 k3 \1 o; S - If Not IsEmpty(vCustInfoNameArr2) Then$ a- p) M5 D. [
- For Each vCustInfoName2 In vCustInfoNameArr2
, ?8 |7 u1 F! b - bRet = swModel2.DeleteCustomInfo(vCustInfoName2) s6 I. g% l# Y
- Next
+ w* G1 J5 N- b$ [' ] - End If
8 c; P8 {* J0 \2 H a5 z: F - End Sub
+ m& n+ Y" x( O% M: p2 r - 3 a4 S+ p7 T5 D7 o+ V* i
- ) J1 f- u; q- N/ R$ s4 M
- Sub main() '删除所有配置所有属性) T o6 m+ u' k, q. r$ t u7 s
- Set swApp = Application.SldWorks- P) n6 k3 [6 i
- Set Part = swApp.ActiveDoc
4 l: s* L2 S, n, D6 U9 l - CurCFGname = Part.GetConfigurationNames
: Z# j- L! a1 \ - CurCFGnameCount = Part.GetConfigurationCount
! @5 j: P# z* W+ g( B& X! W - For i = 0 To CurCFGnameCount - 1
, D I6 x$ z$ L% x' _: q2 A - Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
4 F1 i, v' y1 A1 [/ J9 c7 W7 u - Vnamearr = CusPropMgr.GetNames1 m7 y2 J. `1 u. ?) ^9 N: u+ j; w8 ]
- If Not IsEmpty(Vnamearr) Then
+ t c/ p0 A3 x' c - For Each Vnamearr2 In Vnamearr
( P! P% s: S9 @4 q t4 Z- Q - bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)& X( p2 J; k; v, Y
- Next
" i! ]; V1 g# o+ z" F, U - End If
* K/ a+ E3 W/ u - Next, _- b- n+ j% k) `
- Set swApp = Application.SldWorks
: e+ k, I) t! _ - End Sub7 t- ^" p( \& M. u$ k" _4 b
' V+ h* z9 {4 B- M7 R( H6 r9 `9 o3 f% W8 D+ L; R
|
|
发表于 2020-2-27 13:37:03