|
發表於 2016/3/6 13:26:00
|
顯示全部樓層
悶人估計翔仔的問題重點是『程式碼如何配合不同名稱的組態?』
***如果悶人估計錯誤,以下文章可以不理。***
獲取當前組態名稱的方法:
先用GetActiveConfiguration獲取組態(物件),再用Name獲取其名稱,語句如下:
Part.GetActiveConfiguration.Name
將這語句取代所有的"預設"(必須連同引號一起取代)
順帶一提,錄製的巨集通常需要略作修正,例如:
1. boolstatus = Part.Extension.SelectByID2("預設", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0) 是沒用的,可以整句刪除。
2. Set swApp = _ 隔行 Application.SldWorks 可以改為 Set swApp = Application.SldWorks
3. boolstatus = Part.EditConfiguration3(Part.GetActiveConfiguration.Name, Part.GetActiveConfiguration.Name, "", "", 38)
可以改為 Part.EditConfiguration3 Part.GetActiveConfiguration.Name, Part.GetActiveConfiguration.Name, "", "", 38
按照這樣修改,應該可以解決翔仔的困擾。
不過,這巨集會清空組態某些屬性(Comment, Alternatename),雖然可用但存在隱患,就當作這是個學習過程吧。
建議使用函數:ChildComponentDisplayInBOM(2014 SP3 及往後版本才支持)
倘若翔仔有興趣探討才繼續討論吧,免得又一次變成一廂情願的悶討論。 |
|