久久大香萑太香蕉av丨樱花草在线社区www日本影院丨婷婷久久五月丨久综合网丨久久伊人99丨久草免费av丨狠狠狠色丨国产精品天天干丨日产精品久久久久久久蜜臀丨国内揄拍国内精品少妇国语丨蜜桃av鲁一鲁一鲁一鲁俄罗斯的丨丰满人妻一区二区三区免费视频丨日韩日比视频丨九九视频精品在线丨性av+色av丨av一区二区三区在线观看丨婷婷色站丨台湾佬自拍偷区亚洲综合丨波多野结衣乱码中文字幕丨无码中文字幕乱码一区

<object id="r0drw"><blockquote id="r0drw"></blockquote></object>

機械社區

標題: 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:13
( f3 x3 L# {" z3 X/ m插件上有

什么插件？

作者: fiyu1314 時間: 2025-1-10 10:49

逐夢2020 發表于 2025-1-10 09:51/ g' X# ~2 w4 i
什么插件？

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

作者: 學者11 時間: 2025-1-10 12:00
安裝第三方插件：
例如，使用SolidKits BOMs高級BOM工具或SWTDO插件。
下載并安裝插件，按照插件的安裝指南進行操作。
使用插件功能：
打開插件，選擇“批量寫入屬性”功能。
選擇需要處理的零件文件或文件夾，設置需要添加的屬性名稱和值。

還有這個宏命令是AI生成的，不保證有用。
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.Part
Dim massprops As Variant
Dim status As Long
Dim length As Double
Dim width As Double
Dim height As Double

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swPart = swModel.Part

' 獲取零件的外形尺寸
massprops = swPart.GetMassProperties(1, status, True)
length = massprops(0)
width = massprops(1)
height = massprops(2)

' 添加自定義屬性
swModel.Extension.AddCustomProperty3("長度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)
swModel.Extension.AddCustomProperty3("寬度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)
swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)

' 保存文件
swModel.Save
End Sub
點擊“執行”按鈕，開始批量處理文件。

作者: 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.hrhome.com.cn/)