明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 5380|回复: 14

带双击反应器的单行文本书写和修改

    [复制链接]
发表于 2011-11-13 14:49:09 | 显示全部楼层 |阅读模式
第一次练习反应器,终于成功了!开心


名称:单行文本书写和修改
功能:文本程序含有双击反应器,对单行文本有两个功能:
     1、书写单行文本,命令:TR
     2、修改单行文本,命令:TX 或者双击单行文本



本帖子中包含更多资源

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

x

点评

缺少这个文件c:\WINDOWS\temp\WZBZ.ini,能否请楼主提供,谢谢!  发表于 2013-4-28 23:30

评分

参与人数 4明经币 +4 收起 理由
自贡黄明儒 + 1 赞一个!
仲文玉 + 1 赞一个!以资鼓励
yjr111 + 1 祝贺楼主哈!
xiaxiang + 1 这个一定要支持一下

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2022-8-2 22:00:43 | 显示全部楼层
楼主程序强大,但也有大缺陷:如楼上几位提到的 缺少WZBZ.ini文件。十年了没有更正回复。经过我仔细研究:是缺少WZBZ.ini文件,起初还莫名其妙,心想楼主这么强大,怎么会犯这种小错误?  经过我编程完善,已解决。思路是:若找不到WZBZ.ini文件程序就会自动生成一个WZBZ.ini,方便调用。这样就不需要一个初始WZBZ.ini文件了,整个程序就好方便携带。

在原代码
(defun C:TR (/ bb cc dcl_pt dd ee ent file i index_value lst01 lst02 lst03 next pt t1 t40 t41 t50 t51 t71s t72s t73s)
  (setvar "cmdecho" 0) ; 关闭命令响应

下 插入以下代码

      (if(not(setq file (open "c:\\WINDOWS\\temp\\WZBZ.ini" "r")))
     (progn (setq file (open "c:\\WINDOWS\\temp\\WZBZ.ini" "w"))
       (write-line "3" file)(write-line "0.7" file)(write-line "0" file)(write-line "0" file)(write-line "左对齐" file)
       (write-line "基线对齐" file)(write-line "standard" file)(write-line "0" file)(write-line "0" file)
      (close file)))
发表于 2022-9-7 16:29:56 | 显示全部楼层
zcsoft 发表于 2022-8-2 22:00
楼主程序强大,但也有大缺陷:如楼上几位提到的 缺少WZBZ.ini文件。十年了没有更正回复。经过我仔细研究: ...

插件依然无法运行,求解答
发表于 2022-8-2 20:24:10 | 显示全部楼层
ACAD2021    ; 错误: 参数类型错误: stringp nil
发表于 2011-11-13 21:33:12 | 显示全部楼层
这个跟清华天河的蛮像。
发表于 2011-11-22 17:51:04 | 显示全部楼层
tr ; error: bad argument type: FILE nil
是什么原因,2006版本
发表于 2011-11-22 20:21:05 | 显示全部楼层
楼主好功力!谢谢!
发表于 2011-11-22 21:13:12 | 显示全部楼层
程序不错,好用。
发表于 2012-1-8 11:29:24 | 显示全部楼层
tr命令是否和CAD的命令重复呢?是否修改一下呢
发表于 2012-1-9 22:23:07 | 显示全部楼层
有点像天河哦,可以学习下
发表于 2012-1-9 23:29:32 | 显示全部楼层
顶楼主,学习反应器
发表于 2012-1-9 23:48:44 | 显示全部楼层
对反应器,以前学了一下。但没有理会。
学习了
发表于 2012-11-4 20:31:04 | 显示全部楼层
为何我显示宽度系数老是整数位,无小数显示?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-17 07:24 , Processed in 0.206588 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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