[求助]不炸开块参照，图元改图层改进
本帖最后由 作者 于 2008-11-28 21:55:24 编辑以前网上收集的一个程序，现在想做以下两点改进。因为没学过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)
) 没人回答 自己顶上去 本帖最后由 作者 于 2008-12-2 10:23:33 编辑
1、能一次性选择多个图元
只能够通过 while 多次执行 nentsel 来实现多选，而无法实现ssget的效果
2、图元被选择后，图元能够虚显块中的图元无法实现虚显，但可以模拟(这样比较复杂)
页:
[1]