新手求助，用SelectByID2命令总是选错边线

MrL

在做下图中橙色圆圈中倒角的宏程序时，所用的SelectByID2命令总是选不对正确的边线，原因出在哪里？又该如何解决？
求高手解答，谢谢！

下面是代码

1. Dim swApp As Object
   
2. 
   
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   
6. 
   
7. Sub main()
   
8. 
   
9. Set swApp = _
   
10. Application.SldWorks
    
11. 
    
12. Set Part = swApp.NewDocument("C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2016\templates\gb_part.prtdot", 0, 0, 0)
    
13. swApp.ActivateDoc2 "零件4", False, longstatus
    
14. Set Part = swApp.ActiveDoc
    
15. Dim myModelView As Object
    
16. Set myModelView = Part.ActiveView
    
17. myModelView.FrameState = swWindowState_e.swWindowMaximized
    
18. swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swInputDimValOnCreate, False
    
19. boolstatus = Part.Extension.SelectByID2("右视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    
20. Part.SketchManager.InsertSketch True
    
21. Dim skSegment As Object
    
22. Set skSegment = Part.SketchManager.CreateCircle(-0#, 0#, 0#, -0.045, 0, 0#)
    
23. Dim myDisplayDim As Object
    
24. Set myDisplayDim = Part.AddDimension2(0, 0, 0.09)
    
25. Dim myDimension As Object
    
26. Set myDimension = Part.Parameter("D1@草图1")
    
27. myDimension.SystemValue = 0.09
    
28. Part.SketchManager.InsertSketch True
    
29. boolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 4, Nothing, 0)
    
30. Dim myFeature As Object
    
31. Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.41, 0.01, False, False, False, False, 0, 0, False, False, False, False, True, True, True, 0, 0, False)
    
32. Part.SelectionManager.EnableContourSelection = False
    
33. Part.ViewZoomtofit2
    
34. boolstatus = Part.Extension.SelectByID2("", "FACE", 0.41, 0, 0, False, 0, Nothing, 0)
    
35. Part.SketchManager.InsertSketch True
    
36. Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, -0.0475, 0, 0#)
    
37. Set myDisplayDim = Part.AddDimension2(0.41, 0, 0.095)
    
38. Set myDimension = Part.Parameter("D1@草图2")
    
39. myDimension.SystemValue = 0.095
    
40. Part.SketchManager.InsertSketch True
    
41. Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.24, 0.41, False, False, False, False, 0, 0, False, False, False, False, True, True, True, 0, 0, False)
    
42. Part.SelectionManager.EnableContourSelection = False
    
43. Part.ViewZoomtofit2
    
44. '*******************************************************************************************************************************************************************************
    
45. '总是不能选中正确的边线，命令中的那三个数值是边线上某一点的坐标
    
46. boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.41, 0, 0.0475, True, 0, Nothing, 0)
    
47. Set myFeature = Part.FeatureManager.InsertFeatureChamfer(4, 1, 0.001, 0.78539816339745, 0, 0, 0, 0)
    
48. boolstatus = Part.DeSelectByID("倒角1", "BODYFEATURE", 0, 0, 0)
    
49. boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.41, 0, 0.045, True, 1, Nothing, 0)
    
50. '********************************************************************************************************************************************************************************
    
51. Dim radiiArray3 As Variant
    
52. Dim radiis3 As Double
    
53. Dim dist2Array3 As Variant
    
54. Dim dists23 As Double
    
55. Dim conicRhosArray3 As Variant
    
56. Dim coniRhos3 As Double
    
57. Dim setBackArray3 As Variant
    
58. Dim setBacks3 As Double
    
59. Dim pointArray3 As Variant
    
60. Dim points3 As Double
    
61. Dim pointDist2Array3 As Variant
    
62. Dim pointsDist23 As Double
    
63. Dim pointRhoArray3 As Variant
    
64. Dim pointsRhos3 As Double
    
65. radiiArray3 = radiis3
    
66. dist2Array3 = dists23
    
67. conicRhosArray3 = coniRhos3
    
68. setBackArray3 = setBacks3
    
69. pointArray3 = points3
    
70. pointDist2Array3 = pointsDist23
    
71. pointRhoArray3 = pointsRhos3
    
72. Set myFeature = Part.FeatureManager.FeatureFillet3(195, 0.001, 0.01, 0, 0, 0, 0, (radiiArray3), (dist2Array3), (conicRhosArray3), (setBackArray3), (pointArray3), (pointDist2Array3), (pointRhoArray3))
    
73. swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swInputDimValOnCreate, True
    
74. End Sub
    

复制代码

DaveChan

MrL