wrha 发表于 2022-7-6 10:02:26

duoblcate块lisp

拼贴
我搜索lisp delet duoblcate块。
谢谢

David Bethel 发表于 2022-7-6 10:34:01

我不知道OVERKILL是否只允许您过滤插入。如果没有，这应该有效：
 

(defun c:deldupin (/ i ss oq en ed ul nq)
(defun remove (expr lst);;;TonyT or VNesterowski
   (apply 'append (subst nil (list expr) (mapcar 'list lst))))

(and (setq i -1
         ss (ssget "X" (list (cons 0 "INSERT"))))
      (setq oq (sslength ss))
      (while (setq en (ssname ss (setq i (1+ i))))
             (setq ed (entget en)
                   ed (remove (assoc -1 ed) ed)
                   ed (remove (assoc5 ed) ed))
             (if (member ed ul)
               (entdel en)
               (setq ul (cons ed ul))))
      (setq nq (sslength (ssget "X" (list (cons 0 "INSERT")))))
      (princ (strcat "\n" (rtos (- oq nq) 2 0) " of "
                        (rtos oq 2 0)" Inserts Deleted")))
(redraw)
(prin1))


 
-大卫

wrha 发表于 2022-7-6 10:52:40

阿洛特

asos2000 发表于 2022-7-6 11:21:50

你好Wael
 
你找到解决方法了吗
http://www.cadtutor.net/forum/showthread.php?54004-如何在autocad中重命名菜单
页: [1]
查看完整版本: duoblcate块lisp