各位大侠：在一个lisp程序中可否实现文件的打开和关闭。在程序不停止的情况下。

rark123

请各位指教

alin

;(open filename mode) ;(close file-desc) ;Example

(setq fil "SOMEFILE.TXT")

(setq x (open fil "r") ct 0)

(while (read-line x)

  (setq ct (1+ ct))

)

(close x)

yxp

查一下教程里关于文件的函数不就行了.

rark123

谢谢帮助。那如果要打开一个*.dwg呢？


是不是能啊？


谢谢指教。

alin

(defun openfile (fname / acadobj documents newDocument)
(setq acadobj (vlax-get-acad-object))
(setq documents (vla-get-documents acadobj))
(setq newDocument (vla-open documents fname))
(vla-put-activedocument acadobj newDocument) )