提示"不能运行宏,CAD忙"怎么解决

yuanziyou · 发表于 2014-9-17 21:03:00

win7 64 CAD2006
运行开发手册中示例代码


Sub Ch3_NewDrawing()
Dim docObj As AcadDocument
Set docObj = ThisDrawing.Application.Documents.Add
End Sub

提示:"不能运行宏,CAD忙"
但是如果是这样:


Sub Ch3_NewDrawing()
Dim docObj As AcadDocument
Set docObj = ThisDrawing.Application.Documents.Add
MsgBox "why"
End Sub

就没有这个提示,麻烦各位朋友解惑!

xq0eleeh1ru.png

wangshuping42 · 发表于 2014-9-17 23:48:00

看命令栏是否有未完成命令

提示&quot;不能运行宏,CAD忙&quot;怎么解决