SW宏-刪除所有配置屬性

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

Dim swApp As Object9 h9 T( S+ g6 w+ |5 f/ M6 o
8 J m' F7 U7 B; M# { |
Dim Part As Object
2 V" `5 D* D: _. D& C- S" O
Dim boolstatus As Boolean
+ k m- Q- c- b% z Z$ b: ^4 ]
Dim longstatus As Long, longwarnings As Long6 K6 s9 O# K% S% c% X8 h, {
) J5 M# z) S! ]3 L
Sub main() '刪除所有配置屬性, a, |: q, V2 Y& A# I* ~8 @
; y3 i- ~ Z! Y L. [( E' @% C
Set swApp = Application.SldWorks. m% b' e" [% ]/ G
6 c, U8 V* |: F5 E; b5 v. t/ O0 T
Set Part = swApp.ActiveDoc+ ?4 l2 ~* W* [9 A$ N2 r r( _, N
( F0 e: P- h' |+ G
CurCFGname = Part.GetConfigurationNames
9 B9 k$ w2 z0 k" ^, M. O- ~
6 P" n* m" s' g) m
CurCFGnameCount = Part.GetConfigurationCount6 ^% \4 n+ H- X- N/ e# G9 K
/ l" T7 Z, J' f8 O
For i = 0 To CurCFGnameCount - 1
1 n6 L0 O2 [; n0 j' P' R
- w* l Z* E5 t6 m* H1 R/ Y1 L
Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))4 D: \2 l& V- J0 t$ u( H
9 i2 z' s0 ~8 U1 n; m: ~$ L, `
Vnamearr = CusPropMgr.GetNames+ o6 x+ [2 q0 G+ }
# P' z" m, e, \0 `0 R
If Not IsEmpty(Vnamearr) Then& J1 u/ w) {% y; i$ o
9 O5 G- L- p# A
For Each Vnamearr2 In Vnamearr
1 B" h5 [$ Q, a I; j: T
3 v. W- m `8 }# O+ s6 [
bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2). x' V3 y( z3 v' H2 f+ P. G# T- \4 |
3 [ I5 S( V; P5 y2 t. \6 O8 a. F; c
Next
' e6 H5 \( m/ n, m+ A1 f
! y5 ^% v# a) R
End If
% j% v: }+ b& I% O' [& V7 G
8 Y C% B; L; g
Next/ X; e; w( H: B

復(fù)制代碼

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

刪除所有自定義屬性

Sub main() '刪除自定義屬性* ^( I2 l5 Y# F
Dim swApp As Object: n/ f y5 {( D
Dim swModel2 As SldWorks.ModelDoc2
# |0 v* V) z. J6 y
Dim vCustInfoNameArr2 As Variant
' ?5 Z; Z- g+ t$ P/ z3 k
# ~ K7 p0 l) w/ ~, [8 [$ `
Set swApp = _& F! z4 s. ~$ d7 J) ]* O
Application.SldWorks
5 W& a4 ?5 V5 S; Y
+ k6 D" H: u1 ~1 }. a
Set swModel2 = swApp.ActiveDoc
& i- W' ?8 a& c8 y7 x( m
( z9 J& ^: j* u
vCustInfoNameArr2 = swModel2.GetCustomInfoNames
1 M+ g0 L( Y. ]) i7 r: b
% \6 W/ }! s* y2 z+ d
If Not IsEmpty(vCustInfoNameArr2) Then
( x! H! i: X" r" a
For Each vCustInfoName2 In vCustInfoNameArr2# @. J2 c6 [' o$ s, [: A5 B9 a. ]- i
bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
* F% m) |* v9 x0 H L1 R4 C8 G# X5 H
Next
6 V: j8 Q, _8 s& a# |) P; E
End If/ j, l6 [# L0 q$ F( g
End Sub
}$ S/ f3 `( C1 b3 U+ S# V# G

復(fù)制代碼

零度f(wàn)reedom · 發(fā)表于 2019-11-19 08:57:41

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

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

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

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

遠(yuǎn)祥發(fā)表于 2019-11-19 18:11
( U2 C. H _+ l. n7 I9 K4 Y$ X& \感覺(jué)樓主分享，適用于哪個(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í)際問(wèn)題了，謝謝

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

久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱