（XD::Xref:Detach）Detach指定名字的XREF

marting

1. (defun XD::Xref:Detach (name / xref)
   
2.   (if (and (not
   
3.              (vl-catch-all-error-p
   
4.                (setq
   
5.                  xref (vl-catch-all-apply
   
6.                         'vla-item
   
7.                         (list
   
8.                           (vla-get-blocks
   
9.                             (vla-get-activedocument (vlax-get-acad-object))
   
10.                           )
    
11.                           name
    
12.                         )
    
13.                       )
    
14.                )
    
15.              )
    
16.            )
    
17.            (= :vlax-true (vla-get-isxref xref))
    
18.       )
    
19.     (progn (vla-detach xref) t)
    
20.   )
    
21. )
    

(defun XD::Xref:Detach (name / xref)<br />   (if (and (not<br />              (vl-catch-all-error-p<br />                (setq<br />                  xref (vl-catch-all-apply<br />                         'vla-item<br />                         (list<br />                           (vla-get-blocks<br />                             (vla-get-activedocument (vlax-get-acad-object))<br />                           )<br />                           name<br />                         )<br />                       )<br />                )<br />              )<br />            )<br />            (= :vlax-true (vla-get-isxref xref))<br />       )<br />     (progn (vla-detach xref) t)<br />   )<br /> )<br />

qyming2000

收了
来自: 微社区

wzjck01

收了谢谢谢谢

wzjck01

收了谢谢谢谢

wzjck01

收了谢谢谢谢

wzjck01

学习，学习。

Le9988

学习，学习。