请教龙龙仔，你那个插入未打开文件的图块只支持2004吗？

lqdcwnui

     (setq APP(vlax-get-acad-object))
     (setq DOC (vla-get-activedocument APP))
  (setq NAME1 (strcat(getvar "dwgprefix") (getvar "dwgname")))
  (setq DWGNAME "")
  (if (> (atoi (getvar "AcadVer")) 15)
      (setq DBXDOC (vla-getinterfaceobject
   APP
   (STRCAT "ObjectDBX.AxDbDocument."
    (RTOS (ATOF (substr (GETVAR "ACADVER") 1 2)))
   )
        )
  )
  (progn
    (if (not (REGISTEROBJECTDBX))
      (exit)
    )
    (setq DBXDOC (vla-getinterfaceobject
     APP
     "ObjectDBX.AxDbDocument"
   )
    )
  )
)

龙龙仔

=>OBJECTDBX本來就是如此,不能出錯,出錯後因暗地裡打開的圖檔沒有關閉,後續當然會出錯,在低版本AUTOCAD也不能查看DBX变量, 查看---接着就会出错