明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: wowan1314

[源码] 【源码分享】向caoyin致敬----也来发个带刷子的文字内容刷。

[复制链接]
发表于 2013-7-1 07:59:14 | 显示全部楼层
谢谢众位坛友代码分享!
发表于 2013-7-1 08:30:11 | 显示全部楼层
厉害啊,不懂了
发表于 2013-7-1 11:15:32 | 显示全部楼层
空格键退出不了。

点评

看前面的帖子  发表于 2013-7-3 20:06
发表于 2013-7-4 23:33:49 | 显示全部楼层
刷子:
(princ "\n 自贡黄明儒 相同刷:XX  尾数增1:ZZ")

本帖子中包含更多资源

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

x
发表于 2013-7-5 14:47:29 | 显示全部楼层
wowan1314 发表于 2013-6-28 12:29
兄弟们! 下载记得回帖! 好坏都给句话。

第一, 让我觉的有点成就感(呵呵)。第二方便我继续改进。

http://bbs.mjtd.com/thread-101921-1-1.html 参考他的贴吧。让你更有前进的动力  
发表于 2013-7-5 22:19:47 | 显示全部楼层
这把刷子有什么不一样么,试用看看
发表于 2013-7-5 23:13:09 | 显示全部楼层
本帖最后由 mj0000 于 2013-7-5 23:15 编辑

右键grread返回确认,我觉得完全没必要
下面的改个写法就可以了
  1.   (VL-CMDF "MATCHPROP" E)
  2.   (WHILE (AND UU (not (member (SETQ CC (car (grread NIL 5 2))) '(11 12 25))))
  3.     (PRINC "\n选择目标文字:<刷为")
  4.     (PRINC UU)
  5.     (PRINC ">")
  6.     (SETQ SS (vl-catch-all-apply
  7.          '(LAMBDA  NIL
  8.       (SSGET ":S:L"
  9.        '((0 . "*TEXT,TCH_DRAWINGNAME,TCH_MULTILEADER"))
  10.       )
  11.     )
  12.        )
  13.     )
  14. ......
复制代码
改写成下面这样就可以了
  1.   (PRINC "\n选择目标文字:<刷为")
  2.   (PRINC UU)
  3.   (PRINC ">")  
  4.   (VL-CMDF "MATCHPROP" E)
  5. (WHILE (= 'PICKSET (SETQ SS (vl-catch-all-apply
复制代码
发表于 2013-7-5 23:16:52 | 显示全部楼层
不知道为什么,代码贴不全
发表于 2013-8-20 20:32:41 | 显示全部楼层
支持!哈哈哈!做成DCL样子的,会不会更打动人?嘿嘿
发表于 2013-9-16 00:27:42 | 显示全部楼层
支持!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-25 22:24 , Processed in 0.176122 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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