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

lennie

以前网上收集的一个程序，现在想做以下两点改进。因为没学过lisp，所以只能到这里劳烦一下大虾了。
1、能一次性选择多个图元
2、图元被选择后，图元能够虚显

2. (defun c:ch ()
3. (vl-load-com)
4. (setq obj (car (nentsel "\n请选择块内的一个图元: ")))
5. (setq obj (vlax-ename->vla-object obj))
6. (setq col (getstring "\n请输入颜色号(1~255): "))
7. (vlax-put-property obj 'color col)
8. (setq lay (getstring "\n请输入图层名称(已存在的): "))
9. (vla-put-layer obj lay)
10. (vl-cmdf "regen")
11. (princ)
12. )

(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) )

lennie

没人回答 自己顶上去

caoyin

1、能一次性选择多个图元

只能够通过 while 多次执行 nentsel 来实现多选，而无法实现ssget的效果

1. 2、图元被选择后，图元能够虚显

复制代码

块中的图元无法实现虚显，但可以模拟(这样比较复杂)