一个在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"))

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

呵呵！很好玩儿！不过有两点个人意见如下：
1、(setq t 1)中的“t”最好改为其他名称，因为跟默认“T”干涉；
2 、(while (setq rd (read-line fil))下面最好增加一句
    (while (= rd "")(setq rd (read-line fil))
      这样可以忽略空行。
另外，如果能自动记住上次读的行数就更好了

另外，如果能自动记住上次读的行数就更好了

可以将上次读的行数保存在文件或注册表中，下次自动读取

牛人一群,水平太高了,

真感谢!!!

天天信息网,现在可以免费发布各种招聘,求职,交友等信息
网址https://www.hao716.cn

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

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

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

太有创意了，哈哈

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

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

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

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