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

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

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

我看你了的程序，最大的感受就是麻烦，我给你精简一下啊。

Option Explicit
Const filedir As String = "C:\Program Files\SolidWorks\data\templates\"
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.NewDocument(filedir + "零件.prtdot", 0, 0#, 0#)
swModel.SketchManager.InsertSketch True
swModel.CreateCircleByRadius2 0, 0, 0, 0.05
swModel.SketchManager.InsertSketch False
End Sub

你没有建立一个新零件文档，怎么画图啊？

另外你的程序有一些定义和调用没有必要，建议删除。

我看你了的程序，最大的感受就是麻烦!!!!:lol:lol

你上面那么多的引用变量 有什么用啊..不用的全部删除好了...

另外你可以重写一个函数...加入参数()因为默认是米单位.

:lol这样你直接调用MM毫米--参数来实现画圆...而不用搞那么多/1000,什么的..

求教老大
QQ 577623793

[color=red][b]Autocad2010下载 /Autocad2010安装图文教程:[/b][/color]
[url=http://www.dlcad.cn/forum.php?mod=viewthread&tid=163&extra=page%3D1]http://www.dlcad.cn/forum.php?mod=viewthread&tid=163&extra=page%3D1[/url]
[color=red][b]Autocad2011下载 /Autocad2011安装图文教程:[/b][/color]
[url=http://www.dlcad.cn/forum.php?mod=viewthread&tid=164&extra=page%3D1]http://www.dlcad.cn/forum.php?mod=viewthread&tid=164&extra=page%3D1[/url]