无语了,求助!!!!!!!!!!!!!!!!!!!!!!!!!

挚友01 · 发表于 2015-2-13 21:18:34

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

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

×

; 整理表项将相同的元素去除
(defun BFL_5 (lst / x nl)
  (foreach x lst
(if  (not (member x nl))
   (progn
      (setq nl (cons x nl))
   )
)
  )
  (reverse nl)
)
程序中 :
(if (setq qtem (inters p1 p3 (cdr (assoc 10 qbb))(cdr (assoc 11 qbb))))
                           (setq list_qe (cons qtem list_qe))
                        )

(bfl_5 list_qe) 没有将相同的点去掉
再试(setq a '((714.059 336.204 0.0) (714.059 336.204 0.0) (691.059 336.204 0.0)))
(bfl_5 a) 就得到了去掉相同的点集合
((714.059 336.204 0.0) (691.059 336.204 0.0))
怎么回事,1个小时都没搞明白了,

Underway · 发表于 2015-2-13 21:25:47

浮点运算得考量容差...

挚友01 · 发表于 2015-2-14 21:48:42

;;;删除表中重复的子表
(defun rm-lst (ptlst)
(setq ptlst-new '())
(while (setq pt1 (car ptlst))
   (setq ptlst-new (cons pt1 ptlst-new)
   ptlst       (vl-remove pt1 ptlst)
   )
)
(setq ptlst-new (reverse ptlst-new))
ptlst-new
)
上网上找的同样的去掉重复点的程序,怎么就不行啊,我试了多次....
上面的(setq a '((714.059 336.204 0.0) (714.059 336.204 0.0) (691.059 336.204 0.0)))
是打prin1 list_qe 得出的,rm-lst及bfl_5什么都没做...

挚友01 · 发表于 2015-2-15 19:44:41

挚友01 发表于 2015-2-14 21:48
;;;删除表中重复的子表
(defun rm-lst (ptlst)
(setq ptlst-new '())

怎么考虑,程序如何改?

挚友01 · 发表于 2015-2-15 20:10:40

上面两个去掉相同元素的程序最简捷,不是不不能用于去掉重复的点啊,难道重复的点要有靠(equal (distance p1 p2) 0.0 0.001)之类的能过容差来判断啊? 没有别的办法将上面两个程序改造成通用程序吗?

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

[求助] 无语了,求助!!!!!!!!!!!!!!!!!!!!!!!!!

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

点评