找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 20605|回复: 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 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
3
发表于 2008-8-22 00:08:55 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
4
发表于 2008-8-22 10:47:48 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
5
发表于 2008-9-3 18:38:00 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
6
发表于 2008-9-12 01:57:23 | 只看该作者

可以发布各种信息

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
7
发表于 2008-9-29 19:23:45 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
8
发表于 2008-10-12 00:32:46 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
9
发表于 2008-10-13 19:00:43 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
10
发表于 2008-10-28 09:54:52 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

GMT+8, 2024-11-15 01:11 , Processed in 0.027906 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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