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)
  )

浪迹天涯 · 发表于 2010-10-29 14:04:14

楼主牛人啊，呵呵，搞CAD二次开发的吧

huyian · 发表于 2010-10-29 15:03:17

楼主牛啊,看看怎么弄的。

Horse · 发表于 2010-10-29 16:05:45

你比较牛。。。

青青5757 · 发表于 2010-10-30 12:28:51

{:1_215:}{:1_221:}{:1_224:}

zmx428 · 发表于 2010-10-30 14:44:34

厉害啊……
{:1105_283:}

yulei1987 · 发表于 2010-10-30 15:02:57

牛人。。。

tianshanxue · 发表于 2010-11-1 10:24:01

回帖看看先

qinrunyouzhi · 发表于 2010-11-1 10:44:24

哈哈，楼主很强悍啊。。。

z5237997 · 发表于 2010-11-2 12:24:32

厉害啊……

lidexin · 发表于 2010-11-3 08:56:16

休闲休闲了{:1106_389:}

miniwowo · 发表于 2010-11-3 15:54:14

回复 1# fl202

看看什么好方法啊

hnlzw · 发表于 2010-11-6 10:05:15

楼主，真牛

zghzlj · 发表于 2010-11-6 10:31:59

貌似很牛X啊哈哈

hgxylishan · 发表于 2010-11-6 11:40:41

确实很**的牛

mmandpanda · 发表于 2010-11-8 15:24:33

高哇，实在是高，楼主真高

shu200722146075 · 发表于 2010-11-9 12:17:54

看看是啥玩意儿

sheng3310 · 发表于 2010-11-9 12:34:06

呵呵，看小说时可以自动完成CAD工作就好了

wangxz · 发表于 2010-11-9 13:46:44

顶一下，理由同上。。。呵呵

mjbj646 · 发表于 2010-11-10 16:12:12

工作的时候还是专心点好

cad下看文章

点评

评分