[编程申请]：打开文本文件

ewenhui

通常作图时需要一些数据作对照，而这些数据保存在doc或txt格式的文件。可否做个lisp在cad里输入命令直接打开，看了之后再关闭。这样可以省去找这个文件了。

AyungerStudio

请使用ayungerstudio作者的非常有用的Lisp工具集，包含一个AutoCAD环境下浏览Txt文件的函数，命令TXT,本论坛主题下就有呀。

ewenhui

能否做一个单独的lisp实现文本文件的浏览，最好可以关闭。谢谢！

AyungerStudio

;;;***********************************
;;; No.1 AutoCAD模式文本浏览 函数     
;;;***********************************
;;1.浏览内容.
(defun C:VV()
        (setvar "cmdecho" 0)
        (if (= #AY_VVVTXTSTRING nil) (setq #AY_VVVTXTSTRING ""))
        (if (= #AY_VVVTXTSTRING "")
                (C:VVV);then
                (progn;else
                        (textscr)
                        (prompt "\n━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━")
                        (prompt #AY_VVVTXTSTRING)
                        (prompt "\n━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━")
                );end_progn
        );end_if
);end_defun

;;2.初始化-打开文件.
(defun C:VVV(/ Filename fp Rec)
        (setvar "cmdecho" 0)
  (setq #AY_VVVTXTSTRING "")
        (setq Filename (getfiled "Text File" "" "txt" 4))
  (setq fp (open Filename "r"))
  (while (setq Rec (read-line fp))
                (setq #AY_VVVTXTSTRING (strcat #AY_VVVTXTSTRING "\n\r" Rec))
  );end_while
  (close fp)
        (textscr)
        (prompt "\n━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━")
        (prompt #AY_VVVTXTSTRING)
        (prompt "\n━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━")
);end_defun;;说明： VVV函数用于打开文本文件，VV函数用于第一次打开文件后随时浏览内容！
;;缺点： 文件内容不能太多，否则超过一屏，则变得不顺手！^o^

ewenhui

多谢支持！我把它做成透明命令，真好用。
如果再加上回车可以关闭AUTOCAD文本窗口回到命令行就好了。
可以改进吗？

AyungerStudio

那只要在程序结尾添加: (if (= (read-char) 10) (graphscr))即可!

ewenhui

最初由 AyungerStudio 发布
[B]那只要在程序结尾添加: (if (= (read-char) 10) (graphscr))即可! [/B]

昨天此程序好好的，今天有一点问题，第一次运行出现打开文件对话框，取消之后才出现文本窗口，过后再运行就正常。
请问(if (= (read-char) 10) (graphscr))中的“10”是什么？如果改为空格键关闭该怎么改？