XDRX API 开发LISP程序典型程序结构（一）遍历选择集

Lispboy

1. (defun c:tt()
   
2.     (if (setq ss (ssget))
   
3.        (progn
   
4.            (xdrx_begin)
   
5.            (xdrx_sysvar_push '("osmode" 0) '("cmdecho" 0)'("expert" 5))
   
6.            (xdrx_setsstodb ss 0)
   
7.            (while (setq e (xdrx_getentdata 0))
   
8.               (setq p10 (xdrx_getentdxf 10))
   
9.               ...
   
10.            )
    
11.            (xdrx_sysvar_pop)
    
12.            (xdrx_end)
    
13.        )
    
14.     )
    
15.     (princ)
    
16. )
    

(defun c:tt()<br />     (if (setq ss (ssget))<br />        (progn<br />            (xdrx_begin)<br />            (xdrx_sysvar_push '("osmode" 0) '("cmdecho" 0)'("expert" 5))<br />            (xdrx_setsstodb ss 0)<br />            (while (setq e (xdrx_getentdata 0))<br />               (setq p10 (xdrx_getentdxf 10))<br />               ...<br />            )<br />            (xdrx_sysvar_pop)<br />            (xdrx_end)<br />        )<br />     )<br />     (princ)<br /> )<br />

Free-Lancer

个人喜好了,还可以这样

1. (defun c:tt (/ ss)
   
2.   (if (setq ss (ssget))
   
3.     (mapcar '(lambda (x)
   
4.         
   
5.       )
   
6.      (xdrx_pickset->ents ss)
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )

(defun c:tt (/ ss)<br />   (if (setq ss (ssget))<br />     (mapcar '(lambda (x)<br />         <br />       )<br />      (xdrx_pickset->ents ss)<br />     )<br />   )<br />   (princ)<br /> )

Lisphk

学习了，两位大师。