为什么vla-save不可用

brainstorm

下面一段程序为什么vla-save不可用,而vla-saveas可以用，见红色代码

(defun c:test ()
    (defun chgblk (doc / ms)
 (setq ms (vla-get-modelspace doc))
 (vlax-for each ms
     (if (and
      (= (vla-get-objectname each) "AcDbBlockReference")
      (= (vla-get-name each) "__TQTCC1")
  )
  (progn
      (vxsetatts each '(("YEAR_1" . "TCC")))
  )
     )
 )
    )
    (defun GetFolder (msg / WinShell shFolder path catchit)
 (vl-load-com)
 (setq winshell (vlax-create-object "Shell.Application"))
 (setq
     shFolder
        (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1)
 )
 (setq
     catchit
        (vl-catch-all-apply
     '(lambda ()
   (setq shFolder
     (vlax-get-property shFolder 'self)
   )
   (setq path (vlax-get-property shFolder 'path))
      )
        )
 )
 (if (vl-catch-all-error-p catchit)
     nil
     path
 )
    )
    (setq path (GetFolder "目录"))
    (setq files (vl-directory-files path "*.dwg"))
    (princ "\nwaiting ......")
    (princ)
    (foreach n files
 (progn
     (setq
  DBXDOC (vla-getinterfaceobject
      (vlax-get-acad-object)
      "ObjectDBX.AxDbDocument.16"
         )
     )
     (vla-open DBXDOC (strcat path "\\" n))
     (chgblk DBXDOC)
     (vla-save DBXDOC)
     (vla-saveas DBXDOC (strcat path "\\11" n) )    
;;;     (vla-save DBXDOC)
     (vlax-release-object DBXDOC)
 )
    )
    (princ "\n****修改成功****")
    (princ)
)

mn1k

(defun tt ()
  (setq dbxdoc (vla-getinterfaceobject
   (vlax-get-acad-object)
   "ObjectDBX.AxDbDocument.16"
        )
  )
  (vla-open dbxdoc "f:\\44.dwg")
  (setq ms (vlax-get-property dbxdoc "ModelSpace"))

  (setq insertpnt (vlax-3d-point '(0 0 0)))
  (vlax-invoke-method
    ms      "AttachExternalReference"     "f:\\22.dwg"
    "22"     insertpnt     1.0      1.0
    1.0      0      :vlax-false
   )
  (vlax-dump-object dbxdoc t)

  (vlax-invoke-method dbxdoc "save") ;;此行出错 : 错误: Automation 错误。未提供说明。
  (vlax-invoke-method dbxdoc "saveas" "f:\\ok.dwg") ;;此行不出错,但不能保存修改内容
)

mn1k

接上一条, 

 ;(vlax-invoke-method dbxdoc "save"); 错误: Automation 错误。未提供说明。
  ;(vlax-invoke dbxdoc "save") ;;; 错误: 发生意外。
  ;(vla-save dbxdoc); 错误: Automation 错误。未提供说明。

这几种方法的提示还不一样,求正确的方法和出错的原因.