[LISP程序]：为何无法对刚打开形操作？

zhuxuhong

我想将一文件夹下文件逐个打开，并对其操作。但是打开其中一文件后，发现操作总不能在刚打开的文件上进行。这是为什么？

(repeat FileCount
    (setq file (nth ii files))
    (setq doc (vla-open docs (strcat path "\\" file)))

   设为当前文档也不行？
    ;(vla-put-activedocument (vlax-get-acad-object) doc)

    ;(setq mspace (vla-get-modelspace(vla-get-activedocument (vlax-get-acad-object))) )
    ;(vla-addtext mspace "dsf" (vlax-3D-point (list 1000 1000 0)) 2)

    (command "circle" (list 1000 1000) "100")

    (vla-close doc)
    (vlax-release-object doc)
    (setq ii (1+ ii))
  )

Underway

为什么?
Lisp的极限...
其效用仅及于呼叫程序的那个图档