cad下看文章

fl202 · 发表于 2010-10-29 11:05:20

本帖最后由 fl202 于 2018-2-8 15:53 编辑

cad下看文章，工作之余放松下也好嘛。

本程序要求输入一个起始行数，方便快速到你读文章的地方，下次再读的时候接着上次的地方读，按exit或者ESC退出，退出的时候会多打几个空命令行，这样别人就看不见命令行的小说内容了。使用命令rd1，读下一行的时候按空格或者回车即可。

程序如下：
(defun c:rd1 ( / ff1 fn i txt1 et )
  (setq ff1 (getfiled "选择TXT文件" "" "txt" 2))
  (setq olderr *error* *error* dragon)
(setq cn nil fn (open ff1 "r"))
  (if (= cn nil)
(setq cn (getint "\n 确定起始行数：")) )
(repeat cn
   (read-line fn)
   )
(setq et "111" txt1 nil txt1 (read-line fn)) (princ txt1) (print)
  (while (/= et "exit")
      (setq  txt1 (read-line fn))
      (setq cn (1+ cn))
      (if (and (/= txt1 "") (/= txt1 nil))
         (progn
               (princ txt1)  (print) )
         (progn
            (setq cn (1+ cn))
            (setq  txt1 (read-line fn))
            (princ txt1) (print)
      ));end if
(setq et (getstring ""))
   );end while
  (repeat 6    (princ "\n命令： ") )
  (princ "\n行数： ") (princ cn)
  (princ "\n命令： ")
  (setq *error* olderr)

(princ)
)
(defun dragon (st)
(repeat 6    (princ "\n命令： ") )
(princ "\n行数： ") (princ cn)
(princ "\n命令： ")
  (setq cn (1+ cn))
  (setq *error* olderr)
  (princ)
  )

xyljlx · 发表于 2010-10-29 11:05:20

牛人啊，顶你

ma6527 · 发表于 2010-10-29 11:05:20

太邪恶了... ...不过我喜欢{:1106_396:}

sysyxl · 发表于 2010-10-29 11:05:20

真是无所不及，

lingerking · 发表于 2010-10-29 11:05:20

楼主真是解人民之所需啊。。。。。啊啊

jlx118 · 发表于 2010-10-29 11:05:20

有创意,顶一个.

huyian · 发表于 2010-10-29 11:05:20

真不错，还能这样呀！

yanwei1984 · 发表于 2010-10-29 11:05:20

高手啊，不得不佩服

xm876258 · 发表于 2010-10-29 11:05:20

强人啊
膜拜膜拜{:1106_362:}

『_釋_然_』 · 发表于 2010-10-29 11:05:20

谢谢楼主的办法了

hcl_yl · 发表于 2010-10-29 11:05:20

赶紧的，怎么弄。。。告诉偶{:1106_388:}

ectxcqm · 发表于 2010-10-29 11:05:20

厉害呀,LZ,谢谢分享{:1106_362:}

dabsdgsdfdsf · 发表于 2010-10-29 11:05:20

阿比达四方个短发短发

牵手幸福2010 · 发表于 2010-10-29 11:05:20

彪悍！！！！

jinliang · 发表于 2010-10-29 11:05:20

楼主很强悍呀

zenboo · 发表于 2010-10-29 11:05:20

去，这个简直是偷懒软件啊

chemengineering · 发表于 2010-10-29 11:05:20

确实很邪恶！

linyu1980419@16 · 发表于 2010-10-29 11:05:20

谢谢啊，好东西分享下

风封麟 · 发表于 2010-10-29 11:05:20

膜拜中，楼主神人是也

hnhxczh · 发表于 2010-10-29 11:05:20

有哪些好小说呀？

cad下看文章

点评

评分