|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
' ?& n/ m$ S4 ^# ^* M+ A3 y
( {6 \* J1 ]9 }2 s8 U
在网上找了二个删除属性的代码，现想合并成一个SW删除所有属性不知怎么修改，请大神指点一下谢谢！- L. ]& b! j- F2 B" ?% T% {
- |3 ^5 d0 q5 \8 l; W8 Z- Dim swApp As Object* x' h+ n: y {; Z E5 l
- Sub main() '删除自定义属性% M; f" p' B- ~" ? z. u, [
- Dim swApp As Object
1 D0 F1 A- Y: U: E - Dim swModel2 As SldWorks.ModelDoc2
$ I, h" J' p' k' M9 A% G' T - Dim vCustInfoNameArr2 As Variant0 L$ Z: a0 [1 y% ]1 t
- Set swApp = _
' q j2 n5 p0 x+ r" ]+ _' W - Application.SldWorks
2 R5 \" [& x# S8 [ B5 o - Set swModel2 = swApp.ActiveDoc
# X# u3 B" O: m* ] - vCustInfoNameArr2 = swModel2.GetCustomInfoNames
, I+ i9 T8 l4 s/ R. r* _; P$ \ - If Not IsEmpty(vCustInfoNameArr2) Then% {" J- d9 K- Y1 u
- For Each vCustInfoName2 In vCustInfoNameArr2
, J a! G. X, H: V, G( e8 } - bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
) ]0 I5 k' W3 J1 a, b - Next! I, X. k u0 l Z: s" w8 W
- End If
+ p! p! I7 v' B# | - End Sub& O8 \3 @, F5 ~
, B6 f8 j+ d3 c/ c& S: |+ M0 _- - X: ^& _- a- h9 M8 P. w7 p: i4 |- `" e
- Sub main() '删除所有配置所有属性
2 D: A% S# q. b2 }! e - Set swApp = Application.SldWorks
( E1 _# T; u+ `- N. ]% T' j2 q, E - Set Part = swApp.ActiveDoc
( q3 U L2 f% b: C& E$ V - CurCFGname = Part.GetConfigurationNames
# Q7 O; M' h1 n, ~: p' B/ ~/ f - CurCFGnameCount = Part.GetConfigurationCount
3 C$ l6 q) T1 |4 H4 [9 f0 @5 v+ X0 N - For i = 0 To CurCFGnameCount - 10 [' X# w* f' a# P) R& f$ O
- Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
* k1 f0 [$ {% [& K- T - Vnamearr = CusPropMgr.GetNames8 I; w4 K, M4 a( c2 j/ O
- If Not IsEmpty(Vnamearr) Then
# w& C5 f! h+ }1 [ - For Each Vnamearr2 In Vnamearr
7 y- t# M, K: M2 {' k1 T1 i - bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)7 j8 R) {5 b3 v8 Q+ L
- Next
2 ?& n1 G) D; v - End If
& _9 L/ O2 q/ o, R, { - Next5 C& T( W; O) a t( ^3 t8 y- Q
- Set swApp = Application.SldWorks. z \# [$ H* _% X6 w
- End Sub
& e6 x x9 I2 j+ h3 m! N
/ c. ~+ n" n0 g9 E2 N+ ]1 _
& K; b+ M( S8 f- f1 E |
|
发表于 2020-2-27 13:37:03