求取逐个显示选中的图元的代码

清风明月名字

我有这样的设想，就是逐个显示选中的图元。选中图元可以用常青藤来进行，比如筛选出了5个TEXT,内容为“ABC”,或5个直径为3的圆。
由于选中的这些图元分布零散，我就想写一些代码，将这些图元逐个显示。显示时需先计算这个图元的外包围盒的大小，再定视口高度是围盒的大小的4倍大，将窗口缩放到这一图元上。按一个空格键，其它的图元也如此逐个显示。甚至还可以设一个文本框，可以输入数值，设定从第几个开始显示。
请高手帮忙写一下看看，VBA、LISP都行

wowan1314

试试

2. (defun c:t11 (/ enbox a ss en lst)
   
3.     (defun enbox (ename / ll ur)
   
4.         (vla-getboundingbox (vlax-ename->vla-object ename) 'll 'ur)
   
5.         (mapcar 'vlax-safearray->list (list ll ur))
   
6.     )
   
7.     (setq a -1)
   
8.     (if
   
9.         (setq ss (cadr(ssgetfirst))
   
10.         )
    
11.         (while
    
12.             (setq en (ssname ss (setq a (1+ a))
    
13.                 )
    
14.             )
    
15.             (setq lst (enbox en)
    
16.                 p0 (mapcar '- (cadr lst) (car lst))
    
17.                 p1 (mapcar '-  (car lst) p0)
    
18.                 p2 (mapcar '+  (cadr lst) p0)
    
19.             )
    
20.             (getint "\n空格/右键-看大图")
    
21.             (command "ZOOM" "W" p1 p2)
    
22.             
    
23.         )
    
24.         (alert "没有选择集")
    
25.     )
    
26.     (princ)
    
27. )

(defun c:t11 (/ enbox a ss en lst) <br />     (defun enbox (ename / ll ur)<br />         (vla-getboundingbox (vlax-ename->vla-object ename) 'll 'ur)<br />         (mapcar 'vlax-safearray->list (list ll ur))<br />     )<br />     (setq a -1)<br />     (if<br />         (setq ss (cadr(ssgetfirst))<br />         )<br />         (while<br />             (setq en (ssname ss (setq a (1+ a))<br />                 )<br />             )<br />             (setq lst (enbox en)<br />                 p0 (mapcar '- (cadr lst) (car lst))<br />                 p1 (mapcar '-  (car lst) p0)<br />                 p2 (mapcar '+  (cadr lst) p0)<br />             )<br />             (getint "\n空格/右键-看大图")<br />             (command "ZOOM" "W" p1 p2)<br />             <br />         )<br />         (alert "没有选择集")<br />     )<br />     (princ)<br /> )

清风明月名字

谢谢您！很好用啊。