It's working summary

Dim swApp As SldWorks.SldWorks
Sub main()
  Dim SwPart As SldWorks.ModelDoc2
  Dim SwDraw As SldWorks.DrawingDoc
  ''
  Set swApp = Application.SldWorks
  Set SwPart = swApp.ActiveDoc
  Dim oPath As String
  With SwPart
    oPath = Left(.GetPathName, InStrRev(.GetPathName, "\"))
  End With
 
  Set SwDraw = SwPart
 
  Dim myModelView As SldWorks.ModelView
  Set myModelView = SwDraw.ActiveView

  With myModelView
     '.FrameLeft = 0
     '.FrameTop = 21
     .FrameState = 1 'swWindowState_e.swWindowMaximized
  End With
 
  Dim myView As SldWorks.View
  With SwDraw
    Set myView = .CreateDrawViewFromModelView3(oPath & "WNRF.SLDPRT", "*前视", 0.08, 0.1, 0)
    retval = myView.SetName2("DDDD")
    Debug.Print myView.Name

    boolstatus = .ActivateView(myView.Name)
    Set myView1 = .CreateUnfoldedViewAt3(0.08, 0.17, 0, False)
    retval = myView1.SetName2("DDDD1")
    Debug.Print myView1.Name
    boolstatus = .Extension.SelectByID2("WNRF-1@DDDD1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

  End With
 
End Sub