久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

機械社區

標題: sw批量提取零件外形尺寸 [打印本頁]
作者: 逐夢2020    時間: 2025-1-10 08:33
標題: sw批量提取零件外形尺寸
如題，請問sw怎么批量提取零件外形尺寸并寫進屬性？有沒有宏分享，謝謝！
作者: fiyu1314    時間: 2025-1-10 09:13
插件上有
作者: 逐夢2020    時間: 2025-1-10 09:51
fiyu1314 發表于 2025-1-10 09:134 j4 N' B$ J: s& p
插件上有

! K5 b4 o/ D/ S& | 什么插件？
3 |/ y; ?7 ]$ \& Q! U/ d% d* t/ U
作者: fiyu1314    時間: 2025-1-10 10:49
逐夢2020 發表于 2025-1-10 09:51
  c' l% D0 |7 O2 _- l! J( `什么插件？

) P1 }9 _. N, X2 m( C1 b: q凱元肯定有 麥迪應該也有吧
: c' L' Q% ?$ C( o
" l2 B' s8 e" L0 R% r
作者: 學者11    時間: 2025-1-10 12:00
安裝第三方插件：
2 g+ m9 M6 |8 R0 A! D例如，使用SolidKits BOMs高級BOM工具或SWTDO插件。! V) |' ^) `5 a0 X. ~
下載并安裝插件，按照插件的安裝指南進行操作。
" K+ i9 a7 r( q使用插件功能：
) y' L3 t$ M9 t* L6 s- v1 n打開插件，選擇“批量寫入屬性”功能。, [9 `  k( t  e
選擇需要處理的零件文件或文件夾，設置需要添加的屬性名稱和值。
0 A; U8 J( e) r6 x* J4 Z  `5 E( N1 }
還有這個宏命令是AI生成的，不保證有用。, n' V" w9 N& A( k6 T! W7 F2 V& h
Dim swApp As SldWorks.SldWorks
' L" M( [' A1 Q8 v- i( WDim swModel As SldWorks.ModelDoc2
2 a  m) o7 G3 l, S/ TDim swPart As SldWorks.Part
! x0 W  z1 A' z0 fDim massprops As Variant
4 y2 T) l6 P5 N# }Dim status As Long- |( ?+ E% W+ Z% o! T1 |; O3 x
Dim length As Double2 n) l) ~) ~: Y" r8 D- a
Dim width As Double/ r. |: Y, s3 f! d. q4 E
Dim height As Double* }4 B" i# {; X2 g( T) S& Y& @$ |
/ B: n/ b3 C, ^, M$ ?
Sub main()
3 m" @- T% E" H, M. o9 u    Set swApp = Application.SldWorks- [( y9 x4 `3 v  s7 W. n
    Set swModel = swApp.ActiveDoc! Y; {2 z1 D& v8 H% O
    Set swPart = swModel.Part
. r( X- N) P) @1 Q$ ]1 x/ S% r. M* l( f6 z1 r. r* N- z
    ' 獲取零件的外形尺寸& L6 T5 `8 |  w. y7 H! w# j
    massprops = swPart.GetMassProperties(1, status, True)
- B, b0 ]5 s- o% `* b5 A0 g    length = massprops(0)
2 {6 G+ Q; i% s    width = massprops(1)1 }1 v- f( N' l- k/ P5 j+ U
    height = massprops(2)
- N1 L: l4 h6 r6 F, A) G* |" w
5 i" n( I3 Y. W2 R' l! B    ' 添加自定義屬性% O  C3 l* _0 l2 Q
    swModel.Extension.AddCustomProperty3("長度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)
( x8 ]4 S9 Z7 P6 e5 f' O    swModel.Extension.AddCustomProperty3("寬度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)
/ J6 ?) X/ P- b: J    swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)3 r: ]! I9 V8 `
0 y& ^5 {1 j, v% K7 Z" [) J  p+ |
    ' 保存文件9 ], T2 ^% Q3 C
    swModel.Save
8 m0 y' o" a9 K. M. F; KEnd Sub1 ~: Z! J+ [, s
點擊“執行”按鈕，開始批量處理文件。
作者: tsdt001    時間: 2025-1-10 12:12
平板類的還是鈑金類的？
作者: 讓心放任去流浪    時間: 2025-1-10 12:34
用工具箱？工具箱都有屬性填寫等功能
作者: 逐夢2020    時間: 2025-1-10 14:35
|tsdt001發表于 01-10 12:12平板類的還是鈑金類的？
機加件
作者: tsdt001    時間: 2025-1-11 08:37
只要外形尺寸的話可以用焊接清單生成的



歡迎光臨 機械社區 (http://www.ytsybjq.com/) Powered by Discuz! X3.5