安装第三方插件：
% j; z+ e3 n x) O: Y5 o例如，使用SolidKits BOMs高级BOM工具或SWTDO插件。# U. t1 L+ ?7 W5 O. ^
下载并安装插件，按照插件的安装指南进行操作。
" L) x I' Z, o使用插件功能：# m& L# a% ?% P* e7 m
打开插件，选择“批量写入属性”功能。! B7 \9 F6 M5 ]9 r" m+ G2 @
选择需要处理的零件文件或文件夹，设置需要添加的属性名称和值。1 y y5 w% d% T: p- }% l) i$ Z
& d! j, P! E3 n& k还有这个宏命令是AI生成的，不保证有用。
& W W& Q4 U% Q3 y3 T7 a% ZDim swApp As SldWorks.SldWorks( s0 S% i' g! N8 z) e5 {9 x
Dim swModel As SldWorks.ModelDoc2
" j/ E2 \2 i0 E3 c/ ?" f- aDim swPart As SldWorks.Part
7 a6 d8 ~; V# Y$ t/ `Dim massprops As Variant
/ R/ N6 [+ p9 y% v4 `( ^9 B4 C# EDim status As Long) ? m% }2 r3 n8 p) z
Dim length As Double, `/ Y% H4 G. E- k' ?
Dim width As Double
$ W G/ X: u5 X6 }Dim height As Double
* f" N5 B% m+ B7 U3 }. u- i( \& X1 V" w3 I0 f
Sub main()
. w' Z J* V, ?+ Y7 { Set swApp = Application.SldWorks
1 x( L m H- k! p! k# M Set swModel = swApp.ActiveDoc
" T( b5 ^) \. A2 e; l Set swPart = swModel.Part6 A4 S. n( y4 K+ X+ m5 o* \& e
0 a) |0 N! V: S! i ' 获取零件的外形尺寸
: p5 M4 [% z% _1 u: S, { massprops = swPart.GetMassProperties(1, status, True)
0 y8 I" \" K1 M' `3 E length = massprops(0)
+ t3 f* O. E9 ^6 k width = massprops(1)
( _) E7 I$ a; A1 \2 r' H height = massprops(2)
( {7 n6 b) u' J! i' h( _/ @, E* R/ J" O! k2 `
' 添加自定义属性
% `7 F6 A# a0 t9 e) H0 w* D% J swModel.Extension.AddCustomProperty3("长度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)
, S) u' N7 t9 r m swModel.Extension.AddCustomProperty3("宽度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)7 |, O% i0 J: s# {6 S+ `
swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)2 Y/ j/ J7 B3 ^4 _# c( O; \
5 K4 ]' H9 S- z7 [* Y
' 保存文件
- y( Y2 d" n- G) D, M0 o2 b swModel.Save
! h. ~% T% e! w# dEnd Sub
& q0 I Q& p" i点击“执行”按钮，开始批量处理文件。 |
发表于 2025-1-10 08:33:23
