AnsweredAssumed Answered

runtime error 424 while CreateCenterRectangle

Question asked by Raumik Rana on Dec 3, 2017
Latest reply on Dec 4, 2017 by Nilesh Patel

Dim swApp As SldWorks.SldWorks

Dim part As SldWorks.ModelDoc2

Dim boostatus As Boolean

Dim longWarnings As Long, longstatus As Long

Dim swSM As SldWorks.SketchManager

Dim swSegment As SldWorks.SketchSegment

 

 

Sub main()

 

 

Set swApp = Application.SldWorks

 

 

Set part = swApp.NewDocument("C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2016\templates\Part.prtdot", 0, 0, 0)

boolstatus = part.SelectByID("FRONT PLANE", "Plane", 0, 0, 0)

part.SketchManager.InsertSketch True

 

 

Set swSM = part.SketchManager

Set swSegment = swSM.CreateCenterRectangle(0, 0, 0, 1, 1, 0)

 

End Sub

 

 

when I am trying to createcenterrectangle using this code i get error message runtime eror '424'.

Please help me to find out what's wrong in this code.

Attachments

Outcomes