用法
评论
建议
取 消
确 定
(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 种
上传记录
刷新