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

rark123 · 发表于 2004-3-10 18:41:00

请各位指教

alin · 发表于 2004-3-10 18:49:00

;(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 · 发表于 2004-3-10 19:30:00

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

rark123 · 发表于 2004-3-11 19:25:00

谢谢帮助。那如果要打开一个*.dwg呢？
是不是能啊？
谢谢指教。

alin · 发表于 2004-3-11 19:54:00

(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)
)

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

发表回复

精选推荐