solidworks二次开发，在其他基准面上(前视，右视)画圆录制的宏代码执行后画出的圆总是在前视基准面上

Question

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("右视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateLine(-0#, 0#, 0#, 0.025639, 0.008155, 0#)
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
End Sub
上面的那段代码画出的也是在前视基准面上，无语了
要是在右视基准面上画圆应该怎么写

Answer 1

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
boolstatus = Part.Extension.SelectByID2("右视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim SkCircle As Object
Set SkCircle = Part.SketchManager.CreateCircle(0, 0, 0, 0.02124587547111, -0.01247663316583, 0)
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
End Sub

你复制这个运行下 我试过可以的，我开始也出现你的情况了，就是选择完右视基准面以后要点草图绘制按钮，在点画圆，直接画圆就成别的面了。