SW宏-刪除所有配置屬性

葉飄零 · 發(fā)表于 2019-11-18 19:12:14

Dim swApp As Object
; J5 X- K9 W* z4 ], b
- h* y- A5 s. Z n7 \
Dim Part As Object
4 z# Z( G5 T0 B6 G; b9 x+ [9 D
Dim boolstatus As Boolean0 n- V1 K( E1 i
Dim longstatus As Long, longwarnings As Long; k5 q8 u! ]+ k! a
* p9 c/ k9 I/ h$ H8 Y3 }
Sub main() '刪除所有配置屬性
: X. N# X! o8 r8 @" A1 P K- Y1 W2 C
* G' Y! J; l0 ?7 o) T# |/ h1 C
Set swApp = Application.SldWorks6 Q5 d) k9 |& w. ~! q
: G) D9 \- D0 F* \( \8 h+ S
Set Part = swApp.ActiveDoc
+ B/ W5 ] ?# u4 e; N W% V9 q
2 E0 n% X/ O5 I* |# Q# M
CurCFGname = Part.GetConfigurationNames6 j0 y4 F0 |3 j, j7 f7 f3 K
' E' l4 f7 }4 H8 J/ D3 d# @0 o2 ?
CurCFGnameCount = Part.GetConfigurationCount
; ~& t4 v& g+ ^
: C) r# x, Q9 _% p4 s8 ?. g
For i = 0 To CurCFGnameCount - 14 S& q: z, l8 C+ b, n7 L, G Y" C' |
$ b$ _9 J6 v) E' ?
Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))6 J" q6 w/ q! g( U4 `) V
; v/ ~* L+ J4 ?% E1 G8 `( t* q
Vnamearr = CusPropMgr.GetNames
1 P% h) q/ L1 g# u9 T& t& Z5 {
7 {4 f% l- X! R8 ^- }* o# ^
If Not IsEmpty(Vnamearr) Then2 L) x9 A7 |9 H' W8 X
0 [8 }0 Y G3 }" W: A
For Each Vnamearr2 In Vnamearr
4 N' W& j8 S( h3 f' q7 T8 x: L: m
1 S7 X# ^) s* Q' q" v) ^
bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)3 n3 M9 D1 A4 H9 k) W% ~$ R
* D @4 g( {0 D
Next
8 i- c2 d0 |7 ^3 s/ k* w
) Y5 i1 S( v: m4 P. b
End If
' s, C4 |/ s( b$ v& J; A
/ v0 x9 U7 m& B |$ E+ T
Next
6 O1 N9 J- Z( a

復(fù)制代碼

葉飄零 · 發(fā)表于 2019-11-18 19:13:41

刪除所有自定義屬性

Sub main() '刪除自定義屬性
3 [; Z4 L4 m5 b0 D
Dim swApp As Object y9 w' L8 c: A' i$ a' u
Dim swModel2 As SldWorks.ModelDoc2$ b+ N+ N# g5 b
Dim vCustInfoNameArr2 As Variant
- L5 f; [5 ^3 A8 }& p% H
7 S& B z: f! O2 l
Set swApp = _/ k6 i+ s& Q# H; T7 C
Application.SldWorks) L/ g. p/ `' U9 S9 n1 Y- [3 D; {' ?
) _/ g2 L9 q( I% E8 z$ V
Set swModel2 = swApp.ActiveDoc" \" q" X4 |9 U2 I: }* e
- y2 C8 b0 c8 x. s
vCustInfoNameArr2 = swModel2.GetCustomInfoNames
! a2 |4 s! b5 e2 ~' ~# @7 d6 X
. N1 f8 u1 u l+ e3 t8 s5 W {
If Not IsEmpty(vCustInfoNameArr2) Then$ ?* {' k3 b* B7 C, g6 h7 R
For Each vCustInfoName2 In vCustInfoNameArr2+ g- j" I0 _% a7 ^
bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
' G+ d3 i' |( y5 u/ j! j2 f3 q/ V
Next/ H9 X7 S h$ B0 \ u0 t
End If! S# z, u2 d; Z9 G3 Y6 R
End Sub3 C' n. k# s# W u

復(fù)制代碼

零度freedom · 發(fā)表于 2019-11-19 08:57:41

謝謝樓主,，保存先,，后面應(yīng)該有用

遠(yuǎn)祥 · 發(fā)表于 2019-11-19 18:11:22

感覺樓主分享,，適用于哪個(gè)版本呢？

葉飄零 · 發(fā)表于 2019-11-19 22:46:12

遠(yuǎn)祥發(fā)表于 2019-11-19 18:11
1 @: b! C y0 X' u感覺樓主分享，適用于哪個(gè)版本呢,？

宏是不分版本的,，適用于SW任何版本。

奮斗GS · 發(fā)表于 2020-2-5 00:07:20

那位麻煩告訴一下,，我復(fù)制這些代碼怎么變了內(nèi)容,？

大俠很忙 · 發(fā)表于 2021-7-26 15:08:55

這兩個(gè)宏可以合并嘛

machel77 · 發(fā)表于 2023-10-7 11:28:19

牛，今天幫我解決實(shí)際問題了,，謝謝

		自動(dòng)登錄	找回密碼
密碼			注冊(cè)會(huì)員