视频教程

宏代码

' ******************************************************************************
' 博士钣金
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

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

t = Part.GetType

If t <> 3 Then
Exit Sub
End If

Part.ClearSelection2 True
Dim firstAngle
firstAngle = True ' false为第三视角

Names = Part.GetSheetNames

For i = 0 To UBound(Names)

        Part.ActivateSheet (Names(i))
  
        Dim CurrentSheet As Sheet
        
        Set CurrentSheet = Part.GetCurrentSheet
   
        props = CurrentSheet.GetProperties
   
        Call CurrentSheet.SetProperties(props(0), props(1), props(2), props(3), firstAngle, props(5), props(6))

Next i


End Sub