Const TemplateName As String = "F:\BE(J)S\MatDrtTbt\me.drwdot"
Const TemplateSize As Long = swDwgTemplateBsize
Const PaperSize As Long = swDwgPaperBsize
Const ScaleNum As Double = 1#
Const ScaleDenom As Double = 2#

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim Response As Integer
Dim ThirdAngle As Boolean
Dim swDraw As SldWorks.DrawingDoc
Dim ConfigNamesArray As Variant
Dim ConfigName As Variant
Dim i As Long
Dim retval As Boolean
Dim swView As SldWorks.View

Sub main()
    Dim Tt
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel
    ConfigNamesArray = swModel.GetConfigurationNames
    Debug.Print swModel.GetPathName
    Debug.Print
    Tt = "F:\BE(J)S\BES1800-2.5-1365-9／25-2I\件号6-5筒体.SldPrt"
    'For i = 0 To UBound(ConfigNamesArray)
        ConfigName = "aa1"
        'retval = swDraw.NewSheet3(ConfigName, TemplateSize, _
                PaperSize, ScaleNum, ScaleDenom, Not ThirdAngle, "", _
                0#, 0#, "")
        swDraw.NewSheet3 "aa2", 12, 12, 1, 2, True, "F:\BE(J)S\MatDrtTbt\me.slddrt", 0.42, 0.297, ""
            retval = swDraw.Create1stAngleViews2(Tt)
    swDraw.ForceRebuild
    'Next i
End Sub