[讨论]：关于删除重复叠加在一起的图元！

ajing_sky · 发表于 2008-12-28 02:21:18

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

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

×

绘图过程中，有时会出现，LINE，Circle,arc,lwpolyine等图元重复叠加在一起，在执行串接命令时，串接不到一起去！有没有lisp能删除那些重复的图元？？
arc,circel处理思路：寻找重复区域中相同的半径与圆心值，删除重复图元。
Line与lwpolyine的删除思路是什么呢？？

大家有好的办法或碰到相同问题的交流下吧！

taner · 发表于 2008-12-28 13:56:36

overkill

ajing_sky · 发表于 2008-12-28 15:20:36

当然，用ET工具可以搞定，但了解其中的原理，自己编出来更好！。期待中。。

守仁格竹GM · 发表于 2013-5-14 16:33:31

题目白出了

haoryh · 发表于 2013-5-16 08:54:47

重复叠在一块的尺寸标注能删除吗？

/db_自贡黄明儒_ · 发表于 2013-5-16 13:37:04

;;8 删除重叠多段线、线、弧、块、文字
(DEFUN HH:delBLOCKs (ss / E EN K LIST1 S9 XY)
(repeat (setq k (sslength ss))
(spin "重叠对象")
(if (and (setq e (ssname ss (setq k (1- k))))
(setq en (entget e))
)
(progn
(setq xy (cdr en))
(IF (SETQ S9 (ASSOC 5 XY))
(SETQ XY (subst '(5 . "ASD") S9 XY))
)
(if (member xy list1)
(entdel e)
(setq list1 (cons xy list1))
)
)
)
)
)

/db_自贡黄明儒_ · 发表于 2013-5-16 13:38:20

;;4.1 删除与一个圆重叠的圆和圆弧
(defun del-Circle (e / EN P10 R1 SS1)
(setq en (entget e))
(setq P10 (LI_item 10 en)
r1 (LI_item 40 en)
)
(setq ss1 (ssget "x"
(list (cons 0 "CIRCLE,ARC")
(cons 10 p10)
(cons 40 r1)
)
)
)
(ssdel e ss1)
(vl-cmdf "_.erase" ss1 "")
)

haoryh · 发表于 2013-5-17 18:45:23

/db_自贡黄明儒_ 发表于 2013-5-16 13:37

黄兄：咋运行不了？

haoryh · 发表于 2013-5-18 11:46:36

haoryh 发表于 2013-5-17 18:45
黄兄：咋运行不了？

删除重叠多段线、线、弧、块、文字

434939575 · 发表于 2018-3-1 12:28:05

/db_自贡黄明儒_ 发表于 2013-5-16 13:37

黄大师请问这是什么原理，好久了一直不明白:'(5 . "ASD")

/db_自贡黄明儒_ · 发表于 2018-3-1 13:30:18

434939575 发表于 2018-3-1 12:28

每个图元名柄不一样的，作者这样写，是想统一，这样就不用比较组码5了。其实删除是一样的道理。

434939575 · 发表于 2018-3-1 13:58:32

/db_自贡黄明儒_ 发表于 2018-3-1 13:30

谢谢大师这么热心，感谢！

dyjwyqz5221 · 发表于 2018-5-23 14:29:06

这段删除文字重复的程序，在我的一个一般的文字中，删除重复时，出现了问题，该文字是原位复制黏贴多次的，用该程序去掉重复时，还剩下一个没删掉，而且测试时，点对表完全相同（5点对表除外）。不知道为啥，但是用天正cad的消重图元就没问题。

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

[讨论]：关于删除重复叠加在一起的图元！

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

相关帖子

评分

点评