[求助]：找倒数第二倒数第三实体的函数是什么

snoopychen

entlast是找最后一个实体
entnext是从第一个实体往后找
请问要找倒数第二个，倒数第三个实体该怎么办
笨笨的，一时想不通，求助阿求助

cy956

恐怕只能历遍。

如果都是简单实体，可以
(entdel(setq e0(entlast)))
(setq e1(entlast))
(entdel e0)

snoopychen

entdel不是指那些已经删除的实体么？虽然删除仍存在数据库中？假如不删掉该怎么办啊
不过cy兄这个倒是很有启发啊
现在比如我已经用boundary创建了几个面域，想把这些面域一一调出来，该怎么办呢
虽然知道他们是最终创建的几个对象

XDSoft

最初由 snoopychen 发布
[B]entdel不是指那些已经删除的实体么？虽然删除仍存在数据库中？假如不删掉该怎么办啊
不过cy兄这个倒是很有启发啊
现在比如我已经用boundary创建了几个面域，想把这些面域一一调出来，该怎么办呢
虽然知道他们是最... [/B]

你在构造面域前，用 (setq #e (entlast)) 做个标记，构造后，循环用 (entnext e) 直到NIL为止，把每个实体ssadd 到选择集里面就可以了。

程序注意判断下当前数据库为空图情况下(setq #e (entlast)) ＝NIL，那样，你可以用ssget "x" 获得所有的实体，就是你最新添加到数据库的实体选择集了。

cy956

搞了半天是要求选择集，你可以：
(setq e0(entlast))
......
(setq s(get-ss e0))即可。

2. 
   
3. (Defun get-ss( e / ss ep) ;;;取在实体e后生成的所有实体选择集
   
4.   (setq ss (ssadd) ep e)
   
5.   (if (not ep) (setq ep (entnext)))
   
6.   (while (/= (setq ep (entnext ep)) nil)
   
7.     (ssadd ep ss)
   
8.   )
   
9.   ss
   
10. )
    

<br /> (Defun get-ss( e / ss ep) ;;;取在实体e后生成的所有实体选择集<br />   (setq ss (ssadd) ep e)<br />   (if (not ep) (setq ep (entnext)))<br />   (while (/= (setq ep (entnext ep)) nil)<br />     (ssadd ep ss)<br />   )<br />   ss<br /> )<br />

灯火

查询倒数第二、倒数第三实体

2. 
   
3. 
   
4. (setq acDocument (vla-get-ActiveDocument (vlax-get-acad-object)))
   
5. (if (= (vla-get-ActiveSpace acDocument) acModelSpace)
   
6.   (setq acSpace (vla-get-ModelSpace acDocument))
   
7.   (setq acSpace (vla-get-PaperSpace acDocument))
   
8. )
   
9. (setq ent2 (vlax-vla-object->ename
   
10.              (vla-Item acSpace (- (vla-get-count acSpace) 2))
    
11.            )
    
12. )                                        ;倒数第二
    
13. (setq ent3 (vlax-vla-object->ename
    
14.              (vla-Item acSpace (- (vla-get-count acSpace) 3))
    
15.            )
    
16. )                                        ;倒数第三
    
17. 
    

<br /> <br /> (setq acDocument (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> (if (= (vla-get-ActiveSpace acDocument) acModelSpace)<br />   (setq acSpace (vla-get-ModelSpace acDocument))<br />   (setq acSpace (vla-get-PaperSpace acDocument))<br /> )<br /> (setq ent2 (vlax-vla-object->ename<br />              (vla-Item acSpace (- (vla-get-count acSpace) 2))<br />            )<br /> )                                        ;倒数第二<br /> (setq ent3 (vlax-vla-object->ename<br />              (vla-Item acSpace (- (vla-get-count acSpace) 3))<br />            )<br /> )                                        ;倒数第三<br /> <br />

lijiao

[QUOTE]最初由 灯火 发布
[B]查询倒数第二、倒数第三实体

2. 
   
3. 
   
4. (setq acDocument (vla-get-ActiveDocument (vlax-get-acad-object)))
   
5. (if (= (vla-get-ActiveSpace acDocument) acModelSpace)
   
6.   (setq acSpace (vla-get-ModelSpace ac... [/B][/QUOTE]
   
7. 
   
8. 
   
9. 在求倒数的实体时应判别一下序号是否超出范围，修改后的代码为：
   
10. [CODE]
    
11.   [FONT=courier new]
    
12. 
    
13. (defun dshsht (i / acDocument  acSpace ent_name)
    
14.    (setq acDocument (vla-get-ActiveDocument (vlax-get-acad-object)))
    
15.    (if (= (vla-get-ActiveSpace acDocument) acModelSpace)
    
16.         (setq acSpace (vla-get-ModelSpace acDocument))
    
17.         (setq acSpace (vla-get-PaperSpace acDocument))
    
18.     )
    
19.    (if (and (= (type i) 'INT)
    
20.                  (>= (- (vla-get-count acSpace) i)  0)
    
21.                  (>= i 1)
    
22.         )
    
23.        (setq ent_name (vlax-vla-object->ename
    
24.              (vla-Item acSpace (- (vla-get-count acSpace) i))
    
25.            )
    
26.        )
    
27.       (setq ent_name nil)
    
28.     )
    
29. )
    
30. ;变量i为正整数
    
31. ;函数调用成功，返回实体名，否则，返回nil
    
32.   [/FONT]
    

<br /> <br /> (setq acDocument (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> (if (= (vla-get-ActiveSpace acDocument) acModelSpace)<br />   (setq acSpace (vla-get-ModelSpace ac... [/B][/QUOTE]<br /> <br /> <br /> 在求倒数的实体时应判别一下序号是否超出范围，修改后的代码为：<br /> [CODE]<br />   [FONT=courier new]<br /> <br /> (defun dshsht (i / acDocument  acSpace ent_name)<br />    (setq acDocument (vla-get-ActiveDocument (vlax-get-acad-object)))<br />    (if (= (vla-get-ActiveSpace acDocument) acModelSpace)<br />         (setq acSpace (vla-get-ModelSpace acDocument))<br />         (setq acSpace (vla-get-PaperSpace acDocument))<br />     )<br />    (if (and (= (type i) 'INT)<br />                  (>= (- (vla-get-count acSpace) i)  0)<br />                  (>= i 1)<br />         )<br />        (setq ent_name (vlax-vla-object->ename<br />              (vla-Item acSpace (- (vla-get-count acSpace) i))<br />            )<br />        )<br />       (setq ent_name nil)<br />     )<br /> ) <br /> ;变量i为正整数<br /> ;函数调用成功，返回实体名，否则，返回nil<br />   [/FONT]<br />

游手好闲

我怎么越学差的越多，LISP我已经看一遍了。虽然基本上没看懂，但各个函数也都混个脸熟。
面域是什么东东？作什么用的？属于哪方面的知识？

lijiao

最初由 游手好闲 发布
[B]我怎么越学差的越多，LISP我已经看一遍了。虽然基本上没看懂，但各个函数也都混个脸熟。
面域是什么东东？作什么用的？属于哪方面的知识？ [/B]

面域是CAD实体的一种