安装第三方插件：$ ?$ x: `5 t/ W# M" o; b
例如，使用SolidKits BOMs高级BOM工具或SWTDO插件。) N) s& Z) D# P
下载并安装插件，按照插件的安装指南进行操作。
+ g( Z2 C4 s$ G/ z, I, {3 ]" ~- I使用插件功能：
+ P( ^8 D/ |6 R v+ \1 U4 C打开插件，选择“批量写入属性”功能。8 A: F' i% C" A! z, {
选择需要处理的零件文件或文件夹，设置需要添加的属性名称和值。
" y5 ?8 T7 F, }) i
, ^7 D+ l% u* `# K/ I6 O7 b还有这个宏命令是AI生成的，不保证有用。- R8 z6 k. W% G8 V6 P) ~; ?; j
Dim swApp As SldWorks.SldWorks
4 e0 I; k/ R# t) j8 X& ]Dim swModel As SldWorks.ModelDoc2
4 L5 F! `+ [/ e3 \Dim swPart As SldWorks.Part) ]" }) G/ U# Z1 u+ v8 a
Dim massprops As Variant
) m3 Z. v. Y/ B0 q: t0 L7 k/ K: yDim status As Long
& g x% L F, H* ^Dim length As Double
% t( s3 }- l' q5 u- B7 ADim width As Double
+ F# _8 h- N1 V' ]* q" N' sDim height As Double
# e4 E1 k) ~2 w* n; m/ Q. ?* @3 ?: S& Z3 S1 c& e5 x+ }+ r
Sub main()8 q% R6 v- z6 B+ j% _* R
Set swApp = Application.SldWorks' _( S- @0 ?8 }% y/ n
Set swModel = swApp.ActiveDoc
8 r% L+ U% k5 L9 _' F+ D Set swPart = swModel.Part
1 P$ b/ M' a1 Z T3 j3 x6 L# _( o% J" O" u6 w
' 获取零件的外形尺寸
3 t T9 x/ Q$ m, J; j massprops = swPart.GetMassProperties(1, status, True)2 Y6 T# `' e0 O1 S
length = massprops(0)
$ L0 a! U+ v1 ^, Z6 _+ X width = massprops(1)( F3 p& ~5 I% @- p' E& q
height = massprops(2)
4 w5 l* N) v0 D- j' ^( w
! b/ @4 ]: @7 P ' 添加自定义属性3 S+ u0 ~/ v5 Q. g/ n: T8 l
swModel.Extension.AddCustomProperty3("长度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)6 j0 [6 u) P1 G& S! }
swModel.Extension.AddCustomProperty3("宽度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)( T& p+ A6 J# }. X
swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)
! i, E4 G( E0 W8 M' _' d4 z6 ~7 I a/ ]' j8 z2 H6 n% [; d
' 保存文件8 ~3 m3 E8 r) g
swModel.Save
+ |$ Q/ [1 R% \3 pEnd Sub0 U7 N" |0 V5 r* p
点击“执行”按钮，开始批量处理文件。 |
发表于 2025-1-10 08:33:23
