清风明月名字 发表于 2013-7-1 07:59:14

谢谢众位坛友代码分享！

caizeping 发表于 2013-7-1 08:30:11

厉害啊，不懂了

userzhl 发表于 2013-7-1 11:15:32

空格键退出不了。

自贡黄明儒 发表于 2013-7-4 23:33:49

刷子:
(princ "\n 自贡黄明儒 相同刷：XX尾数增1：ZZ")

无惢 发表于 2013-7-5 14:47:29

wowan1314 发表于 2013-6-28 12:29 static/image/common/back.gif
兄弟们！ 下载记得回帖！ 好坏都给句话。

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


http://bbs.mjtd.com/thread-101921-1-1.html 参考他的贴吧。让你更有前进的动力

mj0000 发表于 2013-7-5 22:19:47

这把刷子有什么不一样么，试用看看

mj0000 发表于 2013-7-5 23:13:09

本帖最后由 mj0000 于 2013-7-5 23:15 编辑

右键grread返回确认，我觉得完全没必要
下面的改个写法就可以了(VL-CMDF "MATCHPROP" E)
(WHILE (AND UU (not (member (SETQ CC (car (grread NIL 5 2))) '(11 12 25))))
    (PRINC "\n选择目标文字:<刷为")
    (PRINC UU)
    (PRINC ">")
    (SETQ SS (vl-catch-all-apply
         '(LAMBDANIL
      (SSGET ":S:L"
       '((0 . "*TEXT,TCH_DRAWINGNAME,TCH_MULTILEADER"))
      )
    )
       )
    )
......改写成下面这样就可以了(PRINC "\n选择目标文字:<刷为")
(PRINC UU)
(PRINC ">")
(VL-CMDF "MATCHPROP" E)
(WHILE (= 'PICKSET (SETQ SS (vl-catch-all-apply

mj0000 发表于 2013-7-5 23:16:52

不知道为什么，代码贴不全

yeahyeah 发表于 2013-8-20 20:32:41

支持！哈哈哈！做成DCL样子的，会不会更打动人？嘿嘿

dcl1214 发表于 2013-9-16 00:27:42

支持！！！
页: 1 2 3 [4] 5 6
查看完整版本: 【源码分享】向caoyin致敬----也来发个带刷子的文字内容刷。