Question

我在Solidworks Addin中有一些函数调用VBA宏（通过runMacro2方法），一个同事在过去几周一直在研究。在他的代码中，他称之为Solidworks函数，在某些未知条件下，它会挂起很长一段时间。多长时间似乎取决于零件中物体的大小和数量。考虑到我们想要从i自动运行这个功能中的至少一个，这就不会这样做。

我尝试过使用Thread.Join（int）方法（如下所示），但它不起作用。我也尝试使用相同的结果修改此答案Close a MessageBox after several seconds中的代码。有没有什么我可以用C＃或VBA来处理超时而不重写他的整个宏？

    public void runBB()
    {
        Stopwatch testStop = new Stopwatch();
        Thread workerThread = new Thread(bbRun);
        testStop.Start();
        workerThread.Start();
        if (!workerThread.Join(50))
        {
            workerThread.Abort();
            testStop.Stop();
            MessageBox.Show("Unable to generate Bounding Box after " + testStop.ElapsedMilliseconds/1000 + " seconds. Please enter data manually.", "Solidworks Derped Error.");
        }
        return;

    }//Still uses Macro (2-5-16)
    public static void bbRun()
    {
        iSwApp.RunMacro2(macroPath + "BOUNDING_BOX.swp", "test11", "main", 0, out runMacroError);
        return;
    }

Answer 1

我在SOLIDWORKS悬挂在文件打开时遇到了同样的问题。关于SO的几乎所有参考都是你永远不应该这样做，但在这种情况下，你要么必须关闭它，要么永远等待。在C＃中我创建了一个callWithTimeout方法：

    private void callWithTimeout(Action action, int timeoutMilliseconds, String errorText) {
        Thread threadToKill = null;
        Action wrappedAction = () =>
        {
            threadToKill = Thread.CurrentThread;
            action();
        };

        IAsyncResult result = wrappedAction.BeginInvoke(null, null);
        if (result.AsyncWaitHandle.WaitOne(timeoutMilliseconds)) {
            wrappedAction.EndInvoke(result);
        } else {
            threadToKill.Abort();
            throw new TimeoutException(errorText);
        }
    }

然后挂起的代码放在一个块中：

bool timedOut = false;
try {
    callWithTimeout(delegate() {
        // code that hangs here
    }, 60000, "Operation timed out.  SOLIDWORKS could not open the file.  This file will be processed later.");
} catch (TimeoutException){
    timedOut = true;
} finally {
    if(timedOut) {
        Process[] prs = Process.GetProcesses();
        foreach (Process p in prs) {
            if (p?.ProcessName.Equals("SLDWORKS") ?? false)
                p?.Kill();
        }
    }
}

使用Solidworks VBA宏的C＃超时

1 个答案: