SW宏-删除所有配置属性

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

Dim swApp As Object
4 s' {9 j# ?9 h4 d- E
) n' e' m _7 O% x! T) ~
Dim Part As Object
8 v @$ a- W' n
Dim boolstatus As Boolean4 U* H5 m( d' _, n
Dim longstatus As Long, longwarnings As Long5 e' d0 ?. J" U4 H" h' y; G
$ o0 ?2 d. f) u# I
Sub main() '删除所有配置属性$ @1 I+ |( C/ e: j. ~$ U$ P* n
/ t7 [# Q! U9 A# `3 m3 d& t, M% Z
Set swApp = Application.SldWorks
! r; }$ ]4 K8 S9 v; P- `: C2 C. c
8 K3 s e! C/ S( E% b$ c
Set Part = swApp.ActiveDoc& w- n& ~) R* I5 W7 x. R
D* I& B4 A4 ~, Y/ s' P& e4 h
CurCFGname = Part.GetConfigurationNames8 m- r1 k/ M( o- [& s2 f5 i$ [
; |; P+ S) m& [3 j8 R% m. ?4 l
CurCFGnameCount = Part.GetConfigurationCount4 @" l5 P2 {6 L- y! g5 R
% O) U' d% u s4 y; _1 m9 u5 E- g. r
For i = 0 To CurCFGnameCount - 1
% b+ L$ F% x$ q
4 |3 z$ l7 h% c. S
Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))' t( m" y- f+ S4 C* q- B
$ c" k( ?0 m* G) J
Vnamearr = CusPropMgr.GetNames
, P) w S8 Y, B- z8 T& y
' n) c, X+ F' n& k& X
If Not IsEmpty(Vnamearr) Then& p* _$ k+ f) n% v, Y: O
! T& t& N% l5 @9 N ~
For Each Vnamearr2 In Vnamearr
) m5 G9 t/ j5 O6 ^
% B- u! _0 v- ]; t: i# |' C* R
bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2) \5 }3 J+ [" P9 Y% h! ^
) u. x1 m" F7 j, o) |
Next2 k8 P. c6 v; s- o: g9 d1 c
& Q* r, \9 l& d0 ~
End If
: x& U9 D9 g8 p& i
3 Y2 ?# A Q# }" [( a
Next+ k5 b% a' J& `0 Q

复制代码

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

删除所有自定义属性

复制代码

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

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

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

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

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

远祥发表于 2019-11-19 18:111 l6 z( c* P# J; u
感觉楼主分享，适用于哪个版本呢？

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

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

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

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

这两个宏可以合并嘛

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

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

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