在新参考基准面添加穿透约束时为什么有时报错？VBA.NET

techcai

   经典图书

程序创建一个单螺杆

螺杆叶面是矩形，用中心矩形的中心对其螺旋线的一个端点，做穿透约束。

打开solid works 然后在vs中运行代码可以通过，但是再次运行时就报错。
注销电脑，从新进入又正常。
不打开solid works单独运行代码报错，打开sldworks，运行代码有时报错，关闭sldworks，重启sldworks本身报错，

关闭sldworks，重启sldworks本身报错


错误详情

未处理System.Runtime.InteropServices.COMException
  ErrorCode=-2147417851
  HResult=-2147417851
  Message=服务器出现意外情况。 (异常来自 HRESULT:0x80010105 (RPC_E_SERVERFAULT))
  Source=swCreate single-screw
  StackTrace:
       在 SldWorks.IModelDoc2.SketchAddConstraints(String IdStr)
       在 swCreate_single_screw.Form1.Button1_Click(Object sender, EventArgs e) 位置 D:\NXopenCode\swCreate single-screw\swCreate single-screw\Form1.vb:行号 62
       在 System.Windows.Forms.Control.OnClick(EventArgs e)
       在 System.Windows.Forms.Button.OnClick(EventArgs e)
       在 System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
       在 System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       在 System.Windows.Forms.Control.WndProc(Message& m)
       在 System.Windows.Forms.ButtonBase.WndProc(Message& m)
       在 System.Windows.Forms.Button.WndProc(Message& m)
       在 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
       在 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
       在 System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       在 System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       在 System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
       在 System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       在 System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       在 swCreate_single_screw.My.MyApplication.Main(String[] Args) 位置 17d14f5c-a337-4978-8281-53493378c1071.vb:行号 81
       在 System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
       在 System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
       在 Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
       在 System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       在 System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
       在 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
       在 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       在 System.Threading.ThreadHelper.ThreadStart()
  InnerException:




代码如下：

1. Imports SldWorks
   
2. Imports SwConst
   
3. Imports System.Runtime.InteropServices
   
4. Imports System
   
5. 
   
6. Public Class Form1
   
7. 
   
8.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
9. 
   
10.         Dim swApp As SldWorks.SldWorks
    
11.         Dim swDoc As ModelDoc2 = Nothing
    
12.         Dim swPart As PartDoc = Nothing
    
13.         Dim swDrawing As DrawingDoc = Nothing
    
14.         Dim swAssembly As AssemblyDoc = Nothing
    
15.         Dim boolstatus As Boolean = False
    
16.         Dim longstatus As Integer = 0
    
17.         Dim longwarnings As Integer = 0
    
18.         '
    
19.         '建立于solid works的连接
    
20.         swApp = CreateObject("SldWorks.application")
    
21.         Dim swSheetWidth As Double
    
22.         swSheetWidth = 0
    
23.         Dim swSheetHeight As Double
    
24.         swSheetHeight = 0
    
25.         swDoc = CType(swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2017\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight), ModelDoc2)
    
26.         swPart = swDoc
    
27.         swApp.ActivateDoc2("Part3", False, longstatus)
    
28.         swDoc = CType(swApp.ActiveDoc, ModelDoc2)
    
29.         Dim myModelView As ModelView = Nothing
    
30.         myModelView = CType(swDoc.ActiveView, ModelView)
    
31.         myModelView.FrameState = CType(swWindowState_e.swWindowMaximized, Integer)
    
32.         boolstatus = swDoc.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    
33.         swDoc.SketchManager.InsertSketch(True)
    
34.         swDoc.ClearSelection2(True)
    
35.         Dim skSegment As SketchSegment = Nothing
    
36.         '前视基准面 画圆 r=0.05m
    
37.         skSegment = CType(swDoc.SketchManager.CreateCircleByRadius(0, 0, 0, 0.05), SketchSegment)
    
38.         swDoc.ClearSelection2(True)
    
39.         swDoc.SketchManager.InsertSketch(True)
    
40.         '前视基准面 插入螺旋线 半径0.05m 导程0.05m 起始角度0
    
41.         swDoc.InsertHelix(False, True, False, True, 0, 0.05, 0.05, 1, 0, 0)
    
42.         boolstatus = swDoc.Extension.SelectByRay(0.05, 0, 0, 0, 0.05, 1, 0.001, 1, True, 0, 0)
    
43.         boolstatus = swDoc.Extension.SelectByID2("Unknown", "POINTREF", 0.049999999999999961, 0, 0.049999999999999975, True, 1, Nothing, 0)
    
44.         Dim myRefPlane As RefPlane = Nothing
    
45.         myRefPlane = CType(swDoc.FeatureManager.InsertRefPlane(2, 0, 4, 0, 0, 0), RefPlane)
    
46.         swDoc.ClearSelection2(True)
    
47.         '在螺旋线的端点上插入参考平面，参考平面垂直螺旋线
    
48.         boolstatus = swDoc.Extension.SelectByID2("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    
49.         swDoc.SketchManager.InsertSketch(True)
    
50.         swDoc.ClearSelection2(True)
    
51.         boolstatus = swDoc.Extension.SetUserPreferenceToggle(CType(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, Integer), CType(swUserPreferenceOption_e.swDetailingNoOptionSpecified, Integer), True)
    
52.         boolstatus = swDoc.Extension.SetUserPreferenceToggle(CType(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, Integer), CType(swUserPreferenceOption_e.swDetailingNoOptionSpecified, Integer), True)
    
53.         Dim vSkLines As Array = Nothing
    
54.         vSkLines = CType(swDoc.SketchManager.CreateCenterRectangle(0, 0.008, 0, 0.028, 0.0115, 0), Array)
    
55.         '画中心点正方形0.056*0.007m
    
56.         swDoc.ClearSelection2(True)
    
57.         '清除选择然后选择正方形中心点和螺旋线，添加穿透约束
    
58.         boolstatus = swDoc.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
    
59.         boolstatus = swDoc.Extension.SelectByID2("Helix/Spiral1", "REFERENCECURVES", 0, 0, 1, True, 0, Nothing, 0)
    
60.         'boolstatus = swDoc.Extension.SelectByRay(0.05, 0, 0, 0, 0.05, 1, 0.001, 1, True, 0, 0) 选不中螺旋线
    
61.         'MsgBox("选择螺旋线准备穿透约束")
    
62.         swDoc.SketchAddConstraints("sgATPIERCE") '添加穿透约束
    
63.         swDoc.ClearSelection2(True)
    
64.         swDoc.SketchManager.InsertSketch(True)
    
65. 
    
66.         boolstatus = swDoc.Extension.SelectByID2("Sketch2", "SKETCH", 0, 0, 0, False, 1, Nothing, 0)
    
67.         boolstatus = swDoc.Extension.SelectByID2("Helix/Spiral1", "REFERENCECURVES", 0, 0, 0, True, 4, Nothing, 0)
    
68.         Dim myFeature As Feature = Nothing
    
69.         myFeature = CType(swDoc.FeatureManager.InsertProtrusionSwept4(False, False, 0, False, False, 1, 1, False, 0, 0, 0, 10, True, True, True, 0, True, False, 0.01, False), Feature)
    
70.         swDoc.ClearSelection2(True)
    
71.         '
    
72.         'Save As
    
73.         longstatus = swDoc.SaveAs3("D:\UG\Part3.SLDPRT", 0, 2)
    
74.         '
    
75.         'Close Document
    
76.         swPart = Nothing
    
77.         swDoc = Nothing
    
78.         swApp.CloseDoc("Part3.SLDPRT")
    
79.     End Sub
    
80. End Class

复制代码

techcai

'boolstatus = swDoc.Extension.SelectByRay(0.05, 0, 0, 0, 0.05, 1, 0.001, 1, True, 0, 0) 在新建的参考基准面"Plane1"中选不中螺旋线，但同样的语句在前视基准面"Front Plane"中可以选中螺旋线。

在新建的参考基准面"Plane1"中为什么选不中？参数怎么调整？

techcai

   经典图书

源文件
swCreate single-screw.rar (445.02 KB, 下载次数: 51)

2020-9-6 20:43 上传

点击文件名下载附件
下载积分: 金币 -1

techcai

为在单位点电脑，设置solidwoks为中文菜单，家里设置solidwoks为英文菜单
在单位调试时发现有的参数必须改回和菜单对应点设置语言，才能执行，

报错可能对象没选择上。

zw2005744

   经典案例图书

很不错，顶一下！

techcai

添加穿透约束，螺旋线的端点选不中，谁有办法？

techcai

   经典案例图书

这个程序是成功的，solid works设置成英文界面

1. Imports SldWorks
   
2. Imports SwConst
   
3. Imports System.Runtime.InteropServices
   
4. Imports System
   
5. 
   
6. Public Class Form1
   
7. 
   
8.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
9. 
   
10.         Dim swApp As SldWorks.SldWorks
    
11.         Dim swDoc As ModelDoc2 = Nothing
    
12.         Dim swPart As PartDoc = Nothing
    
13.         Dim swDrawing As DrawingDoc = Nothing
    
14.         Dim swAssembly As AssemblyDoc = Nothing
    
15.         Dim boolstatus As Boolean = False
    
16.         Dim longstatus As Integer = 0
    
17.         Dim longwarnings As Integer = 0
    
18.         '
    
19.         '建立于solid works的连接
    
20.         swApp = CreateObject("SldWorks.Application")
    
21.         Dim swSheetWidth As Double
    
22.         swSheetWidth = 0
    
23.         Dim swSheetHeight As Double
    
24.         swSheetHeight = 0
    
25.         swDoc = CType(swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2017\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight), ModelDoc2)
    
26.         swPart = swDoc
    
27.         swApp.ActivateDoc2("Part1", False, longstatus)
    
28.         swDoc = CType(swApp.ActiveDoc, ModelDoc2)
    
29.         Dim myModelView As ModelView = Nothing
    
30.         myModelView = CType(swDoc.ActiveView, ModelView)
    
31.         myModelView.FrameState = CType(swWindowState_e.swWindowMaximized, Integer)
    
32.         boolstatus = swDoc.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    
33.         swDoc.SketchManager.InsertSketch(True)
    
34.         swDoc.ClearSelection2(True)
    
35.         Dim skSegment As SketchSegment = Nothing
    
36.         '前视基准面 画圆 r=0.05m
    
37.         skSegment = CType(swDoc.SketchManager.CreateCircleByRadius(0, 0, 0, 0.05), SketchSegment)
    
38.         swDoc.ClearSelection2(True)
    
39.         swDoc.SketchManager.InsertSketch(True)
    
40.         '前视基准面 插入螺旋线 半径0.05m 导程0.05m 起始角度0
    
41.         swDoc.InsertHelix(False, True, False, True, 0, 0.05, 0.05, 1, 0, 0)
    
42.         '在螺旋线的端点0.05, 0, 0上插入参考平面，参考平面垂直螺旋线
    
43.         boolstatus = swDoc.Extension.SelectByRay(0, 0, 0, 1, 0, 0, 0.0008, 1, True, 0, 0) 'TypeWanted=swSelEDGES 1 "EDGE"
    
44.         boolstatus = swDoc.Extension.SelectByID2("Unknown", "POINTREF", 0.05, 0, 0, True, 1, Nothing, 0)
    
45.         Dim myRefPlane As RefPlane = Nothing
    
46.         myRefPlane = CType(swDoc.FeatureManager.InsertRefPlane(2, 0, 4, 0, 0, 0), RefPlane) '
    
47.         swDoc.ClearSelection2(True)
    
48.         '选择新建的参考平面"Plane1" 画中心点正方形
    
49.         boolstatus = swDoc.Extension.SelectByID2("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    
50.         swDoc.SketchManager.InsertSketch(True)
    
51.         'swDoc.ClearSelection2(True)
    
52.         '画中心点正方形前设置正方形中间的结构线开关为on
    
53.         boolstatus = swDoc.Extension.SetUserPreferenceToggle(CType(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, Integer), CType(swUserPreferenceOption_e.swDetailingNoOptionSpecified, Integer), True)
    
54.         boolstatus = swDoc.Extension.SetUserPreferenceToggle(CType(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, Integer), CType(swUserPreferenceOption_e.swDetailingNoOptionSpecified, Integer), True)
    
55.         Dim vSkLines As Array = Nothing
    
56.         vSkLines = CType(swDoc.SketchManager.CreateCenterRectangle(0, 0.005, 0, 0.028, 0.0085, 0), Array) '画中心点正方形0.056*0.007m
    
57.         'MsgBox("", MsgBoxStyle.OkOnly)
    
58.         swDoc.ClearSelection2(True)
    
59.         boolstatus = swDoc.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0.005, 0, True, 0, Nothing, 0)
    
60.         'MsgBox("选中矩形中心点", MsgBoxStyle.OkOnly)
    
61.         boolstatus = swDoc.Extension.SelectByID2("Helix/Spiral1", "REFERENCECURVES", 0, 0, 0, True, 0, Nothing, 0) '选择螺旋线
    
62.         'boolstatus = swDoc.Extension.SelectByRay(0.0401858737063126, -0.12968008300873635, 0.02107012441977929, 0, 0.98757049215139314, -0.15717672547758266, 0.00051512576414589788, 1, True, 0, 0)
    
63.         swDoc.SketchAddConstraints("sgATPIERCE")
    
64.         swDoc.ClearSelection2(True)
    
65.         swDoc.SketchManager.InsertSketch(True)
    
66. 
    
67.         boolstatus = swDoc.Extension.SelectByID2("Sketch2", "SKETCH", 0, 0, 0, False, 1, Nothing, 0)
    
68.         boolstatus = swDoc.Extension.SelectByID2("Helix/Spiral1", "REFERENCECURVES", 0, 0, 0, True, 4, Nothing, 0)
    
69.         Dim myFeature As Feature = Nothing
    
70.         myFeature = CType(swDoc.FeatureManager.InsertProtrusionSwept4(False, False, 0, False, False, 1, 1, False, 0, 0, 0, 10, True, True, True, 0, True, False, 0.01, False), Feature)
    
71.         swDoc.ClearSelection2(True)
    
72.         '
    
73.         'Save As
    
74.         longstatus = swDoc.SaveAs3("D:\UG\Part3.SLDPRT", 0, 2)
    
75.         '
    
76.         'Close Document
    
77.         swPart = Nothing
    
78.         swDoc = Nothing
    
79.         swApp.CloseDoc("Part3.SLDPRT")
    
80.     End Sub
    
81. End Class

复制代码

techcai

SelectByRay在参考基准面 怎么选中螺旋线，求帮助？

techcai

可能因为选不中螺旋线报错