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

yuanziyou

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

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

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

提示:"不能运行宏,CAD忙"

但是如果是这样:

2. Sub Ch3_NewDrawing()
   
3. Dim docObj As AcadDocument
   
4. Set docObj = ThisDrawing.Application.Documents.Add
   
5. MsgBox "why"
   
6. End Sub

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

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

wangshuping42

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