只需一步,快速开始
x_s_s_1 发表于 2015-7-10 20:42 只选择纵线
(defun deldup (ptLst alw / pt1) (cond ((<= (length ptLst) 1) ptLst) (t (setq pt1 (car ptLst)) (cons pt1 (vl-remove-if '(lambda (x) (equal pt1 x alw)) (deldup (cdr ptLst) alw) ) ) ) ) )
使用道具 举报
Block 发表于 2020-8-12 17:48 上面deldup函数内部怎么调用自己?
satan421 发表于 2020-8-13 11:47 递归。计算阶乘的例子: (defun fact (n / ) (if (= n 0)
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2025-5-16 14:53 , Processed in 0.167866 second(s), 19 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.