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 = _



      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