SOLIDWORKS2007中用VBA二次开发- 画圆问题

davisdudong

为什么画圆的直径不对？圆心位置也不对？
是我的程序有问题吗？
请明人指点。多谢！

Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.SetUserPreferenceToggle swFileExplorerShowSamples, False
Part.SetUserPreferenceIntegerValue swImageQualityWireframe, swWireframeImageQualityCustom
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", -0.06650507042254, 0.05942169014085, 0, False, 0, Nothing, 0)
Part.InsertSketch
Part.ClearSelection2 True
Part.CreateCircle 0, 0, 0, 0, 50 / 2000, 0
Part.CreateCircle 0, 1.3 / 1000, 0, 60 / 2000, 0, 0

End Sub

gneful

linianf