发个帖子 签个到 循环结构拙见，望大佬继续补全

xj6019

接触lisp也有点时间了，从啥也不会，到能玩点很简单的，也是一路跌跌撞撞，整理了一部分常见的循环结构，给现在和未来玩lisp的朋友们一个学习的参照吧，几个结构直接将自己的单个功能代码套里面就可以用，大佬请无视，因为确实算是低级的整理了，但是看论坛里好像也没有单独整理的，就发出来玩一下吧，也希望大佬有其他好的方法继续补充：


(defun c:NM (/ i s1 ss)  ;常规循环结构1
  (setq i -1)
  (if (setq ss (ssget ":S"(list '(0 . "*TEXT")(cons 8 "图层"))))
    (while (and(setq s1 (ssname ss (setq i (1+ i)))))               
                        (vla-put-Color  (Vlax-Ename->Vla-Object s1) 2) ;单个图元处理的函数
                )
  )
        (princ)
)
(defun c:NM (/ en i n ss)  ;常规循环结构2
        (if (setq ss (ssget ":S"(list '(0 . "*TEXT")(cons 8 "图层"))))
                (progn
                        (repeat (setq n (sslength ss))
                                (setq en (ssname ss (setq n (1- n))))
                                (vla-put-Color  (Vlax-Ename->Vla-Object en) 2) ;单个图元处理的函数
                        )
                )
        )
        (princ)
)
(defun c:NM (/ ss doc) ;VL循环结构

  (vl-load-com)
  (setq  doc(vla-get-ActiveDocument(vlax-get-acad-object)))
        (if(setq ss (ssget ":S"(list '(0 . "*TEXT"))))
                (vlax-for x (vla-get-ActiveSelectionSet doc)
                        (vla-put-Color  x 2) ;单个图元处理的函数
                )
        )
        (princ)
)
(defun c:NM(/ lst ss ss2list) ;图元表mapcar循环结构
        (defun ss2list (SS)(vl-remove-if-not '(lambda(x)(= 'ENAME (type x))) (mapcar 'cadr (ssnamex SS))))
        (if (setq lst (ss2list(setq ss (ssget ":S"(list '(0 . "*TEXT")(cons 8 "图层"))))))
                (mapcar '(lambda(a)   
                                                         (vla-put-Color  (Vlax-Ename->Vla-Object a) 2) ;单个图元处理的函数
                                                 )        
                        lst)
        )
        (princ)
)




(defun c:NM (/ ss) ;自定义循环结构
        (xj-ssfun (setq ss (ssget ":S"(list '(0 . "*TEXT")(cons 8 "图层"))))
                (eval '(lambda(a)
                                                 (vla-put-Color  (Vlax-Ename->Vla-Object a) 2) ;单个图元处理的函数
                                         )
                )
        )
        (princ)
)

自定义循环的子函数：         (defun xj-ssfun(ss fun / lst ss2list)                 (defun ss2list (SS)(vl-remove-if-not '(lambda(x)(= 'ENAME (type x))) (mapcar 'cadr (ssnamex SS))))                 (if (setq lst (ss2list ss))                         (mapcar '(lambda(a) (fun a))                                       lst)                 )                 (princ)         )

baitang36

楼主研究的很仔细，其实只有前面三个是真的循环，后面的mapcar是个函数，fas中没有repeat while vlax-for这三个函数的，这三个都是用if和goto配合来实现的。

xj6019

自定义循环的子函数：
        (defun xj-ssfun(ss fun / lst ss2list)
                (defun ss2list (SS)(vl-remove-if-not '(lambda(x)(= 'ENAME (type x))) (mapcar 'cadr (ssnamex SS))))
                (if (setq lst (ss2list ss))
                        (mapcar '(lambda(a) (fun a))       
                                lst)
                )
                (princ)
        )

e2002

如果对list的items遍历需要返回1个对应的处理结果list，那就 mapcar最合适；如果需要返回的是各种需求的各种不同的结果，那就 foreach（vlax-for适用于vla对象的集合的遍历）
repeat适用于明确的知道或者能计算出循环次数的情况，
while适用于不确定循环次数（或不想去计算循环次数），是否循环下去依赖于某种条件的情况（AutoLISP 一般常用 while...do 形式，do...while这种可以换个写法用 while bLoop...替代）

AutoLISP的  cond 与 C 的 switch case 有差异，case结束后不会进入下一个case，所以不需要有 break;

xj6019

我本人比较笨，全融会贯通的写函数现在也还是不太行，所以习惯性的整理一些常见的函数结构，遇到什么情况就把对应的函数，堆起来，这几种循环结构就是学习中积累下来的，对于想快速玩转代码的朋友可以尝试一下这种思路，就是太死板，适合懒人思维的人，有能力的尽量函数从基础学起来，慢慢积累经验，比我这样的肯定要好的多

xj6019

e2002 发表于 2022-2-23 10:41
如果对list的items遍历需要返回1个对应的处理结果list，那就 mapcar最合适；如果需要返回的是各种需求的各 ...

感谢版主点评，确实以上每种写法还能有其他变种，个人学习中，以上整理出来的，感觉分别是一个类种了吧，类种之外还能细化出其他的变种写法，那就是自由发挥的空间了。这样搞一下方便直接套用，适合我这种小白类人群的玩法

xj6019

附件内容与帖子内容完全一致，大家可以直接复制论坛文字，可以别付币下文件了。并且发现一奇怪的现象，明经币扣了别人的，我的也没增长，论坛的bug吗？

cghdy

谢谢分享，自定义循环结构没给自定义函数

xj6019

cghdy 发表于 2022-2-23 13:42
谢谢分享，自定义循环结构没给自定义函数

没仔细看吧    去看3楼

cghdy

xj6019 发表于 2022-2-23 14:59
没仔细看吧    去看3楼

哦哦，谢谢，你这分享还挺别致的

czb203

哦哦，谢谢，你这分享还挺别致的