Hi i am writing a macro that makes opens a part template and changes the dimensions to make a part. At this point I want to make a drawing and dimension and save. Is there an easy way to do this? thanks!

Sub Sldworkstest()

Dim swApp As SldWorks.SldWorks
Dim swMod As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swDim As SldWorks.Dimension
Dim swDim2 As SldWorks.Dimension
Dim swDim3 As SldWorks.Dimension
Dim swselectionmanager As SldWorks.SelectionMgr
Dim swfeature As SldWorks.Feature
Dim swfeaturedata As SldWorks.ExtrudeFeatureData2
Dim FileName As String
Dim DrawingFileName As String
Dim boolstatus As Boolean
Dim fileerror As Long
Dim filewarning As Long
Dim vConfigNames As Variant
Dim vValue As Variant
 

Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
 
FileName = "C:\\Users\\mm\\Desktop\\App\\Solidworks Files\\A09.sldprt"
 
Set swMod = swApp.OpenDoc6(FileName, swdocpart, swOpenDocOptions_Silent, "", fileerror, filewarning)
 
boolstatus = swMod.Extension.SelectByID2("Structural Material Round", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Set swselectionmanager = swMod.SelectionManager
Set swfeature = swselectionmanager.GetSelectedObject6(1, -1)
 
Set swDim = swfeature.Parameter("Length (L)")
 
fileerror = swDim.SetSystemValue3((PartLength / 39.37), swSetValue_InThisConfiguration, Empty)
 
boolstatus = swMod.Extension.SelectByID2("Profile Sketch", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Set swfeature = swselectionmanager.GetSelectedObject6(1, -1)
 
Set swDim2 = swfeature.Parameter("Outside Diameter (OD)")
 
fileerror = swDim2.SetSystemValue3((PartOD / 39.37), swSetValue_InThisConfiguration, Empty)
 
Set swDim3 = swfeature.Parameter("Inside Diameter (ID)")
 
fileerror = swDim3.SetSystemValue3((PartID / 39.37), swSetValue_InThisConfiguration, Empty)
 
 
swMod.EditRebuild3
swMod.ShowNamedView2 "*Isometric", -1
swMod.ViewZoomtofit2
 
 
boolstatus = swMod.Save3(swSaveAsOptions_Silent, fileerror, filewarning)
 

DrawingFileName = "C:\\Users\\mm\\Desktop\\App\\Solidworks Files\\A09.slddrw"
 
Set swDraw = swApp.OpenDoc6(DrawingFileName, swDocDRAWING, swOpenDocOptions_Silent, "", fileerror, filewarning)

End Sub