2 Replies Latest reply on Mar 21, 2014 2:44 PM by Juan Pablo Vargas B

    How to create a Circle in another Plane?

    Juan Pablo Vargas B

      Hi everyone

       

      I have problems to create a circle in another plane, I do not know what code is missing

       

      Any help and suggestion is very welcome.

       

      Thank you in advance

       

      This is my code:

       

      Dim Part As Object

      Dim boolstatus As Boolean

      Dim longstatus As Long, longwarnings As Long

       

      Sub main()

       

      Set swApp = _

      Application.SldWorks

       

      Set Part = swApp.ActiveDoc

      boolstatus = Part.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, True, 0, Nothing, 0)

      Dim myRefPlane As Object

      Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.25, 0, 0, 0, 0)

      Dim skSegment As Object

      Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.1, 0, 0#)

      Part.ClearSelection2 True

      Part.SketchManager.InsertSketch True

      End Sub