' Add dimensions (example for a simple part)

 Dim modelDocExt As Object

 Set modelDocExt = Part.Extension



 ' Assuming we want to add dimensions for a box-like part

 boolstatus = View.AddDimension2(0, 0.05, 0)

 boolstatus = View.AddDimension2(0.05, 0.05, 0)

 boolstatus = View.AddDimension2(0.05, 0, 0)



 ' Activate drawing

 Drawing.Activate



 ' Rebuild the drawing

 Drawing.EditRebuild3



 ' Save the drawing

 Dim drawingFilePath As String

 drawingFilePath = "C:pathtoyourdrawingfile.slddrw"

 Drawing.SaveAs (drawingFilePath)



 ' Close the part document

 swApp.CloseDoc (partFilePath)

 

 MsgBox "Drawing created and saved successfully!", vbInformation



End Sub

Dim swApp As Object

Dim Part As Object

Dim Drawing As Object

Dim Sheet As Object

Dim View As Object



Sub main()



 ' Connect to SolidWorks

 Set swApp = Application.SldWorks



 ' Open the part file

 Dim partFilePath As String

 partFilePath = "C:pathtoyourpartfile.sldprt"

 Set Part = swApp.OpenDoc(partFilePath, 1) ' 1 denotes part document



 ' Create a new drawing document

 Set Drawing = swApp.NewDocument("C:ProgramDataSOLIDWORKSSOLIDWORKS 2022templatesDrawing.drwdot", 3, 0, 0)

 Set Sheet = Drawing.GetCurrentSheet



 ' Insert a standard view (Front View)

 boolstatus = Drawing.Create3rdAngleViews2(partFilePath)



 ' Get the front view

 Set View = Drawing.GetFirstView

 Set View = View.GetNextView



 ' Zoom to fit

 swApp.ZoomToFit2