求论坛大佬帮忙看下这个块内编辑问题

薄荷微光

2. (defun c:gs1 (/ en i obj ss)  (vl-load-com)  (while  (setq ss (ssget ":S"))      (setq i 0)      (while (< i (sslength ss))      (setq en (ssname ss i));获取图元名      (setq obj (vlax-ename->vla-object en));转换为VLA对象      (vla-put-color obj 1);改颜色      (setq i (1+ i))      )    )  (princ))

(defun c:gs1 (/ en i obj ss)  (vl-load-com)  (while  (setq ss (ssget ":S"))      (setq i 0)      (while (< i (sslength ss))      (setq en (ssname ss i));获取图元名      (setq obj (vlax-ename->vla-object en));转换为VLA对象      (vla-put-color obj 1);改颜色      (setq i (1+ i))      )    )  (princ))

之前在论坛高手帮助下弄了这个改对象颜色的程序，但在使用时发现块在位编辑时也能改变块外面图元的颜色，怎么才能不改变块外面的呢。

你有种再说一遍

https://www.cnblogs.com/JJBox/p/11185185.html
很多东西都解密了