Autocad命令：\u find

Lee Mac · 发表于 2022-7-6 10:47:46

这里有一种显示重复超链接的方法：


(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)
)