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