[求助]：“重字”问题

sjj · 发表于 2005-3-14 07:47:30

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

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

×

自己学着编了一个消除“重字”的LISP程序
但运行速度实在太慢了，希望得到晓前辈的指点。
那个工具箱试过了，对完全重合的文字可以清除，
我遇到的那些图纸都是有误差的就不行了。
(setq i (sslength (ssget "x")))
(setq j 0)
(setq d1 (getdist  "重字差距(输入)/第一点(点取)? "))
(print "请稍候.....")(print)
(repeat i
  (setq e1 (entnext))
  (repeat j (setq e1 (entnext e1)))
  (setq n (entget e1))
(if (= (cdr (assoc 0 n)) "TEXT")
  (progn
(setq x (cadr (assoc 10 n)))
(setq y (caddr (assoc 10 n)))
(while (/= nil e1)
   (setq e1 (entnext e1))
      (if (/= nil e1)(progn
   (setq m (entget e1))
   (if (= (cdr (assoc 0 m)) "TEXT")
   (progn
         (setq a (cadr (assoc 10 m)))
         (setq b (caddr (assoc 10 m)))
         (setq d (+ (abs (- x a)) (abs (- y b))))
         (if (<= d d1) (progn (entdel e1) (setq i (- i 1))))
   )
   )
      ))
)
  )
)
(setq j (+ 1 j))
)
(princ)

无痕 · 发表于 2005-3-14 08:00:24

用equal比较

sjj · 发表于 2005-3-14 12:58:05

多谢无痕前辈，速度提高了一倍。
但还是太慢了些，我的算法有问题吧。

lt_zzy · 发表于 2005-3-14 13:06:22

扩展工具里不是有一个程序吗？overkill

f5612140 · 发表于 2005-3-14 13:46:19

最初由 sjj 发布
[B]多谢无痕前辈，速度提高了一倍。
但还是太慢了些，我的算法有问题吧。 [/B]

兄弟,可否弄個圖檔玩玩

eachy · 发表于 2005-3-14 18:43:48

先排序，后删除

sjj · 发表于 2005-3-15 07:19:19

感谢二位斑竹的热心指点。
排序是个好办法，排序后可以一个循环完成重字的清除。
我又按照选取文字的选择集编了一个程序，速度有所提高
可是在选择集内，按“点的远近”进行排序用什么LISP命令
我对LISP不太熟悉。

eachy · 发表于 2005-3-15 07:31:42

你可参考晓东工具中土方计算程序中点排序思路

sjj · 发表于 2005-3-15 13:04:02

找不到这方面的资料，能不能介绍一下。

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

[求助]：“重字”问题

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

相关帖子

浏览过的版块