[求助]：[0602]关于书上写的seqend这命令的涵义为何?

xyz518mm

请问各位高手,
在书上程序中有看到 "seqend" 这命令
请问个命令的涵义为何?
以上问题烦请各位高手解答一下~
谢谢~

程序例子:

2. 
   
3. (defun plineget(ent)
   
4.    (setq pp_lst '())
   
5.    (setq en2 (entnext ent))
   
6.    (setq en_typ (cdr (assoc 0 (entget en2))))
   
7.    (while (/= en_typ "SEQEND")
   
8.      (setq pt (cdr (assoc 10 (entget en2))))
   
9.      (setq pp_lst (cons pt pp_lst))
   
10.      (setq en2 (entnext en2))
    
11.      (setq en_typ (cdr (assoc 0 (entget en2))))
    
12.    )
    
13.    (setq pp_lst (reverse pp_lst))
    
14. )

<br /> (defun plineget(ent)<br />    (setq pp_lst '())<br />    (setq en2 (entnext ent))<br />    (setq en_typ (cdr (assoc 0 (entget en2))))<br />    (while (/= en_typ "SEQEND")<br />      (setq pt (cdr (assoc 10 (entget en2))))<br />      (setq pp_lst (cons pt pp_lst))<br />      (setq en2 (entnext en2))<br />      (setq en_typ (cdr (assoc 0 (entget en2))))<br />    )<br />    (setq pp_lst (reverse pp_lst))<br /> )

eachy

看书固然很好，也不要忘了搜索“联机帮助”

LADESIGNER

是"块"的---------尾巴……