SW宏-删除所有配置属性

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

Dim swApp As Object
1 J: `: ^9 H# ^6 X7 \& q, J* k
9 M+ l1 D$ q% F( \
Dim Part As Object
# p4 U6 A3 {% u( o! t" Z6 X
Dim boolstatus As Boolean
7 u! g$ b- h/ y- O0 S }% l
Dim longstatus As Long, longwarnings As Long5 ` d6 q% M" I/ `/ N
3 p; s( o: M8 H) Z
Sub main() '删除所有配置属性# l0 a- Z: S* D: M! p9 A
' n2 Y. H$ q5 W |
Set swApp = Application.SldWorks
/ S8 \/ G6 E4 c0 c6 C8 L' ^
" n4 E! R. E0 Y. J2 [; B8 d
Set Part = swApp.ActiveDoc
9 v3 G# A& D7 H
" m3 v6 r4 f; r
CurCFGname = Part.GetConfigurationNames
) z6 ^$ D4 L" e" F- f
# t3 }" R( f" r
CurCFGnameCount = Part.GetConfigurationCount
7 Q0 n. E8 s6 p- e8 x
8 T# B, r p# }" n6 c& j: a
For i = 0 To CurCFGnameCount - 1+ u8 ]: Z+ N! z8 W8 U
0 H K( }/ [) c& t/ J
Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))9 K$ @3 H7 R: X7 {; u2 A: [
( |* M M. G* Z% ^+ r& r) ~
Vnamearr = CusPropMgr.GetNames8 I* ~8 H* @6 f2 V2 k: D+ a* o! C
# n% j2 v, ~& e$ H# n3 ?
If Not IsEmpty(Vnamearr) Then
% }& B* p+ \# Y' z
& n# n% L, Z% [: Z9 J+ X8 q: u [
For Each Vnamearr2 In Vnamearr
" V$ D D6 `% V$ o S! S. E1 X
& |; c/ S0 a9 B& ? I, {" j' j- K
bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)8 R, H9 X% @7 s: J8 w) R
6 F8 I5 L3 x7 u) E( p" D, _
Next4 T$ j& e2 m# B6 q' @- [
2 k- C9 F+ N/ c% Q' P
End If
! \* c& q# F: a% }/ L! K- q
- S- y3 W+ i* ~9 ?# E9 q; M
Next
+ Q! b/ r# `; j; K9 J) ?: h" u* a

复制代码

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

删除所有自定义属性

Sub main() '删除自定义属性" g, L+ a5 e! x( p
Dim swApp As Object
% ~) ?0 t+ h: f; |4 s
Dim swModel2 As SldWorks.ModelDoc23 ]& j5 [2 D1 A; Q+ G
Dim vCustInfoNameArr2 As Variant
0 s+ v6 ^; P9 V6 [$ g
?0 @6 ?7 C9 E# v
Set swApp = _3 x3 A5 m1 ~, Y" o! R9 B! i) K5 m
Application.SldWorks
: f: \4 q6 P6 z' U: L- o8 e
; q: r7 { X/ o3 l6 l
Set swModel2 = swApp.ActiveDoc
) _8 E+ ^9 `. T' F; Z! @# U
! x% [% H/ ~ E1 c' O1 S
vCustInfoNameArr2 = swModel2.GetCustomInfoNames
& O: w/ ?# L- t3 ^1 y! Y L5 c3 a
- A( j+ P- G, r: `
If Not IsEmpty(vCustInfoNameArr2) Then5 L U* F) P# \& A+ G* i( m
For Each vCustInfoName2 In vCustInfoNameArr2
7 t, B, T1 T) l# J- `. c. G, V9 u
bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
2 Q8 \3 T' O/ O% z7 \* ]1 |4 l
Next8 G5 w s& ^) y/ ~, J4 M2 O: e) n
End If; `- i7 G, |5 C$ h4 c
End Sub1 c; i" V0 s" u' g4 j8 ^, N& J; E

复制代码

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

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

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

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

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

远祥发表于 2019-11-19 18:11
4 E( _ b8 r( m( `感觉楼主分享，适用于哪个版本呢？

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

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

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

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

这两个宏可以合并嘛

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

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

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