Need LISP to Unload all XREF

[Faouweb]

Hi,

Is there any LISP to Unload all XREF?

Thank you.

[Stefan BMR]

(vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
 (if (= (vla-get-isxref block) :vlax-true) (vla-unload block))
 )

[Faouweb]

How can I use it?

I have tried to defun c: TEST () ; and I have put the code but it doesn't work.

I am not a specialist of AutoLISP

Thank you.

[Stefan BMR]

Sorry.. Try this

(defun c:test nil (vl-load-com)
  (vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))  
    (if (= (vla-get-isxref block) :vlax-true) (vla-unload block))
 )
)

[Faouweb]

Thank you Stefan BMR

I have found this also:

 

(defun c:XDetach (/ blk)  (while   (setq blk (tblnext "block" (not blk)))   (if (and (cdr (assoc 1 blk))            (< (cdr (assoc 70 blk)) 32))     (command "_-xref" "_d" (cdr (assoc 2 blk))))  ) )

[pipefitter72]

one I found

 

xu.lsp

 

 

 

(defun C:Xu ( / )
(command "-xref" "u" "*")
(princ)
)

[piscopatos]

one I found

 

[ATTACH]51388[/ATTACH]

 

 

 

(defun C:Xu ( / )
(command "-xref" "u" "*")
(princ)
)

 

(command "-xref" "u" "*") what does "*" this do ? and where else we can use "*" this.

[Dana W]

It means ALL or ANY. It is a wildcard search or selection symbol. It can be used pretty much anywhere you want to find or select ALL.