安装第三方插件：4 }4 U% P: y/ a& S; m( [4 M
例如，使用SolidKits BOMs高级BOM工具或SWTDO插件。 z( ^, J7 e# u8 I- i5 r) j K
下载并安装插件，按照插件的安装指南进行操作。
3 v" Q$ f1 C" H( a/ e9 j$ u/ b0 s使用插件功能：
; M! u9 Z( J/ m: Y. w- h& w8 I* z打开插件，选择“批量写入属性”功能。
8 ~6 b9 l9 ^2 J* b" Z' m选择需要处理的零件文件或文件夹，设置需要添加的属性名称和值。
. o1 f: f, c+ M1 g+ }+ z) j2 P( m x5 P' N7 L) ]! c7 r
还有这个宏命令是AI生成的，不保证有用。
0 M# {7 x0 W; zDim swApp As SldWorks.SldWorks
) r, i1 W- O+ U/ F* s# B& wDim swModel As SldWorks.ModelDoc2
0 k* m1 Q) E; F. xDim swPart As SldWorks.Part
+ Q X. e' S" ]Dim massprops As Variant
* n7 V' B q( c% ~Dim status As Long) T' R7 [* e, P+ O
Dim length As Double x2 l O& z) S0 f- F, e* U
Dim width As Double7 k+ h+ K" |! r2 M5 |6 v( ^4 d
Dim height As Double8 X- z3 H P/ ?) N4 T& r6 F
/ L! J2 E/ g+ |3 i0 p$ A! w
Sub main()
8 l' v) ?* ?$ ~$ b. j Set swApp = Application.SldWorks; |& F) R& e! s0 a: Y' f/ e1 Y
Set swModel = swApp.ActiveDoc$ Y! x7 z5 i6 B3 X
Set swPart = swModel.Part% f; E1 V" L) V# G9 R! |+ `, l
/ ~' E- Z9 `& D: c* K* z1 ~
' 获取零件的外形尺寸
$ t- Z6 |, \8 W8 D+ f# q$ B! k massprops = swPart.GetMassProperties(1, status, True)
3 i9 n. a* M, H9 ?9 d' t7 F2 N length = massprops(0)
1 c) ^0 K ~: P, `) \$ X width = massprops(1)
! Z5 x5 ^3 z2 _; x, L8 L+ N: ]& B height = massprops(2)
. c) y* ~: t0 R, t$ M0 c8 _" i1 F7 F- E4 x" ]; z9 Q. C; W
' 添加自定义属性' `9 ^! \2 Q0 m$ k
swModel.Extension.AddCustomProperty3("长度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)6 F) @. R+ R% X: @) }
swModel.Extension.AddCustomProperty3("宽度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)
% {1 e* C$ e/ R* l L& T5 e9 m1 v swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)
; |; I5 _% v0 O3 s1 y* D- y5 R* v! J. @% F2 m9 ]( g/ i
' 保存文件+ t$ _ G5 \$ Z' T1 l1 [
swModel.Save0 Z2 F8 a% V8 ?/ T8 o+ p9 a- u9 B
End Sub
+ h3 \' L8 o7 x- \( Z q5 ]点击“执行”按钮，开始批量处理文件。 |
发表于 2025-1-10 08:33:23
