sw批量提取零件外形尺寸

逐夢2020

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

fiyu1314

插件上有

逐夢2020

fiyu1314 發(fā)表于 2025-1-10 09:13
: y3 i" T/ L+ e1 v7 V, S, ]插件上有

什么插件,？
/ G1 z. i- v% I- _$ o# O, d

fiyu1314

逐夢2020 發(fā)表于 2025-1-10 09:51
1 [# M, U4 |' N  U什么插件,？

凱元肯定有 麥迪應該也有吧

1 f+ f7 z* `4 y! V, Z! j: R2 _2 ~

學者11

安裝第三方插件：
例如，使用SolidKits BOMs高級BOM工具或SWTDO插件,。
, \; l) d% a+ A7 F下載并安裝插件,，按照插件的安裝指南進行操作。
使用插件功能：
打開插件,，選擇“批量寫入屬性”功能,。
9 b) I5 O+ R4 k0 H' z& a' s6 ~$ P選擇需要處理的零件文件或文件夾，設置需要添加的屬性名稱和值,。
# d8 M, X1 ^# o, p, V7 s9 k
還有這個宏命令是AI生成的,，不保證有用,。
: d& ^5 w- y* t/ ]! @7 L1 NDim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
  P" ], Q+ [- S3 a3 F% k7 ZDim swPart As SldWorks.Part
Dim massprops As Variant
Dim status As Long
Dim length As Double
: S) _1 ]; i+ o$ ^1 Y* P$ C/ B) HDim width As Double
. d& @# a% D6 {& LDim height As Double
$ E! S: S/ K* K6 g: }% b
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swPart = swModel.Part

+ b$ {  m$ O# k    ' 獲取零件的外形尺寸
    massprops = swPart.GetMassProperties(1, status, True)
    length = massprops(0)
    width = massprops(1)
# B0 }0 X/ y7 X/ Y$ k6 I6 r4 x    height = massprops(2)

    ' 添加自定義屬性
. C+ R9 T3 H, t8 N    swModel.Extension.AddCustomProperty3("長度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)
$ K7 R* y2 ~0 O& ^5 H6 z. N- X    swModel.Extension.AddCustomProperty3("寬度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)
# y( B/ f& w- s- F5 @6 A/ ~    swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)

0 b% E7 t+ D3 K7 k, D  H% N    ' 保存文件
8 P+ Z. J2 p8 _$ Y5 Q    swModel.Save
! Q3 o) a; n9 v2 ^- |3 d+ o6 VEnd Sub
2 x) E) q% z7 Y6 m點擊“執(zhí)行”按鈕,，開始批量處理文件。

tsdt001

平板類的還是鈑金類的,？

讓心放任去流浪

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

逐夢2020

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

機加件

tsdt001

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