用法
评论
建议
取 消
确 定
(defun list:delsame (lst fuzz) "删除表中相同项目，保留第一次出现的位置（支持容差）" (if lst (cons (car lst) (list:delsame (vl-remove-if (quote (lambda (x) (list:equal (car lst) x fuzz))) (cdr lst)) fuzz))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新
冀公网安备 13050302000400号