表处理求助

amwkto2011 · 发表于 2014-12-22 11:07:45

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

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

×

本帖最后由 yularna 于 2014-12-22 12:43 编辑

[pcode=lisp,true]((1709.15 746.687 0.0) (1068.08 547.421 0.0) (675.815 583.244 0.0) (1068.08 547.421 0.0) (675.815 583.244 0.0))
得到这样一个表，如何把没有重复的删除掉，只留有相同的表
上面只是个例子，里面可能还有更多数字。
((1068.08 547.421 0.0) (675.815 583.244 0.0) (1068.08 547.421 0.0) (675.815 583.244 0.0));返回成这样
然后还要对里面的数字再相加处理（（总和1）（总和2）等。。。。）[/pcode]

lijiao · 发表于 2014-12-22 11:57:54

本帖最后由 yularna 于 2014-12-22 12:41 编辑

[pcode=lisp,true]
(defun get-item (item lst / NUM TMP)
  (setq num 0 tmp lst)
  (while (setq tmp (member item tmp))
(setq num (1+ num)
      tmp (cdr tmp))
)
  (list item num)
  )

(setq lst '((1709.15 746.687 0.0) (1068.08 547.421 0.0) (675.815 583.244 0.0) (1068.08 547.421 0.0) (675.815 583.244 0.0)))
(mapcar '(lambda(x)
         (get-item x lst)
         )
      lst)
[/pcode]

newer · 发表于 2014-12-22 12:02:35

本帖最后由 newer 于 2014-12-22 12:05 编辑

试试：

(defun XD::List:RemoveNonComplit (lst / lst1 val)
(while (car lst)
(setq val (car lst))
(if (member val (cdr lst))
(setq lst1 (cons val lst1))
(if (member val lst1)
(setq lst1 (cons val lst1))
)
)
(setq lst (cdr lst))
)
(reverse lst1)
)

/db_自贡黄明儒_ · 发表于 2014-12-22 12:41:32

newer 发表于 2014-12-22 12:02
试试：

我在想，通常只在if中才见到progn,也可以用or或者and之类的，看起来是不是{:soso_e113:}更简化呢

(defun XD::List:RemoveNonComplit (lst / lst1 val)
(while (car lst)
(setq val (car lst))
(if (member val (cdr lst))
(setq lst1 (cons val lst1))
(and
(member val lst1)
(setq lst1 (cons val lst1))
)
)
(setq lst (cdr lst))
)
(reverse lst1)
)

amwkto2011 · 发表于 2014-12-22 13:17:37

lijiao 发表于 2014-12-22 11:57
(defun get-item (item lst / NUM TMP)
(setq num 0 tmp lst)
(while (setq tmp (member item tmp) ...

这个好像没有去除单独的表哦，
要留有相同的表。
单独的就要删除掉

amwkto2011 · 发表于 2014-12-22 13:19:56

newer 发表于 2014-12-22 12:02
试试：

要怎么用它啊，，不会用这样的函数
教下啊，论坛好多这样的函数，可惜我还不会用。

amwkto2011 · 发表于 2014-12-22 13:21:21

/db_自贡黄明儒_ 发表于 2014-12-22 12:41
我在想，通常只在if中才见到progn,也可以用or或者and之类的，看起来是不是更简化呢
(defun ...

这样可以省了不少IF啊{:soso_e179:}

newer · 发表于 2014-12-22 14:07:27

amwkto2011 发表于 2014-12-22 13:19
要怎么用它啊，，不会用这样的函数
教下啊，论坛好多这样的函数，可惜我还不会用。

参数是表啊，

(setq a '((1709.15 746.687 0.0) (1068.08 547.421 0.0) (675.815 583.244 0.0)
(1068.08 547.421 0.0) (675.815 583.244 0.0)))
(XD::LIST:REMOVENONCOMPLIT a)
((1068.08 547.421 0.0) (675.815 583.244 0.0) (1068.08 547.421 0.0) (675.815
583.244 0.0))

txc6853234 · 发表于 2014-12-22 21:10:59

(defun getsameatom_list( oldlist / old2list n a newlist)
(setq old2list (cdr oldlist))
(foreach n oldlist
(progn
(foreach a old2list
(if (equal n a) (progn(setq newlist (cons n newlist))
(setq newlist (cons n newlist))))
)
(setq old2list(cdr old2list))
)
)
(setq newlist(reverse newlist))
)

st788796 · 发表于 2014-12-23 07:47:04

本帖最后由 st788796 于 2014-12-23 08:01 编辑

newer 发表于 2014-12-22 12:02
试试：

不考虑误差

(defun removedup (lst / lst1 )
(setq lst1 (list (car lst))
lst (cdr lst)
)
(while lst
(if (member (car lst) lst1)
(setq lst (cdr lst))
(setq lst1 (cons (car lst) lst1)
lst (cdr lst)
)
)
)
(reverse lst1)
)

考虑误差就增加一个参数并将 if 判断改为 (vl-some '(lambda (x) (equal x (car lst) fuzz)) lst1)

发现 foreach 后面的表也可以变长

(defun removedup (lst fuzz / lst1 )
(setq lst1 (list (car lst))
lst (cdr lst)
)
(foreach a lst
(if (vl-some '(lambda (x) (equal x a fuzz)) lst1)
(setq lst (cdr lst))
(setq lst1 (cons a lst1)
lst (cdr lst)
)
)
)
(reverse lst1)
)

如果是点表，可以取 Box 的左下角点，所有点和该点按距离排序（距离相等按角度排序），这样member会尽量短，效率也就提高了

amwkto2011 · 发表于 2014-12-23 08:59:20

st788796 发表于 2014-12-23 07:47
不考虑误差

其实我问这个问题，就是要过滤选到同心圆。
谢谢大家帮忙。
同圆功能看到你们的回答，函数，可以写出来了。我再发个贴，求优化

amwkto2011 · 发表于 2014-12-23 09:02:10

txc6853234 发表于 2014-12-22 21:10

谢谢哦，相当好用，我公布同心圆代码，关注下，求再优化

st788796 · 发表于 2014-12-23 09:02:41

本帖最后由 st788796 于 2014-12-23 09:06 编辑

amwkto2011 发表于 2014-12-23 08:59
其实我问这个问题，就是要过滤选到同心圆。
谢谢大家帮忙。
同圆功能看到你们的回答，函数，可以写出来 ...

你是相同的分到一起啊!
(xd::list:groupyindex (mapcar '(lambda (x) (list (xdrx_getpropertyvalue x "center") x)) (xdrx_pickset->ents (ssget '((0 . "circle"))))) 1e-6)

amwkto2011 · 发表于 2014-12-23 09:14:01

st788796 发表于 2014-12-23 09:02
你是相同的分到一起啊!
(xd::list:groupyindex (mapcar '(lambda (x) (list (xdrx_getpropert ...

http://xdcad.net/forum/thread-678562-1-1.html
源码公布了，帮忙优化下，谢谢

lijiao · 发表于 2014-12-23 09:17:45

(defun get-item (item lst / NUM TMP)
(setq num 0)
(while (setq lst (member item lst))
(setq num (1+ num)
lst (cdr lst)
)
)
(list item num)
)
(setq lst '((1709.15 746.687 0.0)
(1068.08 547.421 0.0)
(675.815 583.244 0.0)
(1068.08 547.421 0.0)
(675.815 583.244 0.0)
)
)
(vl-remove nil
(mapcar '(lambda (y)
(if (> (cadr y) 1)
(car y)
)
)
(mapcar '(lambda (x)
(get-item x lst)
)
lst
)
)
)

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

[求助] 表处理求助

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

点评

点评

点评

点评

点评

点评

点评

点评