运行VBA，死机的问题

fanny_6

在VBA做关闭文件操作时，CAD命令栏出现“VBARUN”字样，之后就CAD死了，无法执行后续操作。

命令如下：

function CloseCAD()
.......
    If ThisDrawing.Application.Documents.count > 1 Then
       objDoc.Close False
    End If

     MsgBox "关闭成功"
End Sub

单步执行时执行到 End Sub结束，无法返回到主函数

什么原因呢？请高手解答

xxxtttxxx

VBA是针对thisdrawing运行的，thisdrawing都被你关掉了，怎么运行下去啊。

要用这个功能，还是用vb写吧

robbin840311

function CloseCAD()

End Sub？？？

Function与End Sub配对？？ 在这里不能用End Sub的，请把全部代码贴出来。

fanny_6

If ThisDrawing.Application.Documents.count > 1 Then

所以ThisDrawing没有关光，可以的

function CloseCAD()

End Sub

写错了，源程序对的

robbin840311

LZ，请把源程序贴出来，我看到的是function和end sub配对，执行到end sub的时候会出错。

xxxtttxxx

lsp只对当前的thisdrawing，在当前dwg中单独加载的lsp，在其他dwg中无效。

虽然不知道VBA是不是只针对当前的thisdrawing（可能不是），不过，thisdrawing关闭以后

虽然还有dwg文件打开着，但是thisdrawing这个object的handle应该是针对关闭的这个。

建议先set acad_doc= thisdrawing试试看。

fanny_6

谢谢各位，我再试试