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

清风明月10

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

st788796

1 求出每个 Textbox 逐个 zoom w
2 高版本的有 zoom object 选项

清风明月10

要有人写一下就好了

st788796

清风明月10 发表于 2013-7-18 17:06
要有人写一下就好了

1. (defun c:tt (/ ss e box p)
   
2.   (if (setq ss (ssget '((0 . "text"))))
   
3.     (progn
   
4.       (xdrx_setsstodb ss 0)
   
5.       (while (setq e (xdrx_getentdata 0))
   
6. (setq box (xdrx_entity_box e))
   
7. (xdrx_drawing_zoomw (car box) (caddr box))
   
8. (setq p (getpoint "\nPoint: "))
   
9. (vl-cmdf ".zoom" "P")
   
10.       )
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt (/ ss e box p)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br /> (setq box (xdrx_entity_box e))<br /> (xdrx_drawing_zoomw (car box) (caddr box))<br /> (setq p (getpoint "\nPoint: "))<br /> (vl-cmdf ".zoom" "P")<br />       )<br />     )<br />   )<br />   (princ)<br /> )

清风明月10

4楼的写得蛮好用，还有一个问题没有解决，就是选中的总数有M个，我想从第N个开始看，怎么写呢？其中N小于等于M

newer

清风明月10 发表于 2013-7-18 18:10
4楼的写得蛮好用，还有一个问题没有解决，就是选中的总数有M个，我想从第N个开始看，怎么写呢？其中N小于等 ...

你确定N就是你想的吗？ 所以，你还是要先对实体排下序，然后才能心中有数，从哪个看。

清风明月10

能排序当前更好，不能排序也可以。为什么我说是N呢？因为我检查的目的是修改。比如你上次查到了N-1,修改了N-1,则再查当然是从N开始查了。而且从不重复检查的原则来讲，不排序反而不可能造成重复检查，排序了反而会造成重复检查

Free-Lancer

这些要记录选择集和一个实体做全局变量来自: Android客户端

newer

清风明月10 发表于 2013-7-18 18:46
能排序当前更好，不能排序也可以。为什么我说是N呢？因为我检查的目的是修改。比如你上次查到了N-1,修改了N ...

你只要开始时候就是对拍好序的检查，那么以后肯定不会出现重复，除非人为。 而选择集建立可不一定每次都是一个顺序的。

清风明月10

ST788796
4楼和5楼的代码都是一样的吧？

清风明月10

还是希望有人能完善，即从第N个查起

newer

清风明月10 发表于 2013-7-18 19:47
还是希望有人能完善，即从第N个查起

通用函数： XD::SS:ents 获得实体表，你就好找N了。
http://www.xdcad.net/forum/thread-668630-1-1.html

wowan1314

啊啊

2. ;从左到右看选择集
   
3. (defun c:t11 (/ enbox ss )
   
4.     (defun enbox (ename / ll ur)
   
5.         (vla-getboundingbox (vlax-ename->vla-object ename) 'll 'ur)
   
6.         (mapcar 'vlax-safearray->list (list ll ur))
   
7.     )
   
8.     (if
   
9.         (setq ss (cadr(ssgetfirst))
   
10.         )
    
11.         (mapcar
    
12.             '(lambda(x)
    
13.                 (getint "\n空格/右键-看大图")
    
14.                 (command "ZOOM" "W" (car x) (cadr x))
    
15.             )
    
16.             (vl-sort (mapcar 'enbox(cdr(reverse(mapcar 'cadr (ssnamex ss))
    
17.                         )
    
18.                     )
    
19.                 )
    
20.                 '(lambda(a b)(< (caar a) (caar b))
    
21.                 )
    
22.             )
    
23.         )
    
24.         (alert "没有选择集")
    
25.     )
    
26.     (princ)
    
27. )

;从左到右看选择集 <br /> (defun c:t11 (/ enbox ss ) <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 />     (if<br />         (setq ss (cadr(ssgetfirst))<br />         )<br />         (mapcar<br />             '(lambda(x)<br />                 (getint "\n空格/右键-看大图")<br />                 (command "ZOOM" "W" (car x) (cadr x))<br />             )<br />             (vl-sort (mapcar 'enbox(cdr(reverse(mapcar 'cadr (ssnamex ss))<br />                         )<br />                     )<br />                 )<br />                 '(lambda(a b)(< (caar a) (caar b))<br />                 )<br />             )<br />         )<br />         (alert "没有选择集")<br />     )<br />     (princ)<br /> )

清风明月10

wowan1314 发表于 2013-7-24 20:36
啊啊

老师，你的代码有BUG，它会丢失第一个图元。即第1个图元它不会显示

清风明月10

清风明月10 发表于 2013-7-27 09:24
老师，你的代码有BUG，它会丢失第一个图元。即第1个图元它不会显示

你试试，从左往右写1-7，再选中它们，运行你的插件，它不是从1开始，而是从2开始