(defun c:ShowDuplicateHyperlinks ( / dp ss x e l i )
;; © Lee Mac 2010
(if (setq dp (ssadd) ss (ssget "_X" '((-3 ("PE_URL")))))
(repeat (setq i (sslength ss))
(if
(member
(setq x
(cadr
(assoc -3
(entget (setq e (ssname ss (setq i (1- i)))) '("PE_URL"))
)
)
)
l
)
(ssadd e dp) (setq l (cons x l))
)
)
)
(sssetfirst nil dp)
(princ)
)
哇,李,它很好用。
谢谢
Jaap Marchal公司
就这么简单
李,我想从OP中找出的是在不同条件下的重复链接。类似于hyperlinlk中的文字/多行文字/对象,还是只用于文字/多行文字实体,还是Hlink中的块?字符串的值不同,但超链接相同?或完全重复,无论实体类型如何。。哦,好吧,只要它对Jaap有效,那么一切都好
从OP的描述来看,它听起来像是由任何重复的超链接引起的错误,因此我认为最好将它们全部显示出来。
李
页:
1
[2]