社区 › AutoLISP/Visual LISP 编程技术 › 提取点坐标

Block 发表于 2020-8-12 17:48:00

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)
               )
         )
          )
    )
)

上面deldup函数内部怎么调用自己？

satan421 发表于 2020-8-13 11:47:48

Block 发表于 2020-8-12 17:48
上面deldup函数内部怎么调用自己？

递归。计算阶乘的例子：
(defun fact (n / )
(if (= n 0)
    1
    (* n (fact (1- n)))
)
)

Block 发表于 2020-8-18 17:47:27

satan421 发表于 2020-8-13 11:47
递归。计算阶乘的例子：
(defun fact (n / )
(if (= n 0)


很神奇...也不会死循环啊

Block 发表于 2021-9-16 11:15:39

x_s_s_1 发表于 2015-7-10 20:42
只选择纵线

为什么只能提取十字交点坐标。最端部T字交点坐标提取不了？

查看完整版本: 提取点坐标