Need LISP help

[shakey230]

hi guys have no real experance with lisps but very eger to lern.

I need to know if there is any thing out there that could do the following??

in the drawing - save as - (same filename)-pl.dwg (same location)
then i need to X-Ref the previous drawing in @ 0,0,0.
and rename the X-Ref as ARCH

if there was something out there that even done the first part that would be amazing and would greatly apprecate it.

Thanks..

[MSasu]

You can achive that by AutoLISP; this example should get you started:

(vl-load-com)
(setq drawingOld (getvar "DWGNAME")
      drawingNew (strcat (getvar "DWGPREFIX")
                         (vl-filename-base drawingOld)
                         "-pl"
                         (vl-filename-extension drawingOld)))
(command "_SAVEAS" "" drawingNew)

[shakey230]

thanks very much mircea great help

[MSasu]

You’re welcome! Maybe it was better to continue the discussion here instead of starting a new thread since is the same mater.