【遍歷宏】在總裝配內零件的自定義屬性寫入配套數量（開放代碼）

whitesjw

   经典图书

相關討論：
SolidWorks机械工程师论坛
SolidWorks机械工程师论坛
例子“整套微型電控銑床裝配”的下載地址：
SolidWorks机械工程师论坛
經過深思熟慮，悶人從自己一直用開及冗長不堪的宏中精簡出以下代碼：

Dim TopDocPathOnly As String
Dim PartsCollect() As String '遍歷清單（陣列）
Dim InCollectCount As Double '遍歷清單長度
Dim CustomInfoQTY As String
Sub main()
Set swApp = Application.SldWorks '騷窩對象
Set TopDoc = swApp.ActiveDoc '總裝對象
If TopDoc.GetType  2 Then Exit Sub '不是裝配=退出
TopDocPathSplit = Split(TopDoc.GetPathName, "") '分割
TopDocName = TopDocPathSplit(UBound(TopDocPathSplit)) '總裝文件名稱
TopDocName = Left(TopDocName, Len(TopDocName) - 7) '總裝文件名稱（排除.SLDASM）
TopDocPathOnly = TopDocPathSplit(UBound(TopDocPathSplit) - 1) '總裝目錄名稱
TopConfString = TopDoc.GetActiveConfiguration.Name '總裝配置名稱
CustomInfoQTY = InputBox("自定義屬性名稱", "遍歷" & TopDocName, "用於" & TopDocName & "的數量") '可按個人喜好修改預設值
If CustomInfoQTY = "" Then Exit Sub '按下取消離開宏
InCollectCount = 1 '遍歷清單長度基數
ReDim PartsCollect(InCollectCount) '定義陣列項數
SubAsm TopDoc, TopConfString '遍歷
End Sub
Function SubAsm(AsmDoc, ConfString)
Set Configuration = AsmDoc.GetConfigurationByName(ConfString)
Set RootComponent = Configuration.GetRootComponent
Components = RootComponent.GetChildren
For Each Child In Components
Set ChildModel = Child.GetModelDoc
If Not (ChildModel Is Nothing) Then '排除抑制及輕化
ChildConfString = Child.ReferencedConfiguration '零件配置名稱
ChildType = ChildModel.GetType
If ChildType = 2 Then
SubAsm ChildModel, ChildConfString '如果是裝配則向下遍歷
Else
ChildPathSplit = Split(Child.GetPathName, "") '分割
ChildName = ChildPathSplit(UBound(ChildPathSplit)) '零件文件名稱
ChildPathOnly = ChildPathSplit(UBound(ChildPathSplit) - 1) '零件目錄名稱
If ChildPathOnly = TopDocPathOnly Then SamePath = True Else SamePath = False '是否在總裝目錄
If SamePath And (Not Child.ExcludeFromBOM) And (Not Child.IsEnvelope) Then '跳過：不在總裝目錄 及 不包括在材料明細表中 及 封套
UNIT_OF_MEASURE_Name = ChildModel.CustomInfo2(ChildConfString, "UNIT_OF_MEASURE") '備用量屬性名稱
UNIT_OF_MEASURE = ChildModel.CustomInfo2(ChildConfString, UNIT_OF_MEASURE_Name) '備用量
If (UNIT_OF_MEASURE = 0) Or (UNIT_OF_MEASURE = "") Then UNIT_OF_MEASURE = 1 '備用量除錯
inCollect = False '重置判斷變量
For Each PartinCollect In PartsCollect '判斷是否已在遍歷清單內
If ChildConfString & "@" & ChildName = PartinCollect Then inCollect = True
Next
If inCollect Then '已在遍歷清單內
ht_Qty = ChildModel.CustomInfo2(ChildConfString, CustomInfoQTY) + 1 * UNIT_OF_MEASURE
ChildModel.DeleteCustomInfo2 ChildConfString, CustomInfoQTY
ChildModel.AddCustomInfo3 ChildConfString, CustomInfoQTY, 30, ht_Qty
Else '不在遍歷清單內（首次處理）
ChildModel.DeleteCustomInfo2 ChildConfString, CustomInfoQTY
ChildModel.AddCustomInfo3 ChildConfString, CustomInfoQTY, 30, UNIT_OF_MEASURE
InCollectCount = InCollectCount + 1
ReDim Preserve PartsCollect(InCollectCount) '重新定義陣列項數（保留內含數據）
PartsCollect(InCollectCount - 1) = ChildConfString & "@" & ChildName '加入到遍歷清單中
ChildModel.SetUserPreferenceIntegerValue swUnitsMassPropMass, swUnitsMassPropMass_Kilograms '單位設定為kg（可按喜好加入設定）
End If
End If
End If
End If
Next
End Function

复制代码
<font size="6"><strong><font color="Red">鄭重聲明：此宏不存在實時關聯，只是一次性的程序，倘若修改設計後，必須再咝幸淮巍

wangsc008

这个问题两个论坛讨论挺热烈，先学习学习大侠的技巧。

☆☆☆光璀璨

   经典图书

裝配體直觀功能的確不錯，但是會連同“封套”及“不包括在材料明細表中”的零件都一併計算，又沒有計算到“備用量”，出來的數量可能存在偏差。
甚麼是“備用量”呢？就是在自定義屬性中加上一個指定的倍數，可以用一個零件代表多個零件的方法。
相關討論：
SolidWorks机械工程师论坛
以下例子中，『機腳』容易在咻敃r損壞，改為到現場才安裝又會出現跌丟的情況，由於不是標準件，一旦遺失或損壞，就要工場重做，頗為麻煩。只要在『機腳』零件加上相應的自定義屬性，BOM內的數量就會自動乘以這個倍數，例子的倍數是2，『機腳』數量就是8件了。不難發現，裝配體直觀功能是不會計算這個倍數的。

happy

以下例子，
『110903-Ceiling_』只是吊頂的示意，
『110903-Ceiling_#』用來關聯數據，
兩者均從BOM排除了，但在“裝配體直觀”中依然存在數量。

r2g78y7868

   经典案例图书

操作過程。

sky-solidwizard

來頂頂工程师的帖子，偶先去細細閱讀相關帖子先……

qiuhonghui

   经典案例图书

认真学习，谢谢大侠  

an1r517dmd

感谢大侠无私奉献

时间不够用

感谢大侠无私奉献

map

   经典图书

回复后再学习，谢大侠分享。

cwseven2006

謝謝分享,研習了!

白毛浮绿水

感谢分享，测试下

虹影5402

新年第一贴，谢大侠分享

shlinzh

学习~~~~~~~~~~~

非酷

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢大侠回复，期待教程

wenhong_teng

   经典案例图书

刪除下圖紅框中的代碼，就可以一併處理不同文件夾的零件。

修改下圖籃框中的代碼，就可以更貼切自身的素求。

ps：文件夾=目錄，一般在硬盤的文件夾悶人都會叫做“目錄”，以避免混淆特徵樹的“文件夾”。

mexxjet

加入QQ群
参与讨论和学习

或扫描二维码加入

多谢大侠分享，学习一下。

comehere

   经典案例图书

再一次表示感谢。按大侠指导，成功！

14101002

木瓜老兄绝对是高人，一会儿美女一会儿骷髅的

vinchow

谢谢分享好源码，宏确实能解决非常复杂的问题，
收藏学习了。