带容差的Member

/db_自贡黄明儒_ · 发表于 2018-5-30 11:17:58

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

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

×

;;带容差的Member
;;(MemberFuzz 2.01 '(3 2.1 2.2) 0.1)=>(2.1 2.2)
(defun MemberFuzz (a Lst Fuzz)
(vl-member-if '(lambda (x) (equal a x Fuzz)) Lst)
)

HLCAD · 发表于 2018-5-30 11:31:40

这个比之前的那个先进了不少

炫翔 · 发表于 2018-6-5 08:29:20

本帖最后由炫翔于 2018-6-5 08:31 编辑

测试回复效果

/db_自贡黄明儒_ · 发表于 2018-6-9 08:38:31

修改输送机带面凸凹弧半径，同时修改中间架.
使用环境：autocad
使用ap加载
或者拖入绘图区空白处加载
使用命令:dy

pxt2015 · 发表于 2024-3-3 08:41:01

本帖最后由 pxt2015 于 2024-3-3 08:52 编辑

HLCAD 发表于 2018-5-30 11:31
这个比之前的那个先进了不少

旧版本是car+cdr遍历表，是lisp原始算法。

新版本用vl-member-if函数遍历表。
二者各有千秋，缺一不可。

列出第一版函数，其实这版对新手学习更有用。

;;(HH:member 3 '(2 5 3) 0) => '(3)
(defun HH:member (item Lst Fuzz / A Find)
  ;;循环♻️条件：没有找到并且表存在
  (while (and (not Find) (setq a (car lst)))
;;如果找到则退出循环，否则遍历表(setq lst (cdr lst))
(if  (equal item a Fuzz)
   (setq Find T)
   (setq lst (cdr lst))
)
  )
  lst
)

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

[每日一码] 带容差的Member

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

点评