从关联表中搜索所有与关键元素相同关联条目

Free-Lancer · 发表于 2013-6-5 13:32:42

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

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

×

[pcode=lisp,true](defun XD::List:MAssoc (element alist /)
(vl-remove-if-not
'(lambda (x) (= (car x) element))
alist
)
)[/pcode]
示例：
取得 Pline的所有顶点
[pcode=lisp,true]
(mapcar 'cdr (xd::list:massoc 10 (entget (car (entsel)))))[/pcode]

958620832 · 发表于 2013-11-24 12:53:55

本帖最后由 958620832 于 2013-11-24 13:01 编辑

(defun xd::list:massoc  (element alist /)
  (foreach x (reverse alist)
(if (= (car x) element) (setq nent (cons (cdr x) nent))))
  nent
)
提供另一种思路，纯autocad函数，异曲同工

st788796 · 发表于 2013-11-24 12:57:07

958620832 发表于 2013-11-24 12:53
(defun XD:ist:MAssoc (element alist /)
(foreach x (reverse alist)
(if (= (car x) 10) (setq ...

这个 Index 也许用的到，还是返回 ele 更通用

958620832 · 发表于 2013-11-24 13:01:57

st788796 发表于 2013-11-24 12:57
这个 Index 也许用的到，还是返回 ele 更通用

写错了，已经将10改成element了，纯属笔误！

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

[表] 从关联表中搜索所有与关键元素相同关联条目

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

相关帖子

点评

点评