[求助]：在CAD中通过用鼠标划过的区域选取多个实体

saintlzh

通过在CAD中用鼠标划过一个区域，来获得将该区域内所包含的实体，然后对这些实体作一些操作，譬如把他们的名字全都显示一遍等等，请各位高手指教。

XDSoft

最初由 saintlzh 发布
[B]通过在CAD中用鼠标划过一个区域，来获得将该区域内所包含的实体，然后对这些实体作一些操作，譬如把他们的名字全都显示一遍等等，请各位高手指教。 [/B]

用 (setq ss (ssget)) 获得矩形框内的实体选择集，然后循环处理选择集，做希望做的事就可以了。

saintlzh

谢谢你的指点，不过我是一个新手，能不能给出一段实现类似功能的代码呢？谢谢了

gchen

这是一个很简单的提取图元类型的小命令，给你做参考。

2. 
   
3. (defun c:dispename (/ ss cnt enamelist ename ent)
   
4.   (setq ss (ssget)
   
5.         cnt 0
   
6.         enamelist '()
   
7.         )
   
8.   (if ss
   
9.     (while (setq ent (ssname ss cnt))
   
10.       (setq ename (cdr (assoc 0 (entget ent)))
    
11.             enamelist (cons ename enamelist)
    
12.             cnt (1+ cnt)
    
13.             )
    
14.       )
    
15.     )
    
16.   enamelist
    
17.   )
    

<br /> (defun c:dispename (/ ss cnt enamelist ename ent)<br />   (setq ss (ssget)<br />         cnt 0<br />         enamelist '()<br />         )<br />   (if ss<br />     (while (setq ent (ssname ss cnt))<br />       (setq ename (cdr (assoc 0 (entget ent)))<br />             enamelist (cons ename enamelist)<br />             cnt (1+ cnt)<br />             )<br />       )<br />     )<br />   enamelist<br />   )<br />

saintlzh

楼上的，谢谢了，不过能不能用ObjectARX实现呢？
或者说，在ObjectARX中如何调用lisp的程序呢？