sw开发自动建模

小弟初学开发，发现个问题发现如下代码运行和实际不符，主要为倒圆角的位置，请赐教
Dim swApp As Object

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("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(0#, 0#, 0#, 0.1, 0#, 0#)
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateLine(0#, 0#, 0#, 0#, 30 / 2000 + 0.005, 0#)
Set skSegment = Part.SketchManager.CreateLine(0#, 30 / 2000 + 0.005, 0#, 0.004, 30 / 2000 + 0.005, 0#)
Set skSegment = Part.SketchManager.CreateLine(0.004, 30 / 2000 + 0.005, 0#, 0.004, 30 / 2000, 0#)
Set skSegment = Part.SketchManager.CreateLine(0.004, 30 / 2000, 0#, 69 / 1000, 30 / 2000, 0#)
Set skSegment = Part.SketchManager.CreateLine(69 / 1000, 30 / 2000, 0#, 69 / 1000, 0#, 0#)
Set skSegment = Part.SketchManager.CreateLine(69 / 1000, 0#, 0#, 0#, 0#, 0#)
Part.ClearSelection2 True

Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureRevolve2(True, True, False, False, False, False, 0, 0, 6.2831853071796, 0, False, False, 0.01, 0.01, 0, 0, 0, True, True, True)

boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.004, 0.015, 0, False, 0, Nothing, 0)
Set myFeature = Part.FeatureManager.FeatureFillet2(195, 0.003, 0, 0, 0, 0, 0)
End Sub

没有人知道么？？？

倒圆角部分代码更改为

1. Set myFeature = Part.FeatureManager.FeatureFillet(195, 0.003, 0, 0, 0, 0, 0)

复制代码

改了，试了下，还是没反应，不知道问题出在哪里。。。。。。

黑暗贤者 发表于 2016-9-13 09:58
改了，试了下，还是没反应，不知道问题出在哪里。。。。。。

无反应，连错误信息都没有吗？
可否截图说明

黑暗贤者 发表于 2016-9-13 09:58
改了，试了下，还是没反应，不知道问题出在哪里。。。。。。

运行测试，无误

可我要的不是位置不是那个地方的圆角，是圆柱与台阶处的圆角

我是要倒这个地方的圆角，线条选择也是对的，但倒角的位置就是不对

黑暗贤者 发表于 2016-9-13 10:35
我是要倒这个地方的圆角，线条选择也是对的，但倒角的位置就是不对

在选择边线的前面加一句

1. Part.ShowNamedView2 "*等轴测", 7

复制代码

为什么需要这样？请指教