SW宏-删除所有配置属性

叶飘零 · 发表于 2019-11-18 19:12:14

Dim swApp As Object
3 `6 R& p! v% W
2 P( F3 M4 O; o+ |! E T1 ?% @1 K
Dim Part As Object+ h1 K8 w- t. y( Z& l3 o! n. y2 p
Dim boolstatus As Boolean
9 B& e" o; J/ V4 @1 K- ~6 v
Dim longstatus As Long, longwarnings As Long
* ^% b$ V. U6 k- V! R+ m. O2 H
5 D( M" p4 r+ U1 G$ k# f% T% W
Sub main() '删除所有配置属性, {6 G$ a# k2 ~9 z$ L% f( M1 i
; R# ~! w/ V, F: r3 ~
Set swApp = Application.SldWorks
* K' k$ t I9 `
4 D4 l. J- r3 u7 \( e
Set Part = swApp.ActiveDoc' G% I$ v0 w. b N
* {% I( b4 Z6 R( W# u" S/ t' h: t
CurCFGname = Part.GetConfigurationNames
+ N- D* t, c" `$ d
. G5 f* }# F4 E
CurCFGnameCount = Part.GetConfigurationCount6 F; \6 {9 x9 ?) u* @1 v
6 x9 Q9 ]1 G8 b- M( y4 h
For i = 0 To CurCFGnameCount - 1
, K& X3 F# s: R( J, r; j9 o* G7 C
, q( x: Z9 j; f, V
Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
3 U, B4 a" ?) V$ N8 ~% y' h
& v! B$ H0 o1 \ H' ?4 x9 T H
Vnamearr = CusPropMgr.GetNames
4 b4 P5 Z6 ?8 x0 y7 i+ W0 U: k
9 ^7 K& Y! l9 I( m7 d
If Not IsEmpty(Vnamearr) Then- S; O% C: I# L+ `
, {! {# o/ b3 f8 H5 C# `8 {
For Each Vnamearr2 In Vnamearr# Y8 h& {/ j) f" f
9 `6 u. a1 u( x, c
bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
0 D' A0 y7 N) j1 v( a
% k5 H6 U. t* |, O
Next
8 w" G1 n# P+ ]5 `, m( ]
9 D# l X- Y3 ^ s0 {& F* Z5 D+ @# O
End If( W- q2 R6 M4 p9 I$ f
5 j. A6 d7 k& d. v! S; }- b
Next
. ?1 z8 {) x+ b

复制代码

叶飘零 · 发表于 2019-11-18 19:13:41

删除所有自定义属性

Sub main() '删除自定义属性
# J4 A, c5 E; \8 o2 ~
Dim swApp As Object5 `6 V3 h# s: o& X8 r
Dim swModel2 As SldWorks.ModelDoc2+ W9 b; z1 |+ G
Dim vCustInfoNameArr2 As Variant
) B6 B4 g' e5 W- W7 z7 G
4 P5 n) U" ~. i5 K
Set swApp = _
, {9 g2 N6 L: n7 M( G0 G& \1 v
Application.SldWorks- N) ]3 u/ W1 ^/ L
+ C6 ]+ L) d4 | E& R4 o( [( R, L5 N
Set swModel2 = swApp.ActiveDoc
u8 G$ `) [, P. F# ~- n( Y
J0 S1 t& k9 m: m: c/ O
vCustInfoNameArr2 = swModel2.GetCustomInfoNames* Z( g7 ~& j7 d) i
J* v6 Z0 o( I5 o
If Not IsEmpty(vCustInfoNameArr2) Then, F4 J) d5 ?. o3 r
For Each vCustInfoName2 In vCustInfoNameArr2
# `7 b0 q8 F' e8 H$ D8 b8 t, b4 S7 O
bRet = swModel2.DeleteCustomInfo(vCustInfoName2)/ b) s( ]4 h2 V7 @. r9 z5 j, K) L2 Q
Next
0 G( \$ x' a: ^7 b- V: H, ~0 i
End If2 x1 q" C6 E* }, B
End Sub
2 f% |4 j0 K$ y- J6 c

复制代码

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

谢谢楼主，保存先，后面应该有用

远祥 · 发表于 2019-11-19 18:11:22

感觉楼主分享，适用于哪个版本呢？

叶飘零 · 发表于 2019-11-19 22:46:12

远祥发表于 2019-11-19 18:11
6 X1 \3 ~% y- i5 ]: C; I# c感觉楼主分享，适用于哪个版本呢？

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

奋斗GS · 发表于 2020-2-5 00:07:20

那位麻烦告诉一下，我复制这些代码怎么变了内容？

大侠很忙 · 发表于 2021-7-26 15:08:55

这两个宏可以合并嘛

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

牛，今天帮我解决实际问题了，谢谢

		自动登录	找回密码
密码			注册会员