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

cad下看文章

本帖最后由 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")
      (setqtxt1 (read-line fn))      
      (setq cn (1+ cn))
         (if (and (/= txt1 "") (/= txt1 nil))
         (progn
                  (princ txt1)(print) )
         (progn
               (setq cn (1+ cn))
               (setqtxt1 (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

有哪些好小说呀？
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: cad下看文章