|
|
5#
發(fā)表于 2025-1-10 12:00:52
|
只看該作者
安裝第三方插件：/ z* m$ k% ^1 G. t: w: \8 M. f
例如,，使用SolidKits BOMs高級(jí)BOM工具或SWTDO插件,。" ]+ J; t. e$ j2 z+ X
下載并安裝插件，按照插件的安裝指南進(jìn)行操作,。
) R) }+ U1 U: w+ @/ y7 s' ?使用插件功能：% O( w7 k/ t5 ?8 a* E% \. n
打開插件，選擇“批量寫入屬性”功能,。
3 I0 f9 F0 y: o' y: E選擇需要處理的零件文件或文件夾,，設(shè)置需要添加的屬性名稱和值。
1 U: m/ I7 K+ X3 k# m9 H# K. n% r \. g
還有這個(gè)宏命令是AI生成的，不保證有用,。
& l- q6 B) G, @) dDim swApp As SldWorks.SldWorks- \. s# E; C& J! c
Dim swModel As SldWorks.ModelDoc2
0 ]: n" T7 _) _0 w3 QDim swPart As SldWorks.Part7 I5 m6 g$ G! @) ~: [, V
Dim massprops As Variant
& T) i$ F" `# |' h; _Dim status As Long" O) l5 T3 D- Y. N3 X
Dim length As Double
# [6 g5 N! o B" QDim width As Double3 R, P: s% L" ]: k
Dim height As Double
. N# w( V4 c8 T* N: Y
" r: Q( W3 k( T9 j! S" K$ O; KSub main()- r$ T5 z; [5 N- k
Set swApp = Application.SldWorks
8 o, [# F$ y7 ^" Y! V Set swModel = swApp.ActiveDoc
1 s7 ]8 I0 \' F; } Set swPart = swModel.Part
5 v7 ?) T! @' G" H4 B3 I
5 G# J5 g& `$ C1 a! Y ' 獲取零件的外形尺寸
# P* m7 n; @, |' \ massprops = swPart.GetMassProperties(1, status, True)
1 r# b2 n5 Z/ o4 a6 V4 G7 @ length = massprops(0)6 i1 D# d" @/ ^
width = massprops(1)% L$ ~& C8 I7 ?5 f6 ^! s' _; ?
height = massprops(2)
" t8 x! S) F0 _/ f# @( q% W8 k U- g* u, {+ {3 f4 N1 w
' 添加自定義屬性
" M8 S- E: d8 L# o7 e" G( K swModel.Extension.AddCustomProperty3("長(zhǎng)度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)
. P# v: ^/ \3 g' u: ^; v5 [. W swModel.Extension.AddCustomProperty3("寬度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)$ F9 f8 o% Q0 p7 M: n3 i
swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)
0 b D6 T V6 H6 C9 [6 ?/ `2 L8 t! T3 J
' 保存文件
! a8 o# I/ Y) @, h! i swModel.Save9 _0 d" v. R- w! B
End Sub
5 f( m1 c$ ]4 t; m, t! S# O8 T點(diǎn)擊“執(zhí)行”按鈕,，開始批量處理文件。 |
|
QQ好友和群
收藏
淘帖
問題專業(yè),，描述清楚
伸手黨/灌水/看不懂
樓主