求教！修改动态块内图元颜色后、屏幕上没有更新如何解决？

xiaocainiao

请教一下各位大神、下面是我弄的一个修改图块颜色的代码、现在有一个问题：

就是用blk_col_change修改后、需要用-bedit命令进入块编辑器并保存退出、
对应的同名块才能在屏幕上更新显示、
我想问一下有没有办法不用-bedit命令、直接更新修改后的同名块？

之前试过用vla-Update更新、但是这个函数貌似只能更新单个图元、如果图块是嵌套在其他块里、就不好处理了、
另外楼下有大神分享了程序可以更新同名块、但是将普通块和动态块分开处理了、我想统一处理不知道能否实现？

2. (defun c:tt (/ blk_col_change blk_name blks block_bh_col_new en obj ss)
   
3.   ;修改块内图元颜色
   
4.   (defun blk_col_change (blk block_bh_col_new)
   
5.     (vlax-for x blk
   
6.       (vla-put-Color x block_bh_col_new)
   
7.       (if (= "INSERT" (cdr (assoc 0 (entget (vlax-vla-object->ename x)))))
   
8.         (blk_col_change (vla-Item blks (vla-get-EffectiveName x)) block_bh_col_new)
   
9.       )
   
10.     )
    
11.   )
    
12.   (setq blks (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
    
13.   (setq ss (ssget ":S"'((0 . "insert"))))
    
14.   (if ss
    
15.     (progn
    
16.       (setq en (ssname ss 0))
    
17.       (setq obj (vlax-ename->vla-object en)
    
18.         blk_name (vla-get-EffectiveName obj)
    
19.       )
    
20.       (setq block_bh_col_new (getint "\n输入新的色号:<250>"))
    
21.       (if (null block_bh_col_new)(setq block_bh_col_new 250))
    
22.       (blk_col_change (vla-Item blks blk_name) block_bh_col_new)
    
23.       (command "-bedit" blk_name)
    
24.       (command "bsave")
    
25.       (command "bclose")  
    
26.     )
    
27.   )
    
28. )

(defun c:tt (/ blk_col_change blk_name blks block_bh_col_new en obj ss)<br />   ;修改块内图元颜色<br />   (defun blk_col_change (blk block_bh_col_new)<br />     (vlax-for x blk<br />       (vla-put-Color x block_bh_col_new)<br />       (if (= "INSERT" (cdr (assoc 0 (entget (vlax-vla-object->ename x)))))<br />         (blk_col_change (vla-Item blks (vla-get-EffectiveName x)) block_bh_col_new)<br />       )<br />     )<br />   )<br />   (setq blks (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))))<br />   (setq ss (ssget ":S"'((0 . "insert"))))<br />   (if ss <br />     (progn <br />       (setq en (ssname ss 0))<br />       (setq obj (vlax-ename->vla-object en)<br />         blk_name (vla-get-EffectiveName obj)<br />       )<br />       (setq block_bh_col_new (getint "\n输入新的色号:<250>"))<br />       (if (null block_bh_col_new)(setq block_bh_col_new 250))<br />       (blk_col_change (vla-Item blks blk_name) block_bh_col_new)<br />       (command "-bedit" blk_name)<br />       (command "bsave")<br />       (command "bclose")  <br />     )<br />   )<br /> )

测试文件上传到附件了、如果有会的朋友、感谢解答

ssyfeng

修改了一下：

paulpipi

帮顶，期待高手帮忙解答

xiaocainiao

ssyfeng 发表于 2024-2-15 17:13
应该是这个效果：

是这个意思、谢谢

xiaocainiao

ssyfeng 发表于 2024-2-15 17:13
应该是这个效果：

不好意思、刚刚发现一个问题、就是更新图块好像只是更新选择的图块、其他同名块无法更新、有没有办法把同名块一起更新啊

ssyfeng

xiaocainiao 发表于 2024-2-15 17:36
不好意思、刚刚发现一个问题、就是更新图块好像只是更新选择的图块、其他同名块无法更新、有没有办法把同 ...

已修改，请重新下载

xiaocainiao

ssyfeng 发表于 2024-2-15 18:06
已修改，请重新下载

貌似还是有点问题、就是如果有两个动态块、修改其中一个动态块颜色、另一个也跟着变了

ssyfeng

xiaocainiao 发表于 2024-2-15 18:11
貌似还是有点问题、就是如果有两个动态块、修改其中一个动态块颜色、另一个也跟着变了

更新了文件，你重新下载试试

xiaocainiao

ssyfeng 发表于 2024-2-15 18:41
更新了文件，你重新下载试试

这个可以了、谢谢

xiaocainiao

ssyfeng 发表于 2024-2-15 18:41
更新了文件，你重新下载试试

大神您好、我还想请教一下、更新同名图块这个除了用vla-Update函数外、还有没有其他方法可以更新同名块、主要我发现vla-Update有个弊端、就是如果修改的图块嵌套到其他块里面好像更新不了；

另外我是想弄个通用的方式、就是不用区分这个图块是不是动态块、都是用一样的方式更新、不知道能不能实现？

目前我用的进块编辑器、再保存退出的方法更新的、这种倒是可行、就是会闪一下屏幕有点难受