（XD::List:Sublist）指定位置指定长度获得子表

newer · 发表于 2017-8-2 17:34:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::List:Sublist (l s n / len)
(repeat (/ s 4) (setq l (cddddr l)))
(repeat (rem s 4) (setq l (cdr l)))
(setq s nil)
(if (and l n)
(cond ((>= n (length l)) l)
((< n (- (length l) n))
(repeat (/ n 4)
(setq s (cons (cadddr l)
(cons (caddr l) (cons (cadr l) (cons (car l) s)))
)
l (cddddr l)
)
)
(repeat (rem n 4)
(setq s (cons (car l) s)
l (cdr l)
)
)
(reverse s)
)
(t
(setq l (reverse l)
s (- (length l) n)
)
(repeat (/ s 4) (setq l (cddddr l)))
(repeat (rem s 4) (setq l (cdr l)))
(reverse l)
)
)
l
)
)

(defun XD::List:Sublist (l s n / len) 
    (repeat (/ s 4) (setq l (cddddr l))) 
    (repeat (rem s 4) (setq l (cdr l))) 
    (setq s nil) 
    (if (and l n) 
        (cond ((>= n (length l)) l) 
              ((< n (- (length l) n)) 
               (repeat (/ n 4) 
                   (setq s (cons (cadddr l) 
                                 (cons (caddr l) (cons (cadr l) (cons (car l) s))) 
                           ) 
                         l (cddddr l) 
                   ) 
               ) 
               (repeat (rem n 4) 
                   (setq s (cons (car l) s) 
                         l (cdr l) 
                   ) 
               ) 
               (reverse s) 
              ) 
              (t 
               (setq l (reverse l) 
                     s (- (length l) n) 
               ) 
               (repeat (/ s 4) (setq l (cddddr l))) 
               (repeat (rem s 4) (setq l (cdr l))) 
               (reverse l) 
              ) 
        ) 
        l 
    ) 
)

yangjian001 · 发表于 2017-8-3 08:05:05

指定位置指定长度获得子表不明白呀

st788796 · 发表于 2017-8-3 19:30:23

yangjian001 发表于 2017-8-3 08:05

如果数值表示 Curve 的长度就可以求指定距离的点

账号		自动登录	找回密码
密码			立即注册

[表] （XD::List:Sublist）指定位置指定长度获得子表

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。