iCAx开思工具箱

标题: 一个在AUTOCAD的命令行里看TXT书的小程序 [打印本页]

作者: wxdzh 时间: 2008-8-6 00:06
标题: 一个在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"))

特适合在上班时间看小说

，不会被发现！
我也是还在学习中，高手别见笑，欢迎对此段代码进行优化修改

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

作者: BYDAD 时间: 2008-8-22 00:08
另外，如果能自动记住上次读的行数就更好了

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

作者: wawbt 时间: 2008-8-22 10:47
牛人一群,水平太高了,

作者: yyf-lyq 时间: 2008-9-3 18:38

真感谢!!!

作者: jfs23 时间: 2008-9-12 01:57
标题: 可以发布各种信息
天天信息网,现在可以免费发布各种招聘,求职,交友等信息
网址https://www.hao716.cn

作者: qichengjun 时间: 2008-9-29 19:23
哈,安全第一~不被发现~

作者: limu0000 时间: 2008-10-12 00:32
创意不错呀!!
忽略空行在 (while (setq rd (read-line fil))下面加如下代码
(if(= rd "")
(progn (setq rd (read-line fil))
(setq b (+ b 1))
)
)

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

作者: bluevox3000 时间: 2008-10-13 19:00
太有创意了，哈哈

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

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

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

作者: kendy_yuan 时间: 2008-10-28 16:35
你们真是牛XX,佩服

作者: 刘代超 时间: 2008-11-6 20:06
我怎么弄不出来啊，请指点下
命令: ; 错误: 读入的 (八进制) 字符不正确: 21

出现这样的东东

作者: hrz1220 时间: 2009-6-24 17:30
牛人一群,水平太高了,

作者: 心是莲花开 时间: 2009-11-28 00:55
创意不错呀!!

作者: ydw0755 时间: 2009-12-23 10:25
太有创意了，哈哈

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)