[LISP函数]：对选择集执行某一函数操作

eachy

2. 
   
3. ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21
   
4. ;;对选择集执行某一函数操作
   
5. ;; func 函数定义，参数为实体
   
6. ;; ss   选择集
   
7. (defun xd-SSMAP (func ss / n)
   
8.   (if (eq 'PICKSET (type ss))
   
9.     (repeat (setq n (fix (sslength ss))) ; fixed
   
10.       (apply func (list (ssname ss (setq n (1- n)))))
    
11.     )
    
12.   )
    
13. )
    
14. ;;示例：求选择集的线长度
    
15. (defun c:tt (/ ss d)
    
16.   (setq d 0.)
    
17.   (if (setq ss (ssget))
    
18.     (xd-ssmap '(lambda (e)
    
19.                  (setq d
    
20.                         (+ d
    
21.                            (vlax-curve-getdistatparam e (vlax-curve-getendparam e))
    
22.                         )
    
23.                  )
    
24.                )
    
25.               ss
    
26.     )
    
27.   )
    
28.   (princ "\nTotle Length = ")
    
29.   (princ d)
    
30.   (princ)
    
31. )

<br /> ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21<br /> ;;对选择集执行某一函数操作<br /> ;; func 函数定义，参数为实体<br /> ;; ss   选择集<br /> (defun xd-SSMAP (func ss / n)<br />   (if (eq 'PICKSET (type ss))<br />     (repeat (setq n (fix (sslength ss))) ; fixed<br />       (apply func (list (ssname ss (setq n (1- n)))))<br />     )<br />   )<br /> )<br /> ;;示例：求选择集的线长度<br /> (defun c:tt (/ ss d)<br />   (setq d 0.)<br />   (if (setq ss (ssget))<br />     (xd-ssmap '(lambda (e)<br />                  (setq d<br />                         (+ d<br />                            (vlax-curve-getdistatparam e (vlax-curve-getendparam e))<br />                         )<br />                  )<br />                )<br />               ss<br />     )<br />   )<br />   (princ "\nTotle Length = ")<br />   (princ d)<br />   (princ)<br /> )

wkai

2. 
   
3. ;; Form [url]www.xdcad.net[/url] WKAI 2005.9.27
   
4. ;;遍历选择集，执行操作表，可以参考foreach函数
   
5. ;;item 操作表中引用的变量
   
6. ;; fun  操作表
   
7. ;; ss   选择集
   
8. (defun ss_for (item ss fun / cn)
   
9.   (repeat (setq cn (sslength ss))
   
10.     (set item (ssname ss (setq cn (1- cn))))
    
11.     (eval fun)
    
12.     )
    
13.   )
    

<br /> ;; Form [url]www.xdcad.net[/url] WKAI 2005.9.27<br /> ;;遍历选择集，执行操作表，可以参考foreach函数<br /> ;;item 操作表中引用的变量<br /> ;; fun  操作表<br /> ;; ss   选择集<br /> (defun ss_for (item ss fun / cn)<br />   (repeat (setq cn (sslength ss))<br />     (set item (ssname ss (setq cn (1- cn))))<br />     (eval fun)<br />     )<br />   )<br />

示例

2. 
   
3. (defun c:tt(/ d ss)
   
4.   (setq ss (ssget '((0 . "line"))) d 0)
   
5.   (ss_for 'n
   
6.           ss
   
7.           '(setq d
   
8.                   (+ d
   
9.                      (vlax-curve-getdistatparam n (vlax-curve-getendparam n))
   
10.                      )
    
11.                  )
    
12.           )
    
13.   (print d)
    
14.   (princ)
    
15.   )
    

<br /> (defun c:tt(/ d ss)<br />   (setq ss (ssget '((0 . "line"))) d 0)<br />   (ss_for 'n<br />           ss<br />           '(setq d<br />                   (+ d<br />                      (vlax-curve-getdistatparam n (vlax-curve-getendparam n))<br />                      )<br />                  )<br />           )<br />   (print d)<br />   (princ)<br />   )<br />