Xref's

[pinkguju]

So i have a script i've written where autocad will open a specified file, execute a bunch of commands then create a dxf out.

 

Before it starts executing commands i would like it to select all external refrences and move it to a specific layer.

 

i tried "(ssget "X" '((0 . "block reference")))" as well as "(ssget "X" '((0 . "EXTERNAL REFERENCE")))"

 

nothing seems ot be working....

 

any ideas?

[lpseifert]

Maybe this will work for ya... very little testing

(vl-load-com)
(setq ss (ssget "_X" '((0 . "INSERT")))
     idx -1
     )
(repeat (sslength ss)
  (setq obj (vlax-ename->vla-object (ssname ss (setq idx (1+ idx)))))
 (if
   (vlax-property-available-p obj 'Path)
   (vlax-put obj 'Layer "[color=red][i]LayerName[/i][/color]")
   )
 )

[pinkguju]

So it has to fit in the below script. Ideally it would be done at the beginning, right after the zoom/extents.

 

open
"f:/Retail_Focus/Retail_Focus_Data/Retail_Focus_Stores/DPatel/Tests/DXF 1/1004 Test L1.dwg"
.ZOOM
E
.layer T 0 T A350* T "BORDER INFORMATION" T AISLE* T CONST* T CORNICE T ELEC* T NOTE T "PLOT SHADE*" T FIX* T SEARS* T TAPE* T WIPEOUT T BCB* T ARCH* T DIV* T DEPT* ON 0 ON A350* ON "BORDER INFORMATION" ON AISLE* ON CONST* ON CORNICE ON ELEC* ON NOTE ON "PLOT SHADE*" ON FIX* ON SEARS* ON TAPE* ON WIPEOUT ON BCB* ON ARCH* ON DIV* ON DEPT* 
.XREF B ****
.layer LO "*####*" LO "AISLE DEFINITION" LO TAPE* LO DIV* LO DEPT* 
ERASE
ALL 
.PURGE ALL * N
.REGENALL
.DXFOUT "K:/KmartApplications/Intactix/ProFloor/current_dxf/1004 L1.DXF" 3
.close
y

[pinkguju]

I tried what you gave me, lpseifert, but i got either a "nil" or a "(_> )" at the end.

[lpseifert]

If you've inserted the code in your script file, I would suggest you debug it to find where the error is.

 

If you're entering the code at the command line and you're getting "(_> )" try hitting enter.

If you're getting "nil" it probably worked; check the xrefs and see if the layer changed.

Edited October 26, 2010 by lpseifert