[分享]：点表去除重复点aaaa

aeo · 发表于 2004-5-22 16:50:36

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

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

×

[php]
;;;==========================
;;;去掉重复点
;;;by Aeo
(defun pts-remove-dups(pts / pt)
(cond ((=(length pts)1) pts)
   (t(setq pt(car pts))
      (cons pt(vl-remove-if '(lambda(x)(equal pt x 1e-3))
            (pts-remove-dups(cdr pts)))
      )
   ))
)
[/php]

陌生人 · 发表于 2004-5-22 21:23:00

不用递归：
[php]
;|==========================
(xpt-r-dups pts fuzz) = 去掉重复点 ----------------by 陌生人.2004.5
参数: pts = 点集； fuzz ＝容差;
测试: (equal (xpt-r-dups pts 1e-3)(pts-remove-dups pts) 1e-3) ;-> T
|;
(defun xpt-r-dups (pts fuzz / a pts2)
  (while pts
(setq a (car pts)
         pts  (cdr pts)
         pts2 (cons a pts2)
         pts  (vl-remove-if '(lambda(x) (equal a x fuzz)) pts)
)
  )(reverse pts2)
)
[/php]

lsjjm · 发表于 2004-5-23 12:57:06

直接使用ACET-LIST-REMOVE-DUPLICATES内部函数不更简单?

黄卫文 · 发表于 2004-5-23 17:31:32

请哪里能找到相关的函数功能资料？

snsj · 发表于 2004-5-23 17:42:05

查看ET的LISP文件对其分析

eachy · 发表于 2004-5-23 17:47:10

最初由 snsj 发布
[B]查看ET的LISP文件对其分析 [/B]

找一找记得有个CHM帮助

黄卫文 · 发表于 2004-5-23 18:02:25

那个帮助文件很简单，只是有acetutil.arx中的函数的用法，有许多函数是acetutil2-4.fas在里面定义的就没有说明了，看acetauto.lsp中的用法来猜太烦了吧？

lsjjm · 发表于 2004-5-24 04:30:03

目前还未发现较完整详细的内部函数说明, 只有零xing的各处询了.
部分LISP内部函数介绍:
http://www.afralisp.com/lisp/acet-utils.htm

陌生人 · 发表于 2004-5-24 23:15:47

好是好，但要人家用的时候装et，总是有些限制性

lsjjm · 发表于 2004-5-25 04:20:04

最初由陌生人发布
[B]好是好，但要人家用的时候装et，总是有些限制性 [/B]

如果有人说:"你写的程序好是好, 但还得编, 还得dong LISP..." 呢?

陌生人 · 发表于 2004-5-25 14:15:40

我觉得你应该在你每个程序帖子上都付上et的下载链接，并注明，请先下载并安装et。
我见你好几次对别人提出的“不能运行”的问题回答：要先装express tools 了。

wmj1295856789 · 发表于 2004-5-25 19:26:23

好啊

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

[分享]：点表去除重复点aaaa

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

相关帖子

浏览过的版块