【参照】拆离（Detach）所有卸载过的参照对象

Lispboy

1. (defun c:xdtb_xrefudetach (/ ss ents)
   
2.   (xdrx-begin)
   
3.   (if (setq ss (ssget "x" '((0 . "insert"))))
   
4.     (progn
   
5.       (setq i 0)
   
6.       (mapcar
   
7.         '(lambda (x)
   
8.            (if (or (xdrx_block_IsXref x) (xdrx_block_IsOverLay x))
   
9.              (progn
   
10.                (setq blk (xdrx-getpropertyvalue x "blocktablerecord" t))
    
11.                (if (= (xdrx_block_getxrefstatus blk) 2)
    
12.                  (progn (setq i (1+ i)) (xdrx_Xref_detach x))
    
13.                )
    
14.              )
    
15.            )
    
16.          )
    
17.         (xdrx-pickset->ents ss)
    
18.       )
    
19.       (if (> i 0)
    
20.         (xdrx-prompt "\n" i "个卸载的参照对象拆离完毕.")
    
21.         (xdrx-prompt "\n没有发现卸载的参照对象.")
    
22.       )
    
23.     )
    
24.   )
    
25.   (xdrx-end)
    
26.   (princ)
    
27. )
    
28. 
    

(defun c:xdtb_xrefudetach (/ ss ents)<br />   (xdrx-begin)<br />   (if (setq ss (ssget "x" '((0 . "insert"))))<br />     (progn<br />       (setq i 0)<br />       (mapcar<br />         '(lambda (x)<br />            (if (or (xdrx_block_IsXref x) (xdrx_block_IsOverLay x))<br />              (progn<br />                (setq blk (xdrx-getpropertyvalue x "blocktablerecord" t))<br />                (if (= (xdrx_block_getxrefstatus blk) 2)<br />                  (progn (setq i (1+ i)) (xdrx_Xref_detach x))<br />                )<br />              )<br />            )<br />          )<br />         (xdrx-pickset->ents ss)<br />       )<br />       (if (> i 0)<br />         (xdrx-prompt "\n" i "个卸载的参照对象拆离完毕.")<br />         (xdrx-prompt "\n没有发现卸载的参照对象.")<br />       )<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

xk15c

实用啊实用，正好手头要用

khadwf

受益了，感谢分享。

踏雪失踪

刚刚好需要，拿走了，谢谢楼主

SHUNDocker

编程开发值得使用，争优需求，感谢楼主分享！

z511367698

刚刚好需要，拿走了