明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: lincctw_ccl

[提问] 哪位有重复文字(只保留1个)的删除LSP?

[复制链接]
发表于 2015-6-1 17:42:05 | 显示全部楼层
  1. (DEFUN HH:delBLOCKs (ss dxf / e en k lst)
  2.   (repeat(setq dxf(append'(-1 5)dxf)
  3.                 k (sslength ss))
  4.     (if(member(setq k(1- k)
  5.                     e(ssname ss k)
  6.                     en(vl-remove-if'(lambda(x)(member(car x)dxf))(entget e)))
  7.               lst)
  8.       (entdel e)
  9.       (setq lst(cons en lst))))
  10.   )

在黄大师程序基础上进行了小修改,加了一个表作为参数用以控制需要忽略的DXF组,如果不需要,该参数用NIL
(HH:DELBLOCKS(ssget)nil)
(HH:DELBLOCKS(ssget)'(6 8))忽略线型和图层

评分

参与人数 1明经币 +1 收起 理由
自贡黄明儒 + 1 小伙子,灵光呀!

查看全部评分

发表于 2015-6-1 22:50:25 | 显示全部楼层
llsheng_73 发表于 2015-5-31 22:42
因为把-1组以后的所有数据相同作为判断重叠的依据,而图元句柄当然不满足这个条件,所以需要替换为相同值 ...

今天发现一个问题,BO出来的重复线删除不了
因为好像BO出来的线并不是完全重合的  坐标好像不完全一致  需要加误差值
不知道73大大有没有什么好的想法

点评

爆破之后再使用,你会发现是重合的。  发表于 2015-6-2 08:31
发表于 2015-6-2 08:52:25 | 显示全部楼层
重慶崽兒 发表于 2015-6-1 22:50
今天发现一个问题,BO出来的重复线删除不了
因为好像BO出来的线并不是完全重合的  坐标好像不完全一致   ...

起点不同而已   
发表于 2015-6-2 13:11:05 | 显示全部楼层
llsheng_73 发表于 2015-6-1 17:19
如果顶点3在顶点1和5的直线段内,如果需要用这个程序进行去重,那么需要先对多线段进行优化(去掉直线段中 ...

那就是说还是不能直接处理这种情况。这么来看,一段重合的line和pline,也是不能检测到的。
发表于 2015-6-5 10:02:03 | 显示全部楼层
探索者自带吧?
发表于 2015-7-27 20:23:46 | 显示全部楼层
自贡黄明儒 发表于 2015-5-30 14:35
;;156.1 [功能] 删除重叠对象(overkill)
;;不知谁写的,太好了.
(DEFUN HH:delBLOCKs (ss / E EN K LIST1  ...

提示缺少参数啊。
发表于 2016-1-26 15:31:54 | 显示全部楼层
自贡黄明儒 发表于 2015-5-30 14:35
;;156.1 [功能] 删除重叠对象(overkill)
;;不知谁写的,太好了.
(DEFUN HH:delBLOCKs (ss / E EN K LIST1  ...

谢谢分享,好好学习,天天向上。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-7-15 13:36 , Processed in 0.147420 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表