概括來說， 等號前都是自訂對象或變量，等號後就是該對象或變量的來源。
逐句說說吧
Sub main() —— 程序開端，sub是必須的；main是程序名稱，可以自行創作。
Set swApp = Application.SldWorks —— Set是VBA本身命令，用來定義對象；swApp 是新建對象的名稱，可以自行創作；Application 是VBA本身函數；SldWorks 是SWAPI對象，用來獲取SW的平台。
Set ModelDoc = swApp.ActiveDoc —— ModelDoc 是新建對象的名稱，可以自行創作；ActiveDoc 是SWAPI對象，用來獲取當前檔案。
If ModelDoc Is Nothing Then MsgBox "Please open a part.": Exit Sub: —— If 是VBA本身函數，邏輯判斷，意思是“如果沒有當前檔案，彈出意思對話框並離開此程序”；Msgbox是VBA本身命令；“:”冒號用來連接本來多行的語句為單行。
If ModelDoc.GetType <> 1 Then MsgBox "Please open a part.": Exit Sub: —— 意思是“如果當前檔案不是零件，彈出意思對話框並離開此程序”；GetType是SWAPI對象，用來獲取當前檔案的類型。1 是零件，2 是組合件，3 是工程圖。
htDocProperty = ModelDoc.MaterialPropertyValues —— 本來應該需要有Let命令開頭（相對Set命令），只是Let命令可以省略的，Let是VBA本身命令，用來定義變量；htDocProperty 是個自行定義變量的名稱，可以自行創作；MaterialPropertyValues 是SWAPI對象，用來獲取色彩參數。
htbodies = ModelDoc.GetBodies2(-1, False) —— htbodies 是個自行定義變量的名稱，可以自行創作；GetBodies 是SWAPI對象，用來獲取本體的陣列；-1 是曲面及實體的本體，0 單純實體的本體，1 曲面的本體；False 連同被隱藏的本體， True只獲取沒被隱藏的本體。
If Not IsEmpty(htbodies) Then —— 意思是“如果不是獲取空值的本體，繼續”；Not 是VBA本身函數，傳回是非反向；IsEmpty 是VBA本身函數，讀取變量是否空值。
For Each htBody In htbodies —— For 是VBA本身函數，一種條件循環，For 有多種語法；Each 是VBA本身函數，從陣列中逐一取出定義變量或對象；htBody 是個自行定義變量的名稱，可以自行創作。
Set Face = htBody.GetFirstFace —— Face 是個自行定義變量的名稱，可以自行創作；GetFirstFace 是SWAPI對象，用來獲取本體的第一個面。
While Not Face Is Nothing —— While 是VBA本身函數，一種條件循環；Is 是VBA本身函數，類似等號，用來判斷對象是否相等（等號用來判斷變量是否相等）；Nothing 是VBA的內設變量，代表空白的對象。意思是“直至面空白才離開”。
Face.MaterialPropertyValues = htDocProperty —— 強行把零件的色彩參數套用到面。（深層移除的關鍵）
Face.RemoveMaterialProperty —— 移除面的色彩參數。
Set Face = Face.GetNextFace —— 下一個面。
Wend —— 對應 While 的循環；Wend 是VBA本身函數。
Next —— 對應 For 的循環；Next 是VBA本身函數。
End If —— 對應 If 完結；End 是VBA本身函數。
ModelDoc.ForceRebuild3 (False) —— 強行重建零件；ForceRebuild3 是SWAPI對象，False 只在組合件有意義，True單單重建頂層，False重建深層組合。
End Sub ——程序完
If Not IsEmpty(htbodies) Then
For Each htBody In htbodies
此兩句肉腳還是不是很能理解 , 引用VB參閱資料 " IsEmpty 函數 = 傳回 Boolean 值，用來指出變數是否已經初始化。"
請問什麼是 變數初始化 ?
依照悶哥的注釋 , 肉腳是理解為
"假如獲取的本體不是空的則繼續逐一提取每一本體做為定義變量"
也就是說將每個本體一一拿出來的意思 ?
發表於 2015/3/11 14:39:09
發表於 2015/3/11 14:56:44
發表於 2015/3/11 15:04:02
樓主
發表於 2015/3/11 18:27:11
發表於 2015/3/11 22:03:25
這回嘿嘿
發表於 2015/3/12 15:05:29
發表於 2015/7/17 02:14:47
發表於 2016/5/12 22:54:49