A. 請問這段VBA代碼實現什麼功能
Set swApp = Application.SldWorks '設定swApp= 應用程序的SldWorks
Set swModel = swApp.ActiveDoc '設定swModel= swApp的ActiveDoc
If swModel Is Nothing Then '如果 swModel 是 空值 則執行
MsgBox "The is nothing drawing for option" '<消息框>："The 是 空值drawing以option"
Exit Sub '退出子程序
End If 'If判斷過程結束
If swModel.GetType <> swDocDRAWING Then '如果 swModel的GetType 不等於 swDocDRAWING 則執行
MsgBox "please open the solidworks drawing file" '<消息框>："please打開文件 thesolidworksdrawingfile"
Exit Sub '退出子程序
End If 'If判斷過程結束
Set swDraw = swModel '設定swDraw=swModel
SheetQty = swDraw.GetSheetNames 'SheetQty= swDraw的GetSheetNames
For i = 0 To UBound(SheetQty) '設定變數范圍為i=0到<數組上限>(SheetQty)
SwSheetName = SheetQty(i) 'SwSheetName=SheetQty(i)
swDraw.ActivateSheet (SwSheetName) ' swDraw的ActivateSheet(SwSheetName)
Set swSheet = swDraw.GetCurrentSheet '設定swSheet= swDraw的GetCurrentSheet
Set swView = swDraw.GetFirstView '設定swView= swDraw的GetFirstView
While Not swView Is Nothing '當條件 非 swView 是 空值
If False = bRet Then '如果 False=bRet 則執行
If SwSheetName <> swView.GetName2 Then '如果 SwSheetName 不等於 swView的GetName2 則執行
swDraw.ActivateView (swView.GetName2) ' swDraw的ActivateView( swView的GetName2)
Set swView = swDraw.ActiveDrawingView '設定swView= swDraw的ActiveDrawingView
part11 = swView.GetReferencedModelName 'part11= swView的GetReferencedModelName
Set swModel = swApp.GetOpenDocumentByName(part11) '設定swModel= swApp的GetOpenDocumentByName(part11)
If i > 0 Then '如果 i>0 則執行
If CStr(CStr(swModel.CustomInfo("drawing number"))) <> "" Then '如果 <轉換為字元串>(<轉換為字元串>( swModel的CustomInfo("drawing number"))) 不等於 空值 則執行
If CStr(ss) = CStr(swModel.CustomInfo("drawing number")) Then '如果 <轉換為字元串>(ss)=<轉換為字元串>( swModel的CustomInfo("drawing number")) 則執行
swSheet.SetName swModel.CustomInfo("drawing number") & "-01" ' swSheet的SetName swModel的CustomInfo("drawing number") & "-01"
ss = swModel.CustomInfo("drawing number") & "-01" 'ss= swModel的CustomInfo("drawing number") & "-01"
swDraw.SheetPrevious ' swDraw的SheetPrevious
Set swSheet = swDraw.GetCurrentSheet '設定swSheet= swDraw的GetCurrentSheet
Set swView = swDraw.GetFirstView '設定swView= swDraw的GetFirstView
swSheet.SetName swModel.CustomInfo("drawing number") & "-00" ' swSheet的SetName swModel的CustomInfo("drawing number") & "-00"
swApp.QuitDoc (part11) ' swApp的QuitDoc(part11)
swModel.Rebuild (tt) ' swModel的Rebuild(tt)
GoTo cc: ' 跳至 cc:
ElseIf ss = swModel.CustomInfo("drawing number") And _ '另外如果ss= swModel的CustomInfo("drawing number") 並且 _
VBA.Left(ss, Len(ss) - 3) = swModel.CustomInfo("drawing number") Then ' VBA的<截取字元串左側>(ss,<字元串長度值>(ss)-3)= swModel的CustomInfo("drawing number") 則執行
swSheet.SetName swModel.CustomInfo("drawing number") & "-0" & (VBA.Right(ss, 1) + 1) ' swSheet的SetName swModel的CustomInfo("drawing number") & "-0" & ( VBA的截取字元串右側(ss,1)+1)
ss = swModel.CustomInfo("drawing number") & "-0" & (VBA.Right(ss, 1) + 1) 'ss= swModel的CustomInfo("drawing number") & "-0" & ( VBA的截取字元串右側(ss,1)+1)
swApp.QuitDoc (part11) ' swApp的QuitDoc(part11)
swModel.Rebuild (tt) ' swModel的Rebuild(tt)
GoTo cc: ' 跳至 cc:
Else: '另外:
swSheet.SetName swModel.CustomInfo("drawing number") ' swSheet的SetName swModel的CustomInfo("drawing number")
ss = swModel.CustomInfo("drawing number") 'ss= swModel的CustomInfo("drawing number")
swApp.QuitDoc (part11) ' swApp的QuitDoc(part11)
swModel.Rebuild (tt) ' swModel的Rebuild(tt)
GoTo cc: ' 跳至 cc:
End If 'If判斷過程結束
End If 'If判斷過程結束
Else '另外
swSheet.SetName swModel.CustomInfo("drawing number") ' swSheet的SetName swModel的CustomInfo("drawing number")
ss = swModel.CustomInfo("drawing number") 'ss= swModel的CustomInfo("drawing number")
swApp.QuitDoc (part11) ' swApp的QuitDoc(part11)
GoTo cc: ' 跳至 cc:
End If 'If判斷過程結束
End If 'If判斷過程結束
End If 'If判斷過程結束
Set swView = swView.GetNextView '設定swView= swView的GetNextView
Wend 'Wend
cc: 'cc:
Next i '下一個i
swModel.Save ' swModel的保存
End Sub '子程序結束