tianyi1230 发表于 2013-6-28 13:08:47

最近楼主高产啊，全部是在CAD原来功能的加强，楼主想全部替代CAD原来功能吗？哈哈
貌似论坛里面郎大师写了个相同刷2.0也很火，我提供一个论坛已有的，还是有点缺点的，不灵活，功能强大，不过在文字内容上支持的太少了。

自贡黄明儒 发表于 2013-6-28 13:10:05

测：
(defun C:w1 (/ CODE LOOP)
(setq loop T)
(while loop
    (setq code (grread T 8))
    (princ (car code))
    (if        (or (= (car code) 25) (= (car code) 11))
      (setq loop nil)
    )
)
)
按右键时，返回25 nil

wowan1314 发表于 2013-6-28 13:12:38

自贡黄明儒 发表于 2013-6-28 13:03 static/image/common/back.gif
按回车时，(YY:getpoint '(NIL 5 0)) "CTRL-H或退格"
按右键时，(YY:getpoint '(NIL 5 0)) nil

用下面的测试下。 你的情况也没在我的超级point函数包括的情况下。

(defun C:t11 ( / AA)
(WHILE (not (member (car (setq aa (grread T 5 2))) '(3 11 12 25)))
(IF (/= (CAR AA) 5)(princ aa))
)
)

vormittag 发表于 2013-6-28 13:16:07

Cao版的刷子程序地址在这里：
http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=72404&pid=380869&fromuid=398403

楼主发现不支持ucs，其实稍稍改一下就可以了。
我把修改的刷子函数放在这里, 函数参数有了一点调整，用UCS下点坐标取代了x y参数。(defun d_brush (pt color size / TempVecs)
        (setq TempVecs
                (mapcar
                        '(lambda(x)
                                (mapcar
                                        '(lambda (y)
                                                (mapcar '+ pt (mapcar '(lambda(z) (* z size)) (trans y 2 1 T)))
                                                )
                                        x))
                        '(((12.5 -5) (12.5 -11.5))
                                ((13.5 -4) (13.5 -11.5))
                                ((14.5 -4) (14.5 -11.5))
                                ((15.5 -5) (15.5 -11.5))
                                ((9.5 -11.5) (18.5 -11.5))
                                ((9.5 -11.5) (7.5 -13))
                                ((18.5 -11.5) (20.5 -13))
                                ((7.5 -13) (7.5 -21))
                                ((20.5 -13) (20.5 -21))
                                ((7.5 -14) (20.5 -14))
                                ((7.5 -15) (20.5 -15))
                                ((7.5 -17) (20.5 -17))
                                ((7.5 -18) (20.5 -18))
                                ((7.5 -21) (20.5 -21))
                                ((7.5 -21) (3 -25.5))
                                ((12 -21) (7.5 -25.5))
                                ((16 -21) (11.5 -25.5))
                                ((20.5 -21) (16 -25.5))
                                ((3 -25.5) (16 -25.5))))
                  Lst
                (mapcar 'cons (mapcar (function (lambda (x) color)) TempVecs) TempVecs))
        (grvecs (apply 'append Lst)))

wowan1314 发表于 2013-6-28 13:16:18

自贡黄明儒 发表于 2013-6-28 13:10 static/image/common/back.gif
测：
(defun C:w1 (/ CODE LOOP)
(setq loop T)


我测试只有两种情况。

命令: T11 (11 0)(12 (375010.0 139245.0 0.0))(11 0)(12 (375204.0 144677.0
0.0))(11 0)(12 (375204.0 144677.0 0.0))应用程序错误: 控制台中断
函数被取消
命令:
命令: GR OPTIONS
命令:
命令: T11 (25 679)(25 682)(25 682)(25 682)(25 682)(25 682)

小毛草 发表于 2013-6-28 13:37:09

效果不错，比较TS的好用！

自贡黄明儒 发表于 2013-6-28 13:39:37

用你的t11测试
回车返回：(2 13)
右键返回nil

wowan1314 发表于 2013-6-28 13:45:58

自贡黄明儒 发表于 2013-6-28 13:39 static/image/common/back.gif
用你的t11测试
回车返回：(2 13)
右键返回nil

把我的内容刷中'(11 12 25)改为'(NIL 11 12 25)试试

另外你的回车，用T11与yy:getpoint怎么回出现两种不同的情况？！

自贡黄明儒 发表于 2013-6-28 13:51:47

wowan1314 发表于 2013-6-28 13:45 static/image/common/back.gif
把我的内容刷中'(11 12 25)改为'(NIL 11 12 25)试试

另外你的回车，用T11与yy:getpoint怎么回出现两种 ...

也不行，单独测试时，确实返回25，也能中断，看来只好修改"SHORTCUTMENU"

自贡黄明儒 发表于 2013-6-28 14:07:16

自贡黄明儒 发表于 2013-6-28 13:51 static/image/common/back.gif
也不行，单独测试时，确实返回25，也能中断，看来只好修改"SHORTCUTMENU"

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