sw批量提取零件外形尺寸

逐夢2020

如題,，請問sw怎么批量提取零件外形尺寸并寫進屬性,？有沒有宏分享,，謝謝,！

fiyu1314

插件上有

逐夢2020

fiyu1314 發(fā)表于 2025-1-10 09:13
. h% _6 x; N4 w0 k! z插件上有

什么插件,？
! z& @6 v; c7 _" d

fiyu1314

逐夢2020 發(fā)表于 2025-1-10 09:51
什么插件？

凱元肯定有 麥迪應該也有吧
4 r* r9 }  E) x% B9 q& U3 V
# g! i( Y% w! e. H

學者11

安裝第三方插件：
例如,，使用SolidKits BOMs高級BOM工具或SWTDO插件,。
* V$ a' a3 t: O0 L8 P下載并安裝插件，按照插件的安裝指南進行操作,。
使用插件功能：
打開插件,，選擇“批量寫入屬性”功能,。
6 a& C  I4 `2 v5 T* e; `6 H選擇需要處理的零件文件或文件夾，設置需要添加的屬性名稱和值,。

4 |+ u) y7 U* K; T還有這個宏命令是AI生成的,，不保證有用。
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.Part
) X4 D% B$ r5 w  P5 P7 Z! |Dim massprops As Variant
" }3 P5 S8 {/ l; k" xDim status As Long
Dim length As Double
Dim width As Double
: q. m4 a3 e) U/ z; g7 T4 p, \Dim height As Double

( x/ M8 A$ F6 N7 G/ t# fSub main()
; n: I* s* E7 Y- f    Set swApp = Application.SldWorks
) D( b2 r4 _8 m0 A+ X* m6 M4 E    Set swModel = swApp.ActiveDoc
    Set swPart = swModel.Part
; T4 p( L$ H; d( d4 l8 a% _: j
    ' 獲取零件的外形尺寸
    massprops = swPart.GetMassProperties(1, status, True)
; a9 A# N, ^: f/ F- {* R    length = massprops(0)
    width = massprops(1)
    height = massprops(2)
7 ~% r& ?% l& E& X! A3 q/ k% {/ s1 U3 }
    ' 添加自定義屬性
* Y1 e' W( W# C7 I! C    swModel.Extension.AddCustomProperty3("長度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)
    swModel.Extension.AddCustomProperty3("寬度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)
    swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)

* r6 }$ V( ]! T+ S  X    ' 保存文件
. C" ^' ]/ Y, R    swModel.Save
End Sub
4 d2 M5 n" ~* w) N" d8 o- A點擊“執(zhí)行”按鈕,，開始批量處理文件,。

tsdt001

平板類的還是鈑金類的？

讓心放任去流浪

用工具箱,？工具箱都有屬性填寫等功能

逐夢2020

|tsdt001發(fā)表于 01-10 12:12平板類的還是鈑金類的,？

機加件

tsdt001

只要外形尺寸的話可以用焊接清單生成的