一个在AUTOCAD的命令行里看TXT书的小程序

原代码如下:

(defun c:qq()
    (setq b (getint "\n输入开始阅览的行数:"))
    (setq t 1)
    (setq fil (open "C:\\PRO\\temp.txt" "r"))
    (while (<= t b)
      (setq t (+ t 1))
      (read-line fil)
    )
    (while (setq rd (read-line fil))
    (setq l (strcat "第" (rtos b 5) "行:"))
    (prompt (strcat "\n" (strcat l (substr rd 1))))
    (setq b (+ b 1))
    (setq nt(getpoint))
    )
    (close fil)
    (princ)
)

将此段代码保存为book.lsp
在AUTOCAD里输入AP加载book.lsp
在AUTOCAD里输入qq开始阅读TXT书读取的TXT文件是C:\PRO\TEMP.TXT
也可以更改读取的TXT文件，修改此行代码的文件路径和文件名：    (setq fil (open "C:\\PRO\\temp.txt" "r"))

特适合在上班时间看小说 ，不会被发现！
我也是还在学习中，高手别见笑，欢迎对此段代码进行优化修改

太有创意了，哈哈

创意不错呀!!

牛人一群,水平太高了,

我怎么弄不出来啊，请指点下
命令: ; 错误: 读入的 (八进制) 字符不正确: 21

出现这样的东东

你们真是牛XX,佩服

小弟用vba也边了一个，发现一次性读取稍微大一点的txt文件命令行就会自动掐掉一部分或者是提示内存不足！

往命令行显示用的是这个：Thisdrawing.utility.promot "读出来的文字"

恳请高手指点：能否通过某个办法显示整个文档。。。。

[ 本帖最后由 mushar 于 2008-10-28 10:00 编辑 ]

太有创意了，哈哈

创意不错呀!!
忽略空行在 (while (setq rd (read-line fil))下面加如下代码
(if(= rd "")
    (progn (setq rd (read-line fil))
                 (setq b (+ b 1))
      )
)

改天我再改一下上传可以记行数的代码!

哈,安全第一~不被发现~