安裝第三方插件：
$ M {5 ~7 i$ e, e/ G- b* ]* P例如，使用SolidKits BOMs高級BOM工具或SWTDO插件。 n. k2 s4 N$ T. a
下載并安裝插件，按照插件的安裝指南進行操作。0 j0 Y3 \" a1 M: h
使用插件功能：
& q1 F4 w& I& S. b, o- d2 f打開插件，選擇“批量寫入屬性”功能。
' Q. _# ^# N: n/ j4 g選擇需要處理的零件文件或文件夾，設置需要添加的屬性名稱和值。# }) y' r: e: [& Z+ ^9 h: q. o" z
' ^! L( z& D: z1 H
還有這個宏命令是AI生成的，不保證有用。, }9 q/ e- v8 t; [# U
Dim swApp As SldWorks.SldWorks5 c% |- Y) k( x/ \1 b, K
Dim swModel As SldWorks.ModelDoc29 T7 ~+ I# J7 v3 d: p
Dim swPart As SldWorks.Part
. `* H0 k" r' c5 A, `- uDim massprops As Variant" |) }3 ]5 r! k% U4 P
Dim status As Long$ W3 o$ K7 o( j
Dim length As Double
1 ^# N4 U$ K# H! sDim width As Double4 B) g4 R1 L, s$ c$ G
Dim height As Double
2 _# ]# `; L% W Y6 m4 h0 h |2 g& ?, q/ B! O0 K
Sub main()1 T8 e) g" m6 }9 s4 l9 O
Set swApp = Application.SldWorks& v9 s6 r$ f2 I$ C" A5 w
Set swModel = swApp.ActiveDoc5 T& i3 B$ r5 x3 k
Set swPart = swModel.Part! ~' ~1 z" H- u$ d
, O$ d+ z) {5 `
' 獲取零件的外形尺寸: o$ X P8 E! i
massprops = swPart.GetMassProperties(1, status, True)9 Q( l0 x. R. f+ y7 H/ x
length = massprops(0), ?/ t5 r3 J4 Q6 u! \
width = massprops(1)* p' C: v0 U! S5 B
height = massprops(2)
, v m5 a9 X. |+ ]- \# p! A5 K, ^9 C V4 V) U' i# W
' 添加自定義屬性3 K0 O# Q- u* _
swModel.Extension.AddCustomProperty3("長度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue): E. \5 J! l( X9 v/ M- S
swModel.Extension.AddCustomProperty3("寬度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)
9 J+ e7 l5 q" p swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)
8 E2 c- z* ?5 @1 d, }; k) Q% x2 i9 } y
' 保存文件" \$ u# Q9 y: l, M3 v0 f
swModel.Save
6 f1 d; d: V' x Y/ S( LEnd Sub# n3 j! M& l# l; W6 Z3 N# \" ?
點擊“執行”按鈕，開始批量處理文件。 |
發表于 2025-1-10 08:33:23
QQ好友和群
QQ空間
