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

tianyi1230

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

自贡黄明儒

测：
(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:03
按回车时，(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

Cao版的刷子程序地址在这里：
http://bbs.mjtd.com/forum.php?mo ... &fromuid=398403

楼主发现不支持ucs，其实稍稍改一下就可以了。
我把修改的刷子函数放在这里, 函数参数有了一点调整，用UCS下点坐标取代了x y参数。

2. (defun d_brush (pt color size / TempVecs)
   
3.         (setq TempVecs
   
4.                 (mapcar
   
5.                         '(lambda(x)
   
6.                                 (mapcar
   
7.                                         '(lambda (y)
   
8.                                                 (mapcar '+ pt (mapcar '(lambda(z) (* z size)) (trans y 2 1 T)))
   
9.                                                 )
   
10.                                         x))
    
11.                         '(((12.5 -5) (12.5 -11.5))
    
12.                                 ((13.5 -4) (13.5 -11.5))
    
13.                                 ((14.5 -4) (14.5 -11.5))
    
14.                                 ((15.5 -5) (15.5 -11.5))
    
15.                                 ((9.5 -11.5) (18.5 -11.5))
    
16.                                 ((9.5 -11.5) (7.5 -13))
    
17.                                 ((18.5 -11.5) (20.5 -13))
    
18.                                 ((7.5 -13) (7.5 -21))
    
19.                                 ((20.5 -13) (20.5 -21))
    
20.                                 ((7.5 -14) (20.5 -14))
    
21.                                 ((7.5 -15) (20.5 -15))
    
22.                                 ((7.5 -17) (20.5 -17))
    
23.                                 ((7.5 -18) (20.5 -18))
    
24.                                 ((7.5 -21) (20.5 -21))
    
25.                                 ((7.5 -21) (3 -25.5))
    
26.                                 ((12 -21) (7.5 -25.5))
    
27.                                 ((16 -21) (11.5 -25.5))
    
28.                                 ((20.5 -21) (16 -25.5))
    
29.                                 ((3 -25.5) (16 -25.5))))
    
30.                   Lst
    
31.                 (mapcar 'cons (mapcar (function (lambda (x) color)) TempVecs) TempVecs))
    
32.         (grvecs (apply 'append Lst)))

(defun d_brush (pt color size / TempVecs)<br />         (setq TempVecs<br />                 (mapcar <br />                         '(lambda(x)<br />                                 (mapcar <br />                                         '(lambda (y) <br />                                                 (mapcar '+ pt (mapcar '(lambda(z) (* z size)) (trans y 2 1 T)))<br />                                                 ) <br />                                         x))<br />                         '(((12.5 -5) (12.5 -11.5))<br />                                 ((13.5 -4) (13.5 -11.5))<br />                                 ((14.5 -4) (14.5 -11.5)) <br />                                 ((15.5 -5) (15.5 -11.5)) <br />                                 ((9.5 -11.5) (18.5 -11.5))<br />                                 ((9.5 -11.5) (7.5 -13)) <br />                                 ((18.5 -11.5) (20.5 -13))<br />                                 ((7.5 -13) (7.5 -21))<br />                                 ((20.5 -13) (20.5 -21)) <br />                                 ((7.5 -14) (20.5 -14)) <br />                                 ((7.5 -15) (20.5 -15)) <br />                                 ((7.5 -17) (20.5 -17))<br />                                 ((7.5 -18) (20.5 -18))<br />                                 ((7.5 -21) (20.5 -21)) <br />                                 ((7.5 -21) (3 -25.5))<br />                                 ((12 -21) (7.5 -25.5)) <br />                                 ((16 -21) (11.5 -25.5)) <br />                                 ((20.5 -21) (16 -25.5)) <br />                                 ((3 -25.5) (16 -25.5))))<br />                   Lst <br />                 (mapcar 'cons (mapcar (function (lambda (x) color)) TempVecs) TempVecs))<br />         (grvecs (apply 'append Lst)))

wowan1314

自贡黄明儒 发表于 2013-6-28 13:10
测：
(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)

小毛草

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

自贡黄明儒

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

wowan1314

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

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

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

自贡黄明儒

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

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

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

自贡黄明儒

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

(getvar "SHORTCUTMENU") 11