Lisp to find xrefs

[sinnerboy]

I need a lisp to find all xrefs and moves them onto a layer called Xrefs.

 

I attempted to do this myself ( lisps are not "my thing" at all) by editing this very useful lisp which (successfully) finds all viewports and puts them on a layer called ZPB_VPORT

 

(defun C:vpget (/ a1 b1 index b1 ln)
   (command "-layer" "m" "ZPB_VPORT" "P" "N" "ZPB_VPORT" "")    
   (setq  a1 (ssget "X" '((0 . "VIEWPORT")))))

 

I've made several attempts without success

 

Obviously I don't have a clue what I'm doing .....

Edited November 27, 2012 by SLW210
Added CODE TAGS!

[Least]

see here --> http://www.cadtutor.net/forum/showthread.php?47349-XRefsToLayers.LSP-Move-XRefs-to-corresponding-layers

[Tharwat]

Try this ....

 

(defun c:Test (/ xr i vl)
 (vl-load-com)
 (if (tblsearch "LAYER" "Xrefs")
   (if (setq xr (ssget "_x" '((0 . "INSERT"))))
     (repeat (setq i (sslength xr))
       (if (vlax-property-available-p (setq vl (vlax-ename->vla-object (ssname xr (setq i (1- i))))) 'Path)
         (vla-put-layer vl "Xrefs")
       )
     )
   )
   (alert "Layer < Xrefs > is not found in drawing ")
 )
 (princ)
)

[Lee Mac]

Another:

([color=BLUE]defun[/color] c:xr2lay ( [color=BLUE]/[/color] bd en in la ss xr )
   
   ([color=BLUE]setq[/color] la [color=MAROON]"XRefs"[/color]) [color=GREEN];; Layer for XRefs[/color]
   
   ([color=BLUE]while[/color] ([color=BLUE]setq[/color] bd ([color=BLUE]tblnext[/color] [color=MAROON]"BLOCK"[/color] ([color=BLUE]null[/color] bd)))
       ([color=BLUE]if[/color] ([color=BLUE]=[/color] 4 ([color=BLUE]logand[/color] 4 ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 70 bd))))
           ([color=BLUE]setq[/color] xr ([color=BLUE]vl-list*[/color] [color=MAROON]","[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 2 bd)) xr))
       )
   )
   ([color=BLUE]if[/color] ([color=BLUE]and[/color] xr ([color=BLUE]setq[/color] ss ([color=BLUE]ssget[/color] [color=MAROON]"_X"[/color] ([color=BLUE]list[/color] '(0 . [color=MAROON]"INSERT"[/color]) ([color=BLUE]cons[/color] 2 ([color=BLUE]apply[/color] '[color=BLUE]strcat[/color] ([color=BLUE]cdr[/color] xr)))))))
       ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] in ([color=BLUE]sslength[/color] ss))
           ([color=BLUE]setq[/color] en ([color=BLUE]entget[/color] ([color=BLUE]ssname[/color] ss ([color=BLUE]setq[/color] in ([color=BLUE]1-[/color] in)))))
           ([color=BLUE]entmod[/color] ([color=BLUE]subst[/color] ([color=BLUE]cons[/color] 8 la) ([color=BLUE]assoc[/color] 8 en) en))
       )
   )
   ([color=BLUE]princ[/color])
)

[sinnerboy]

Wow - thank you all . Fantastic.

[Tharwat]

You're welcome .

[SLW210]

sinnerboy,

 

Use CODE TAGS for code NOT Quote Tags in the future.

[sinnerboy]

Okay no problem I will. And thanks again for all the help on here.