sw批量提取零件外形尺寸

逐夢2020

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

fiyu1314

插件上有

逐夢2020

fiyu1314 發表于 2025-1-10 09:13
3 @% ^' ^4 n: \3 K2 W插件上有

# ]4 H7 x8 a" ~: d6 X# m- i 什么插件？

fiyu1314

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

凱元肯定有 麥迪應該也有吧
! H. e) X3 X; _* b
" S3 m3 }8 Y# |- N( v% S

學者11

安裝第三方插件：
例如，使用SolidKits BOMs高級BOM工具或SWTDO插件。
. P+ q* a, l" X4 \1 `  [下載并安裝插件，按照插件的安裝指南進行操作。
使用插件功能：
) m/ K* w% E0 t1 Y, k' h打開插件，選擇“批量寫入屬性”功能。
選擇需要處理的零件文件或文件夾，設置需要添加的屬性名稱和值。

還有這個宏命令是AI生成的，不保證有用。
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.Part
9 k7 u( l% E' G5 n) f8 z8 v; QDim massprops As Variant
5 P1 K! _+ ^3 L0 r& \0 eDim status As Long
Dim length As Double
( o- M: t6 j  b4 H6 r" r3 JDim width As Double
Dim height As Double
  m. S  C1 b: r
  R# M; `8 s' z% `! G- DSub main()
    Set swApp = Application.SldWorks
7 `( d  o+ D1 e; x. [    Set swModel = swApp.ActiveDoc
' K& g3 T8 ^6 F+ ], ?, w. B" I& K    Set swPart = swModel.Part
# p$ ^5 n6 s! N, K/ f$ V4 m
" y- b/ x  s, b2 Y    ' 獲取零件的外形尺寸
) F  J3 |9 S; M, B: L) o    massprops = swPart.GetMassProperties(1, status, True)
7 a+ r% Q- s' ~/ k, b) Y8 M" n9 w    length = massprops(0)
    width = massprops(1)
    height = massprops(2)
9 @: _( J) }% E* {# U8 D* i% W# e
) G* G& G% o* _7 F4 Z7 P* H8 H    ' 添加自定義屬性
    swModel.Extension.AddCustomProperty3("長度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)
    swModel.Extension.AddCustomProperty3("寬度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)
" ^/ [5 d: v' j: N4 \4 A8 r0 p    swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)

    ' 保存文件
    swModel.Save
0 F4 g0 d  l: N( c7 M# p8 I+ kEnd Sub
5 B% F" t: T) X! E; {點擊“執行”按鈕，開始批量處理文件。

tsdt001

平板類的還是鈑金類的？

讓心放任去流浪

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

逐夢2020

|tsdt001發表于 01-10 12:12平板類的還是鈑金類的？

機加件

tsdt001

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