安装第三方插件：
# t+ Y# ?$ |% a1 @2 e例如，使用SolidKits BOMs高级BOM工具或SWTDO插件。
* \+ V: d. }' g, t! O- G/ b% p下载并安装插件，按照插件的安装指南进行操作。
9 J, S% P7 q3 X# `; v使用插件功能：
4 b6 s/ m' V1 h p9 G) c J/ g$ |打开插件，选择“批量写入属性”功能。
2 p: x+ e8 ~# K6 v/ f选择需要处理的零件文件或文件夹，设置需要添加的属性名称和值。
+ Q% i4 ?8 K$ f* s9 O4 i8 b
$ W( x: N2 U7 Z, C3 f还有这个宏命令是AI生成的，不保证有用。' m3 O+ k/ e2 w# p" O- V1 U
Dim swApp As SldWorks.SldWorks! i5 J- ?& I' H7 b- [. m8 B
Dim swModel As SldWorks.ModelDoc2
# O& Y7 S5 R5 M+ e, ?Dim swPart As SldWorks.Part
' H* i& u- f1 Y# ]/ n, X' y0 {" jDim massprops As Variant
+ M: I Q( \" z. i" k6 vDim status As Long8 o3 ^. `3 l* y! \& ~; R
Dim length As Double
1 v1 e& z( X9 H" cDim width As Double
) O, l. h5 i& m) EDim height As Double
% }# e9 |; D4 m! c! ~# s
, d2 [6 X: {7 \0 P1 t# X* R: ISub main()% v# B! k6 N$ g! O
Set swApp = Application.SldWorks+ ~$ ]9 b+ a7 _+ X9 H
Set swModel = swApp.ActiveDoc; \ a- A9 ^( O7 m; r
Set swPart = swModel.Part
% {% @: |4 d0 Z7 d! O M# z1 m/ j# j* a" I% d/ [4 d
' 获取零件的外形尺寸6 a$ ^& @/ J+ [5 ]/ ~7 R+ s
massprops = swPart.GetMassProperties(1, status, True)
( s$ J' x# s# m length = massprops(0)' v3 N2 r4 _/ m! _4 g% \: X$ {2 |
width = massprops(1) k/ l% q6 Z: _
height = massprops(2)
2 T7 w K# n2 F' l/ O; P4 _: @# d3 j" j
' 添加自定义属性, Y5 v2 g# g- L6 @! m
swModel.Extension.AddCustomProperty3("长度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)0 }* h+ u5 ~8 F# {& T: X- P+ }
swModel.Extension.AddCustomProperty3("宽度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue); F! }5 d+ x& D7 ~: p- G
swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)4 k m1 }( C, G; G* @
$ l' a0 O. B6 p0 y1 Z
' 保存文件
. b- `* o# L5 s5 P$ j& P9 u swModel.Save8 Y" G6 }! c) W/ s, v
End Sub$ N! c% z. D2 C1 k8 i
点击“执行”按钮，开始批量处理文件。 |
发表于 2025-1-10 08:33:23
