选中块变色的程序

cbwt8116

不是那种选中了所有的同名块都变色，而是只变色选中的块，未选中的同名块仍保持原有颜色。谢谢！

marting

• 批量修改实体颜色（支持嵌套块、尺寸实体）
  230 个回复 - 11713 次查看
  转帖修改老大的帖子，加入了普通实体的颜色修改。原帖链接： 原讨论帖链接： http://bbs.xdcad.net/thread-678040-1-1.html **** 本内容被作者隐藏 ****
  2014-12-9 20:02 - newer - 每日插件
• 【批量】处理DWG，所有实体（嵌套块）图层归0，颜色BYLAYER，块内BYBLOCK并Purge图形
  26 个回复 - 395 次查看
  特点： 1、本工具使用晓东通用函数库的 xd::odbx 函数批量处理DWG，同 xd::vla:odbx 的区别是 存盘可以按原图版本，也可以通过函数如 (xd::odbx:saveversion "2004")，指定存盘版本。vl版本的存盘 vla-saveas 只能 ...
  2017-12-31 16:50 - newer - 每日插件
• 修改图块内实体的颜色（支持嵌套图块，一改到底）
  202 个回复 - 10802 次查看
  **** 本内容被作者隐藏 ****
  2013-10-20 21:09 - XDSoft - 每日插件
  
  

cbwt8116

marting 发表于 2018-7-4 12:30

批量修改实体颜色（支持嵌套块、尺寸实体）230 个回复 - 11713 次查看转帖修改老大的帖子，加入了普通 ...

感谢帮助。然而这是把所有同名块都一并改了。我只要改选中块的

marting

cbwt8116 发表于 2018-7-4 14:18
感谢帮助。然而这是把所有同名块都一并改了。我只要改选中块的

一、你用上面工具，把块里面颜色改成BYBLOCK
二、你在修改你要改的块的颜色。

cbwt8116

marting 发表于 2018-7-4 14:24
一、你用上面工具，把块里面颜色改成BYBLOCK
二、你在修改你要改的块的颜色。

改成BYBLOCK了。然而并不行。只能批量改块颜色

marting

cbwt8116 发表于 2018-7-4 14:49
改成BYBLOCK了。然而并不行。只能批量改块颜色

你改成BYBLOCK以后，修改这个单独的块颜色，你用任意的改颜色的工具就行了，选中块，然后用特性面板，改里面的块颜色， 或者用CHPROP命令，修改块的颜色，就行了，就不影像到其他块了。

cbwt8116

marting 发表于 2018-7-4 15:13
你改成BYBLOCK以后，修改这个单独的块颜色，你用任意的改颜色的工具就行了，选中块，然后用特性面板，改 ...

因为有插件能实现单独块变色。但是插件太臃肿了，只想要这一个功能。还是感谢您的帮助！

newer

cbwt8116 发表于 2018-7-5 08:30
因为有插件能实现单独块变色。但是插件太臃肿了，只想要这一个功能。还是感谢您的帮助！

1. (defun C:tt ( / clr e e1 elst n na nal ss tf)
   
2.   (defun _blkchgclr (e / elst n)
   
3.     (setq elst (xdrx_block->entities e T))
   
4.     (foreach n elst
   
5.       (xdrx_setpropertyvalue n "color" 0)
   
6.     )
   
7.     (xdrx_setpropertyvalue e "color" $xdtb_var_global_blkrefcolor)
   
8.     (xdrx_block_update e)
   
9.   )
   
10.   (if (not $xdtb_var_global_blkrefcolor)
    
11.     (setq $xdtb_var_global_blkrefcolor 256)
    
12.   )
    
13.   (setq tf t)
    
14.   (xdrx_begin)
    
15.   (while (and tf (progn
    
16.            (prompt (strcat "\n**当前颜色:" (cond
    
17.                                              ((= 256 $xdtb_var_global_blkrefcolor)
    
18.                                                "ByLayer"
    
19.                                              )
    
20.                                              ((= $xdtb_var_global_blkrefcolor 0)
    
21.                                                "ByBlock"
    
22.                                              )
    
23.                                              ((= (type $xdtb_var_global_blkrefcolor) 'INT)
    
24.                                                (itoa $xdtb_var_global_blkrefcolor)
    
25.                                              )
    
26.                                              (t
    
27.                                                (xdrx_prompt "R=" (car $xdtb_var_global_blkrefcolor) " G=" (cadr $xdtb_var_global_blkrefcolor) " B=" (caddr $xdtb_var_global_blkrefcolor) t)
    
28.                                              )
    
29.                                            ) "**"
    
30.                    )
    
31.            )
    
32.            (xdrx_initget "C A")
    
33.            (setq e (xdrx_entsel "\n拾取要修改颜色的块实体[C-修改颜色]<退出>:" '((0 . "insert"))))
    
34.          ))
    
35.     (cond
    
36.       ((= e "C")
    
37.         (if (setq clr (xdrx_color_select $xdtb_var_global_blkrefcolor))
    
38.           (setq $xdtb_var_global_blkrefcolor clr)
    
39.         )
    
40.       )
    
41.       (t
    
42.         (_blkchgclr (car e))
    
43.       )
    
44.     )
    
45.   )
    
46.   (xdrx_end)
    
47.   (princ)
    
48. )
    
49. 
    

(defun C:tt ( / clr e e1 elst n na nal ss tf)<br />   (defun _blkchgclr (e / elst n)<br />     (setq elst (xdrx_block->entities e T))<br />     (foreach n elst<br />       (xdrx_setpropertyvalue n "color" 0)<br />     )<br />     (xdrx_setpropertyvalue e "color" $xdtb_var_global_blkrefcolor)<br />     (xdrx_block_update e)<br />   )<br />   (if (not $xdtb_var_global_blkrefcolor)<br />     (setq $xdtb_var_global_blkrefcolor 256)<br />   )<br />   (setq tf t)<br />   (xdrx_begin)<br />   (while (and tf (progn<br />            (prompt (strcat "\n**当前颜色:" (cond<br />                                              ((= 256 $xdtb_var_global_blkrefcolor)<br />                                                "ByLayer"<br />                                              )<br />                                              ((= $xdtb_var_global_blkrefcolor 0)<br />                                                "ByBlock"<br />                                              )<br />                                              ((= (type $xdtb_var_global_blkrefcolor) 'INT)<br />                                                (itoa $xdtb_var_global_blkrefcolor)<br />                                              )<br />                                              (t<br />                                                (xdrx_prompt "R=" (car $xdtb_var_global_blkrefcolor) " G=" (cadr $xdtb_var_global_blkrefcolor) " B=" (caddr $xdtb_var_global_blkrefcolor) t)<br />                                              )<br />                                            ) "**"<br />                    )<br />            )<br />            (xdrx_initget "C A")<br />            (setq e (xdrx_entsel "\n拾取要修改颜色的块实体[C-修改颜色]<退出>:" '((0 . "insert"))))<br />          ))<br />     (cond<br />       ((= e "C")<br />         (if (setq clr (xdrx_color_select $xdtb_var_global_blkrefcolor))<br />           (setq $xdtb_var_global_blkrefcolor clr)<br />         )<br />       )<br />       (t<br />         (_blkchgclr (car e))<br />       )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />

cbwt8116

newer 发表于 2018-7-5 09:58

感谢newer版主帮助。非常好，正是我想要的。还请版主能否改进一下，在已经选择好块的情况下运行本程序即可改色，不必重新选择？