使用 VLA-CLOSE 出现 “图形忙” 怎么解决？

xiaojinwen

(DEFUN INIT ();;定义全局变量 初始化
      (VL-LOAD-COM)
      (IF (OR (= MSPACE NIL)(/=(VLA-GET-NAME ACADDOCUMENT) (GETVAR "dwgname")))
     (SETQ ACADOBJECT   (VLAX-GET-ACAD-OBJECT)
    ACADDOCUMENT (VLA-GET-ACTIVEDOCUMENT ACADOBJECT)
    MSPACE       (VLA-GET-MODELSPACE ACADDOCUMENT)
     ) ;_ 结束SETQ
  
      ) ;_ 结束IF
) ;_ 结束DEFUN INIT

(DEFUN C:CL();清理并保存、关闭文件
      (INIT)
      (VLA-ZOOMALL ACADOBJECT)
      (VLA-PURGEALL ACADDOCUMENT)
      (VLA-CLOSE ACADDOCUMENT :VLAX-TRUE (STRCAT (GETVAR "dwgprefix") (GETVAR "dwgname")) );;;运行到此行出现"图形忙"错误
      (PRINC)
      )

请各位大侠不吝赐教。

ljpnb

VLA-CLOSE不能关闭当前激活的图形，可以改为

(command "qsave")

(command "close")

xiaojinwen

我找到不用command的方法了

;;;;;;;DOCMGR.dvb

Public Sub CLAS()
Dim DOC As AcadDocument
Dim APP As AcadApplication
If Documents.Count = 0 Then
        MsgBox "已经没有打开的文档了！"
        Exit Sub
    End If
    ' Close all open documents
    For Each DOC In Documents
    DOC.PurgeAll
    APP.ZoomAll
    DOC.SetVariable "FILEDIA", 1
    DOC.Close (True)
    Next
End Sub

;;;;;;;LISP

(DEFUN RUN-VBAFUN (DVBFILE FUNNAME / DOC)
      (IF (/= NIL (SETQ DOC (FINDFILE DVBFILE)))
     (PROGN
    (VL-VBALOAD DOC)
    (VL-VBARUN FUNNAME)
    (PRINC)
     ) ;_ 结束PROGN
      ) ;_ 结束IF
) ;_ 结束DEFUN

(DEFUN C:CLAS ()
      (RUN-VBAFUN "DOCMGR.dvb" "CLAS")
) ;_ 结束DEFUN