提取点坐标

Block

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

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

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

Block

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

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

Block

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

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