SW宏-刪除所有配置屬性

葉飄零 · 發表于 2019-11-18 19:12:14

Dim swApp As Object) L7 h, W) t, W8 Y [
_0 @; T4 x! k6 |! I
Dim Part As Object1 d9 p7 | g6 d4 K
Dim boolstatus As Boolean* n+ q( m$ e& i8 V! K) r. E
Dim longstatus As Long, longwarnings As Long' L# {$ U7 p% f, |. J0 R/ l, y
! @& e: ?- y/ j" u
Sub main() '刪除所有配置屬性% T. y0 T. L; ~& U/ h+ P [
- K) T- J% r% u
Set swApp = Application.SldWorks& |. l4 ^9 e6 [% V
( U4 b# l7 l9 ?- _+ Z
Set Part = swApp.ActiveDoc0 H7 a5 m; F; d+ D4 R4 B
+ V( J( M: T$ |8 C
CurCFGname = Part.GetConfigurationNames
0 g% O6 I2 b+ x6 A+ j1 z% y$ A
. T" K7 y8 H/ T( U- N
CurCFGnameCount = Part.GetConfigurationCount
: i0 h6 k% ^& U% s$ C9 E5 K! _
. l6 x3 H! ~7 k4 U9 F. ~0 j
For i = 0 To CurCFGnameCount - 1. _) L3 _7 y4 J: d) c/ l8 W
- U" T* Z0 t$ |4 @. p- N# E" K
Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))# R& m+ P3 R. x% f% _* f- A
6 \5 u! ~2 Y3 T
Vnamearr = CusPropMgr.GetNames
0 P" s: M, u/ c3 e
/ b% v/ x$ |6 ^ G& B% Q
If Not IsEmpty(Vnamearr) Then' X9 P# D- t5 g/ ~0 X$ {
. ?9 v+ a; e' r" F+ |
For Each Vnamearr2 In Vnamearr
9 F& ]$ v. f' E8 [
7 N) |2 R) S t0 t# @
bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)& I$ e; I1 W' z; y: X% e% d" N
' R% n8 b# N! K
Next
/ {, B2 G ~8 G$ k+ c/ ]+ N
+ ~1 t1 r" q( I p* W' Z2 {/ d
End If
, R2 _+ Q3 U' {( m4 w0 D0 z- r
, z( y# ]% R3 g6 f5 r
Next" E2 A' |2 H# V0 E) ?4 w G, f: k

復制代碼

葉飄零 · 發表于 2019-11-18 19:13:41

刪除所有自定義屬性

Sub main() '刪除自定義屬性1 d4 R6 f% G% s% [2 i2 c
Dim swApp As Object9 h+ n' f$ }/ _3 i/ y
Dim swModel2 As SldWorks.ModelDoc2 {1 o* y0 |, S' N/ P$ I
Dim vCustInfoNameArr2 As Variant+ `( _' K6 x3 ?* U3 m4 c
( O+ h# g/ G8 a) ~( i4 R
Set swApp = _* b v. h$ k, \2 }% F9 `3 @" y3 J$ v+ O
Application.SldWorks
' s! x3 b0 N ]3 V
+ D3 S D# `1 F5 ~; P+ |4 D1 f& v
Set swModel2 = swApp.ActiveDoc, m3 P2 L. W- k; p9 p- M1 [/ B
& m( f% z8 F' \# g7 G; a
vCustInfoNameArr2 = swModel2.GetCustomInfoNames# }; L8 w2 g- O' t4 s9 e# c# p g5 r$ V
/ Z: h" {% b& V6 m( [5 g6 H+ }
If Not IsEmpty(vCustInfoNameArr2) Then
1 `5 p, t# B7 ^) X- ~! e& c; w
For Each vCustInfoName2 In vCustInfoNameArr21 L7 o8 {" z1 b. z% o$ ^
bRet = swModel2.DeleteCustomInfo(vCustInfoName2)1 z, Z. y; \; j- C
Next! v1 r: S* @) O7 d y
End If
8 w" ?: g$ C7 S& Y: v! G! ]3 ]6 A7 c
End Sub
) l* }( e I( i- D: X0 v! D3 F

復制代碼

零度freedom · 發表于 2019-11-19 08:57:41

謝謝樓主，保存先，后面應該有用

遠祥 · 發表于 2019-11-19 18:11:22

感覺樓主分享，適用于哪個版本呢？

葉飄零 · 發表于 2019-11-19 22:46:12

遠祥發表于 2019-11-19 18:11; t9 P# k) Y4 K9 K; `1 y
感覺樓主分享，適用于哪個版本呢？

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

奮斗GS · 發表于 2020-2-5 00:07:20

那位麻煩告訴一下，我復制這些代碼怎么變了內容？

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

這兩個宏可以合并嘛

machel77 · 發表于 2023-10-7 11:28:19

牛，今天幫我解決實際問題了，謝謝

		自動登錄	找回密碼
密碼			注冊會員

国产日韩欧美久久久精品图片|国产综合有码无码中文字幕|国产一区二区综合视频|国产亚洲精品电影网站在线观看|国产精品一区在线