[原创]定义了ssForEach，这样一个函数，如何？是不是方便一点呢

秋枫

2. 
   
3. (defun c:test ( / ss e )
   
4.   (setq ss (ssget))
   
5.   [color=red](ssforeach 'e ss
   
6.     '(progn
   
7.       (princ "\n\nEntityName: ")
   
8.       (princ (cdr (assoc -1 (entget e))))
   
9.       (princ "\nObjectType: ")
   
10.       (princ (cdr (assoc 0 (entget e))))
    
11.      )
    
12.   )[/color]
    
13.   (princ)
    
14. )
    
15. 
    
16. (defun ++ (_++_AutoIncSymbol)
    
17.   (set _++_AutoIncSymbol (+ 1 (eval _++_AutoIncSymbol)))
    
18. )
    
19. 
    
20. (defun ssForEach (_ssForEach_EntityNameSymbol
    
21.                   _ssForEach_SelectionSet    _ssForEach_ExprSymbol
    
22.                   /                             _i_ssForEach
    
23.                   _L_ssForEach
    
24.                  )
    
25.   (setq        _i_ssForEach -1
    
26.         _L_ssForEach (sslength _ssForEach_SelectionSet)
    
27.   )
    
28.   (while (< (++ '_i_ssForEach) _L_ssForEach)
    
29.     (set _ssForEach_EntityNameSymbol
    
30.          (ssname _ssForEach_SelectionSet _i_ssForEach)
    
31.     )
    
32.     (eval _ssForEach_ExprSymbol)
    
33.   )
    
34. )
    

<br /> (defun c:test ( / ss e )<br />   (setq ss (ssget))<br />   [color=red](ssforeach 'e ss<br />     '(progn<br />       (princ "\n\nEntityName: ")<br />       (princ (cdr (assoc -1 (entget e))))<br />       (princ "\nObjectType: ")<br />       (princ (cdr (assoc 0 (entget e))))<br />      )<br />   )[/color]<br />   (princ)<br /> )<br /> <br /> (defun ++ (_++_AutoIncSymbol)<br />   (set _++_AutoIncSymbol (+ 1 (eval _++_AutoIncSymbol)))<br /> )<br /> <br /> (defun ssForEach (_ssForEach_EntityNameSymbol<br />                   _ssForEach_SelectionSet    _ssForEach_ExprSymbol<br />                   /                             _i_ssForEach<br />                   _L_ssForEach<br />                  )<br />   (setq        _i_ssForEach -1<br />         _L_ssForEach (sslength _ssForEach_SelectionSet)<br />   )<br />   (while (< (++ '_i_ssForEach) _L_ssForEach)<br />     (set _ssForEach_EntityNameSymbol<br />          (ssname _ssForEach_SelectionSet _i_ssForEach)<br />     )<br />     (eval _ssForEach_ExprSymbol)<br />   )<br /> )<br />

无痕

qf,变量名太长，可读性下降：（


ｖｌ里面有一个类似的　：ｖｌａｘ－ｆｏｒ

alin

vlax-for         好象只能用于Collection


foreach 用于表


定义一个用于选择集的ssForEach是有必要的


变量名长而有意思，有时是为增加可读性

aeo000000

(defun ss-foreach(ss func /         j)


(setq j -1)


(repeat(sslength ss)(apply func(list(ssname ss(setq j(1+ j))))))


)


       


;;;(ss-foreach (ssget) 'entdel)


;;;(ss-foreach (ssget) '(lambda(x)(princ(entget x))))

gbhsu

呵呵，
也来晒晒我的哦
(defun hsu:select_function (hsu_function ss / i)
       (setq i 0)
       (repeat (sslength ss)
               ((eval hsu_function)(ssname ss i))
               (setq i(+ i 1)))
  );defun

EMD

学习中。感谢楼主。