急需识别多个字符的拆除外部参照语句

iamhuangjinming

想卸载除了带有“结构参照”、“建筑参照”、“设备参照”的外部参照

(Defun C:dxrs ( )         
        (setvar "cmdecho" 0)           
        (command "-xref" "Detach" "~结构参照*")
          (princ)
)
(Defun C:gxrs ( )         
        (setvar "cmdecho" 0)              
        (command "-xref" "unload" "~结构参照*")
          (princ)
);■■■■

lijiao

2. (defun getxrefnames (/ BLKS I NAME XREFNAMES)
   
3.   (setq        blks (vla-get-blocks
   
4.                (vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT))
   
5.              )
   
6.   )
   
7.   (setq xrefnames '())
   
8.   (vlax-for item blks
   
9.     (setq name (vla-get-name item))
   
10.     (if        (and (setq i (VL-STRING-SEARCH "|" name))
    
11.              (/= (substr name 1 1) "*")
    
12.              (setq name (substr name 1 i))
    
13.              (not (member name xrefnames))
    
14.         )
    
15.       (setq xrefnames (cons name xrefnames))
    
16.     )
    
17.   )
    
18.   xrefnames
    
19. )
    
20. 
    
21. (defun Detach-xrefs (names / )
    
22.   (foreach item names
    
23.     (if (member item (getxrefnames))
    
24.       (command "-xref" "Detach" item)
    
25.       )
    
26.     )
    
27.   t
    
28.   )
    
29. 
    
30. (defun unload-xrefs (names / )
    
31.   (foreach item names
    
32.     (if (member item (getxrefnames))
    
33.       (command "-xref" "unload" item)
    
34.       )
    
35.     )
    
36.   t
    
37.   )

(defun getxrefnames (/ BLKS I NAME XREFNAMES)<br />   (setq        blks (vla-get-blocks<br />                (vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT))<br />              )<br />   )<br />   (setq xrefnames '())<br />   (vlax-for item blks<br />     (setq name (vla-get-name item))<br />     (if        (and (setq i (VL-STRING-SEARCH "|" name))<br />              (/= (substr name 1 1) "*")<br />              (setq name (substr name 1 i))<br />              (not (member name xrefnames))<br />         )<br />       (setq xrefnames (cons name xrefnames))<br />     )<br />   )<br />   xrefnames<br /> )<br /> <br /> (defun Detach-xrefs (names / )<br />   (foreach item names<br />     (if (member item (getxrefnames))<br />       (command "-xref" "Detach" item)<br />       )<br />     )<br />   t<br />   )<br /> <br /> (defun unload-xrefs (names / )<br />   (foreach item names<br />     (if (member item (getxrefnames))<br />       (command "-xref" "unload" item)<br />       )<br />     )<br />   t<br />   )

start4444

试一下行不行
  (command "-xref" "Detach" "*结构参照*")

iamhuangjinming

lijiao 发表于 2021-6-2 10:01

具体要把我想要的关键字“结构参照”“建筑参照”放在哪里呢？

iamhuangjinming

start4444 发表于 2021-6-2 10:05
试一下行不行
  (command "-xref" "Detach" "*结构参照*")

我想同时屏蔽 结构参照 、建筑参照

start4444

iamhuangjinming 发表于 2021-6-2 11:18
我想同时屏蔽 结构参照 、建筑参照

(command "-xref" "Detach" "*结构参照*")
(command "-xref" "Detach" "*建筑参照*")
要什么下面继续写就是了

iamhuangjinming

start4444 发表于 2021-6-2 11:26
(command "-xref" "Detach" "*结构参照*")
(command "-xref" "Detach" "*建筑参照*")
要什么下面继续 ...

*~结构参照* 我想要带这个字符的，不要拆除，按你的，应该是拆掉了吧

lijiao

2. (defun remove (lst str / )
   
3.   (vl-remove-if '(lambda(x)
   
4.                        (VL-STRING-SEARCH str x)) lst)
   
5.   )
   
6. (defun remove-not (lst str / )
   
7.   (vl-remove-if-not '(lambda(x)
   
8.                        (VL-STRING-SEARCH str x)) lst)
   
9.   )
   
10. (defun removes (lst strs / )
    
11.   (foreach item strs
    
12.     (setq lst (remove lst item))
    
13.     )
    
14.   )
    
15. (defun remove-nots (lst strs / )
    
16.   (foreach item strs
    
17.     (setq lst (remove-not lst item))
    
18.     )
    
19.   )
    
20. 
    
21. 
    
22. _$ (setq lst '("123" "234" "345" "456" "567"))
    
23. ("123" "234" "345" "456" "567")
    
24. _$ (setq str "4")
    
25. "4"
    
26. _$ (remove lst str)
    
27. ("123" "567")
    
28. _$ (remove-not lst str)
    
29. ("234" "345" "456")
    
30. _$ (setq strs '("3" "4"))
    
31. ("3" "4")
    
32. _$ (removes lst strs)
    
33. ("567")
    
34. _$ (remove-nots lst strs)
    
35. ("234" "345")
    
36. _$

(defun remove (lst str / )<br />   (vl-remove-if '(lambda(x)<br />                        (VL-STRING-SEARCH str x)) lst)<br />   )<br /> (defun remove-not (lst str / )<br />   (vl-remove-if-not '(lambda(x)<br />                        (VL-STRING-SEARCH str x)) lst)<br />   )<br /> (defun removes (lst strs / )<br />   (foreach item strs<br />     (setq lst (remove lst item))<br />     )<br />   )<br /> (defun remove-nots (lst strs / )<br />   (foreach item strs<br />     (setq lst (remove-not lst item))<br />     )<br />   )<br /> <br /> <br /> _$ (setq lst '("123" "234" "345" "456" "567"))<br /> ("123" "234" "345" "456" "567")<br /> _$ (setq str "4")<br /> "4"<br /> _$ (remove lst str)<br /> ("123" "567")<br /> _$ (remove-not lst str)<br /> ("234" "345" "456")<br /> _$ (setq strs '("3" "4"))<br /> ("3" "4")<br /> _$ (removes lst strs)<br /> ("567")<br /> _$ (remove-nots lst strs)<br /> ("234" "345")<br /> _$

iamhuangjinming

lijiao 发表于 2021-6-2 15:05

不会用呢。。 可以按提的需求整个直接能用的么。。。谢谢大佬~

lijiao

想卸载除了带有“结构参照”、“建筑参照”、“设备参照”的外部参照:
(unload-xrefs (removes (getxrefnames) '(“结构参照” “建筑参照” “设备参照”)))

想撤离除了带有“结构参照”、“建筑参照”、“设备参照”的外部参照:
(Detach-xrefs (removes (getxrefnames) '(“结构参照” “建筑参照” “设备参照”)))