如何获取CAD是否处于正在编辑状态 VB代码有，但是不知道VB.NET如何写

徐亚龙

在VB中，我们可以通过以下程序获取CAD是否处于忙碌状态，如果我们知道CAD的状态的话，我们就可以控制在继续新命令之前，将原来的命令取消，问题来了，现在切换到VB.NET,却不知道如何解决了

2. '判断Cad当前是否处忙状态：非命令等待状态，返回0为命令等待，1为命令忙Public Function CADisBusy() As Boolean

'判断Cad当前是否处忙状态：非命令等待状态，返回0为命令等待，1为命令忙Public Function CADisBusy() As Boolean

徐亚龙

上面写代码好像不行，写这里了
'判断Cad当前是否处忙状态：非命令等待状态，返回0为命令等待，1为命令忙
Public Function CADisBusy() As Boolean
On Error GoTo Err_CADisBusy
Dim State As AcadState
If acadApp.Documents.count = 0 Then Exit Function
Set State = acadApp.GetAcadState
If Not State.IsQuiescent Then
   MsgBox "请首先取消AutoCAD当前正在执行的命令。", vbOKOnly + vbInformation, "操作提示"
End If
CADisBusy = Not State.IsQuiescent
Exit Function
Err_CADisBusy:
End Function

newer

CAD有那么忙碌吗？ 你说的是是否当前在运行某个命令吧。

直接取系统变量 cmdactive , 命令中，值=1

徐亚龙

你好，可能我表达的不清楚，不好意思，我现在的需求是这样的：
比如我正在编辑多行文字，一不小心点击了自定义的窗体按钮，就会出现两个命令冲突，谁也不让谁的局面，就会导致CAD假死机
请问我如何才能将之前的任何命令取消？

newer

徐亚龙 发表于 2016-12-30 00:06

你说的是你的自定义按钮吧，CAD自己的肯定不会有冲突，肯定会结束正在运行的。

其实，你不必判断，你看ACAD的MNU文件，执行命令的时候，命令名前面也会有两个^c^c用来结束命令。

就是你不管当前是否有命令运行，在按你的按钮前，你都发送两个ESCAPE给命令行，然后执行你的命令就OK了。

徐亚龙

newer 发表于 2016-12-30 00:13

好的，我测试一下，十分感谢您的帮助！

徐亚龙

newer 发表于 2016-12-29 23:55

让你见笑了，真的不知道怎么“发送两个ESCAPE给命令行”，所以只能你指点的获取“cmdactive”的值来判断，也请newer能在百忙之中帮帮忙优化一下代码分享给大家，希望能用得上！

2. '获取CAD当前活动状态
   
3.     Public Function CADisBusy() As Boolean
   
4.         '判断Cad当前是否处忙状态：非命令等待状态，返回0为命令等待，1为命令忙
   
5.         Dim Cmdactive As Integer = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("cmdactive")
   
6.         If Cmdactive = 0 Then
   
7.             CADisBusy = False
   
8.         Else
   
9.             CADisBusy = True
   
10.         End If
    
11.     End Function

'获取CAD当前活动状态<br />     Public Function CADisBusy() As Boolean<br />         '判断Cad当前是否处忙状态：非命令等待状态，返回0为命令等待，1为命令忙<br />         Dim Cmdactive As Integer = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("cmdactive")<br />         If Cmdactive = 0 Then<br />             CADisBusy = False<br />         Else<br />             CADisBusy = True<br />         End If<br />     End Function

marting

Set a_app = GetObject(, "Autocad.Application.17") //根据版本号修改
Set a_doc = a_app.ActiveDocument
a_doc.SendCommand  Chr(27)

发送字符串ASCII码 27 到命令行