安装第三方插件：1 H3 Y7 o+ a2 a3 z
例如，使用SolidKits BOMs高级BOM工具或SWTDO插件。' @/ G0 M( Q# v7 p7 Q
下载并安装插件，按照插件的安装指南进行操作。
& v% ?6 p7 m9 z' C* r+ i& a使用插件功能：, }! `- w5 q7 U, f. c+ e, f- g
打开插件，选择“批量写入属性”功能。
0 [% l4 q0 q& z/ U1 f选择需要处理的零件文件或文件夹，设置需要添加的属性名称和值。
% z# s, t# s% {1 P5 s+ X9 g8 N U
% B4 D/ b5 S7 |) K5 a) V+ N, b还有这个宏命令是AI生成的，不保证有用。
# k8 I- G6 q) U" VDim swApp As SldWorks.SldWorks2 O8 B) e! R, N" _" U. E0 V% v
Dim swModel As SldWorks.ModelDoc22 m$ ^% {5 l F6 Q6 m
Dim swPart As SldWorks.Part
9 l h8 `- d: F# a3 a- DDim massprops As Variant
- r& u- Z7 ~2 x) `Dim status As Long
/ l/ N+ H0 q' ^0 p8 w2 \" IDim length As Double( ]9 g7 j1 f2 I9 |6 e d0 r; k
Dim width As Double% i* Q8 d3 K* j0 W1 f! f
Dim height As Double3 r" M2 r7 A1 D" b
6 R5 ?" \2 x+ y# N
Sub main()0 v7 l5 f/ n k. U
Set swApp = Application.SldWorks+ Q2 j* M* O f# ?3 A
Set swModel = swApp.ActiveDoc
. o1 P* z4 y: M# J0 P Set swPart = swModel.Part
. k+ u$ Q& _- v7 I X- j
8 c- j+ @6 Y4 K ' 获取零件的外形尺寸% t1 |; r& R; H7 ]; [1 ?
massprops = swPart.GetMassProperties(1, status, True)6 N: P9 H5 q) \$ v" [6 P* X( V0 p3 x
length = massprops(0)
( t4 U% h* }5 M width = massprops(1)# z% B1 r2 a0 E4 R, @, E
height = massprops(2)
! d! Q0 ^- L1 l6 w8 @+ l
- i# @$ i3 X$ Y: h* h ' 添加自定义属性
( [+ J1 T. h+ Y4 u9 l& u swModel.Extension.AddCustomProperty3("长度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)
) u; S/ u: E+ \& y# H8 k6 }5 s swModel.Extension.AddCustomProperty3("宽度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)
* R% ?' J- G1 s0 u5 G2 d swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)
: T$ K" m- c. ^7 t+ X; g1 z0 L$ P0 U& M$ l' }/ h
' 保存文件1 h; G2 V( v) \& g
swModel.Save
5 t, Y$ K* I# jEnd Sub
! y- |5 H4 v6 p- J, O: [ r6 K& r点击“执行”按钮，开始批量处理文件。 |
发表于 2025-1-10 08:33:23
楼主
