一个在AUTOCAD的命令行里看TXT书的小程序

wxdzh · 发表于 2008-8-6 00:06:01

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

原代码如下:

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

特适合在上班时间看小说

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

ydw0755 · 发表于 2009-12-23 10:25:36

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

心是莲花开 · 发表于 2009-11-28 00:55:57

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

hrz1220 · 发表于 2009-6-24 17:30:51

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

刘代超 · 发表于 2008-11-6 20:06:50

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

kendy_yuan · 发表于 2008-10-28 16:35:39

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

mushar · 发表于 2008-10-28 09:54:52

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

bluevox3000 · 发表于 2008-10-13 19:00:43

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

limu0000 · 发表于 2008-10-12 00:32:46

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

qichengjun · 发表于 2008-9-29 19:23:45

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

		自动登录	找回密码
密码			立即注册