|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
3 Z/ H4 O. `( q. S; n, J" k& O) J
在网上找了二个删除属性的代码，现想合并成一个SW删除所有属性不知怎么修改，请大神指点一下谢谢！5 c: `# Q3 x$ @, f3 e
' s( Q$ \( g. t/ h: A) n: S' q- Dim swApp As Object* L3 X! |8 a; g" `
- Sub main() '删除自定义属性
* o6 _# d" L/ m. x Z% S" N - Dim swApp As Object
) b3 {" K8 ~& R! | - Dim swModel2 As SldWorks.ModelDoc2: Q, m4 x9 |* ~/ W0 j4 V6 B4 _( H
- Dim vCustInfoNameArr2 As Variant5 Q9 N& T l9 ?* L- L: j+ |- F& G4 v
- Set swApp = _
& p: ?- N2 X6 P% S& B6 M+ c - Application.SldWorks3 @% Z: z2 z* c% C
- Set swModel2 = swApp.ActiveDoc4 {) u) d3 [8 j6 J4 r2 j
- vCustInfoNameArr2 = swModel2.GetCustomInfoNames
4 _+ m' p2 n1 }# ?/ b- I - If Not IsEmpty(vCustInfoNameArr2) Then/ @- f8 X: X8 X0 A+ q; z! o
- For Each vCustInfoName2 In vCustInfoNameArr2
& M+ d& _+ f7 ?7 ] - bRet = swModel2.DeleteCustomInfo(vCustInfoName2)) x' }4 r6 {6 H/ E% Q1 L4 P
- Next
+ u3 I* L( B" c" y - End If% C' [! z) C R+ ?
- End Sub
2 w# q- M$ S& E+ O! c
9 |# E% @- n+ Z/ y3 X) n
3 s. M( F3 m+ [. a' ~0 X4 p- Sub main() '删除所有配置所有属性
" j( K9 v! `" {- _0 O$ Y - Set swApp = Application.SldWorks2 Q9 K& ?2 P$ w* P" V5 m/ z9 G
- Set Part = swApp.ActiveDoc4 W8 }8 t+ ?: p$ ?
- CurCFGname = Part.GetConfigurationNames: A2 o5 @* L# Y7 V
- CurCFGnameCount = Part.GetConfigurationCount8 M2 w# C/ E8 n
- For i = 0 To CurCFGnameCount - 1. S/ s- o9 M% s( v2 \- l
- Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
B% j0 l9 `$ r7 R - Vnamearr = CusPropMgr.GetNames2 z% r7 O' n! W K: m' I
- If Not IsEmpty(Vnamearr) Then
. x: n( e" j3 i8 T) r - For Each Vnamearr2 In Vnamearr0 i# O( S8 l( i. A a/ [. l
- bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
8 z8 O/ h6 _8 R% H; H/ @( F, J) t - Next
! l0 A! Y& G G* p i- z+ H' h - End If
3 j6 k$ [( S+ ?7 o: X/ V1 Q( Q8 v" }' y - Next0 v. n5 ~) V1 {; q* {
- Set swApp = Application.SldWorks
6 z' f2 n" h: W5 v8 L% X# m - End Sub
' J$ l) v8 z1 t
2 u9 @5 ]; A1 H3 ?/ H1 A, D
9 m+ P" _$ A, y |
|
发表于 2020-2-27 13:37:03