请教存档该如何改才能省略掉按 “存档” 键?

lincctw_ccl

请教下列所示该如何改才能省略掉按 “存档” 键的动作,而直接存档?

(setq ffn (getfiled "储存现有开启中的档案" "d: /qopen.scr"  "scr"2))

谢谢!!

zctao1966

给你个例子：
(setq dwg (getvar "DWGNAME") ;取当前文档名
        path (getvar "dwgprefix") ;取当前文档路径
        filename (strcat path dwg ".XLS");;;加后缀名为.xls
        f1 (open filename "w");;;写模式打开一文本文件
);;;end setq
(write-line f2 f1);;;f2为要写入的内容,写进已经打开的f1 里
(close f1);;关闭文件

lincctw_ccl

zctao1966 发表于 2011-12-2 12:49
给你个例子：
(setq dwg (getvar "DWGNAME") ;取当前文档名
        path (getvar "dwgprefix") ;取当前文 ...

已解决!!谢谢!!