[求助]一个删除重复块程序运行有问题,麻烦高手查看!

yoyoho · 发表于 2008-10-4 09:13:00

;删除重复块晓东 zxq0220 2008.7.11
(defun c:BKILL ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget "X" '((0 . "INSERT")))) (progn
(setq i 0 ess (list))
(repeat (sslength ss)
   (setq s1 (ssname ss i)
         ent (entget s1)
         ss1 (ssget "X" (list '(0 . "INSERT") (assoc 2 ent))))
   (if (> (sslength ss1) 1) (setq ss1 (ssdel s1) ess (cons ss1 ess)))
   (setq i (1+ i))
)
(setq i 0)
(command ".erase")
(repeat (length ess)
   (command (nth i ess))
   (setq i (1+ i))
)
(command "")
))
(setvar "CMDECHO" 1)
(princ)
)

78946299 · 发表于 2022-4-17 12:48:36

ZZXXQQ 发表于 2008-10-5 19:37
这样试试：

[/post]

大哥，请教下，网上看到的删除重复线，方便帮忙改下吗。我想取消当当前图层，任何图层，只要是重复的就能删了

正能量的一诺 · 发表于 2022-3-20 16:28:22

ZZXXQQ 发表于 2008-10-5 19:37
这样试试：

[/post]

增加回复，不然看不了啊

正能量的一诺 · 发表于 2022-3-20 16:15:26

ZZXXQQ 发表于 2008-10-5 19:37
这样试试：

[/post]

支持，感谢指导

c3a139 · 发表于 2008-10-4 12:40:00

(if (> (sslength ss1) 1) (setq ss1 (ssdel s1 ss1) ess (cons ss1 ess)))

yoyoho · 发表于 2008-10-4 15:07:00

c3a139你好:

依照你的方式修正程序

,运行结果块全部被删除了

,无法达到删除重复块.

麻烦你在查看一下

,谢谢!

yoyoho · 发表于 2008-10-5 18:26:00

自己顶一下

,删除重复块程序运行有问题

,尚未解决期待高手帮忙?

ZZXXQQ · 发表于 2008-10-5 19:37:00

本帖最后由作者于 2008-10-6 8:24:38 编辑

这样试试：

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

yoyoho · 发表于 2008-10-6 08:00:00

ZZXXQQ版主你好:

运行结果块全部被删除了

,无法达到删除重复块.

,麻烦你在查看一下

,谢谢!

ZZXXQQ · 发表于 2008-10-6 08:25:00

五楼已改。

liminnet · 发表于 2008-10-6 10:14:00

提示: 作者被禁止或删除内容自动屏蔽

yoyoho · 发表于 2008-10-6 12:19:00

ZZXXQQ版主你好:

程序测试O.K.

谢谢你的帮助!

jxlsp · 发表于 2008-10-6 12:34:00

关键在 (setq ss1 (ssdel s1 ss1))

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

[求助]一个删除重复块程序运行有问题,麻烦高手查看!

本帖子中包含更多资源

浏览过的版块

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-10-6 10:14:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡