[求助]不炸开块参照，图元改图层改进
 

[求助]不炸开块参照，图元改图层改进
www.dimcax.com
[求助]不炸开块参照，图元改图层改进以前网上收集的一个程序，现在想做以下两点改进。因为没学过lisp，所以只能到这里劳烦一下大虾了。
1、能一次性选择多个图元
2、图元被选择后，图元能够虚显
(defun c:ch ()
(vl-load-com)
(setq obj (car (nentsel "\n请选择块内的一个图元: ")))
(setq obj (vlax-ename->vla-object obj))
(setq col (getstring "\n请输入颜色号(1~255): "))
(vlax-put-property obj 'color col)
(setq lay (getstring "\n请输入图层名称(已存在的): "))
(vla-put-layer obj lay)
(vl-cmdf "regen")
(princ)
)
d
没人回答 自己顶上去
d
1、能一次性选择多个图元
只能够通过 while 多次执行 nentsel 来实现多选，而无法实现ssget的效果
2、图元被选择后，图元能够虚显
块中的图元无法实现虚显，但可以模拟(这样比较复杂)
d