安裝第三方插件：& a8 v/ K# H& l% \
例如，使用SolidKits BOMs高級BOM工具或SWTDO插件。. X7 @# c. C9 o7 y8 {
下載并安裝插件，按照插件的安裝指南進行操作。
, `, c5 r0 q+ t2 \/ j使用插件功能：
: J8 V4 W# g+ k; p' s5 j打開插件，選擇“批量寫入屬性”功能。
4 y8 f2 ~: S* D8 k6 J; P; ~ A選擇需要處理的零件文件或文件夾，設置需要添加的屬性名稱和值。8 ~ i" u% m7 l; C
7 ^- L$ F: q- x4 o還有這個宏命令是AI生成的，不保證有用。, @ j+ t# w. E2 c5 G# k: h
Dim swApp As SldWorks.SldWorks/ G; I! g7 q6 u- U
Dim swModel As SldWorks.ModelDoc2: G1 B3 p- }0 N, F0 C
Dim swPart As SldWorks.Part
( Q: {* f7 o0 b+ B- K% b7 l7 {& S) ?Dim massprops As Variant
7 T4 k7 [3 X5 NDim status As Long; l6 K9 |3 |& i- y( G
Dim length As Double, R! |8 o3 t4 S$ E) _, K) {7 x, N
Dim width As Double1 N$ l# g% J$ B5 h% c$ \
Dim height As Double$ V1 v5 L" O* K d+ w
. H* a2 f% l; [, Q" O8 }
Sub main()
- E1 O3 x. o! C$ r* h* \% j Set swApp = Application.SldWorks
; o* B" L9 `# @" v" z* y; i Set swModel = swApp.ActiveDoc
3 H1 q. B7 z' ^1 I# d, K Set swPart = swModel.Part
+ O. Z0 ]7 j; V# T$ Z% i& H: g, b# T6 q. a) t7 C
' 獲取零件的外形尺寸& H% m/ a- ]8 e7 q" r6 o
massprops = swPart.GetMassProperties(1, status, True)& V/ X3 }/ b3 `) e; J
length = massprops(0)1 {1 q" V7 Z0 E5 W" ?5 v
width = massprops(1)) Q( u& X0 A$ |" n- K$ l: o
height = massprops(2); I8 L) ~6 H, e! i7 F. U' T f
5 s8 J% X2 Y) a- A" [7 ^
' 添加自定義屬性
+ l: g8 G6 L( s swModel.Extension.AddCustomProperty3("長度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)
" d L- l% U- E swModel.Extension.AddCustomProperty3("寬度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)* _, r- ^9 S! i8 k% W6 W3 W
swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)2 @ O% `! a5 G$ J* o
! m. p: B/ R- N0 C3 e4 v' g( v
' 保存文件
- _5 V$ ^8 B$ O& w1 C swModel.Save
6 Y! h$ E( X6 ^4 l1 mEnd Sub% A) w% a h% s. i8 S8 l
點擊“執行”按鈕，開始批量處理文件。 |
發表于 2025-1-10 08:33:23
QQ好友和群
QQ空間
