安装第三方插件：+ r4 |+ \8 C9 r- k# n8 } P
例如，使用SolidKits BOMs高级BOM工具或SWTDO插件。
7 a/ H- |8 y1 A' Q3 w! y4 W0 a下载并安装插件，按照插件的安装指南进行操作。
+ }5 N m9 G' Q: x- ]使用插件功能：$ a9 a) G) D6 E4 k# |% X- Y6 y( b
打开插件，选择“批量写入属性”功能。
) F0 _" T8 i8 N选择需要处理的零件文件或文件夹，设置需要添加的属性名称和值。
" Z& I3 Q8 G/ x @
% a6 ~; c8 H4 f# `还有这个宏命令是AI生成的，不保证有用。) P& T8 C n8 W+ k" m+ k
Dim swApp As SldWorks.SldWorks
: f: S! O$ _# A3 h% ^. S4 FDim swModel As SldWorks.ModelDoc2
: n1 f* q" ~8 t/ M8 \0 o0 ADim swPart As SldWorks.Part& e3 `, k3 y3 f. n5 I, M" |, s% @
Dim massprops As Variant
$ a6 B |& L4 }4 Z' i- \Dim status As Long
9 U: }6 L8 i/ z: cDim length As Double
# K7 j. d' ^( \1 F5 IDim width As Double
$ w) j/ K$ x) M/ }0 TDim height As Double
p1 F% L# k$ w/ L; B* g0 {$ v; R. j5 h2 T1 ~& m# o5 \
Sub main()
2 q& j& J# I$ a6 p, V Set swApp = Application.SldWorks
: C' W6 O9 K; h0 t; T Set swModel = swApp.ActiveDoc, h+ }$ f6 `* u( v0 x$ T+ i
Set swPart = swModel.Part& z- K' ?) a% M# E
' r, l& E- o) ^7 n7 U5 V ' 获取零件的外形尺寸# w! p) h% N& Z
massprops = swPart.GetMassProperties(1, status, True)+ ~2 H# u/ ?; F
length = massprops(0)
* X2 N( a; a" A: |3 E# Y" C8 E width = massprops(1)' }% F. b J0 p( E3 f* b2 T
height = massprops(2)
# ]9 X% q) n2 m! n
6 `3 [& u3 B3 \7 k3 D$ e! q ' 添加自定义属性) ?( p7 {3 O0 z8 ^; h
swModel.Extension.AddCustomProperty3("长度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)
& I1 j- d/ y% V2 M8 M, [' @ swModel.Extension.AddCustomProperty3("宽度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)8 }; a# I. s. r- q, u* c2 r! ]' {
swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)
) X& M7 v3 s2 F/ i( B9 |# i a& G4 D8 e! t% Q
' 保存文件1 k9 r0 Q; _1 R* b, v8 w& z) B+ T
swModel.Save
E- G0 `) D8 H4 p4 j7 Y4 sEnd Sub* ?+ E, v9 Z$ j9 z$ G. `
点击“执行”按钮，开始批量处理文件。 |
发表于 2025-1-10 08:33:23
楼主
