找回密码 注册 QQ登录
开思网工业级高精度在线3D打印服务

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 20651|回复: 14
打印 上一主题 下一主题

[原创] 一个在AUTOCAD的命令行里看TXT书的小程序

[复制链接]
跳转到指定楼层
1
发表于 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"))

特适合在上班时间看小说 ,不会被发现!
我也是还在学习中,高手别见笑,欢迎对此段代码进行优化修改
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
2
发表于 2008-8-13 22:36:51 | 只看该作者
呵呵!很好玩儿!不过有两点个人意见如下:
1、(setq t 1)中的“t”最好改为其他名称,因为跟默认“T”干涉;
2 、(while (setq rd (read-line fil))下面最好增加一句
    (while (= rd "")(setq rd (read-line fil))
      这样可以忽略空行。
另外,如果能自动记住上次读的行数就更好了
3
发表于 2008-8-22 00:08:55 | 只看该作者
另外,如果能自动记住上次读的行数就更好了

可以将上次读的行数保存在文件或注册表中,下次自动读取
4
发表于 2008-8-22 10:47:48 | 只看该作者
牛人一群,水平太高了,
5
发表于 2008-9-3 18:38:00 | 只看该作者


真感谢!!!
6
发表于 2008-9-12 01:57:23 | 只看该作者

可以发布各种信息

天天信息网,现在可以免费发布各种招聘,求职,交友等信息
网址https://www.hao716.cn
7
发表于 2008-9-29 19:23:45 | 只看该作者
哈,安全第一~不被发现~
8
发表于 2008-10-12 00:32:46 | 只看该作者
创意不错呀!!
忽略空行在 (while (setq rd (read-line fil))下面加如下代码
(if(= rd "")
    (progn (setq rd (read-line fil))
                 (setq b (+ b 1))
      )
)

改天我再改一下上传可以记行数的代码!
9
发表于 2008-10-13 19:00:43 | 只看该作者
太有创意了,哈哈
10
发表于 2008-10-28 09:54:52 | 只看该作者
小弟用vba也边了一个,发现一次性读取稍微大一点的txt文件命令行就会自动掐掉一部分或者是提示内存不足!

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

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

[ 本帖最后由 mushar 于 2008-10-28 10:00 编辑 ]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-12-28 19:36 , Processed in 0.025243 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表