Grabbing File Name

[Kenter]

Is there a way to grab the name of the file you are working on, and store it as a variable??

 

eg.

You open a file called 'square', and you want to take the drawing name and store it as variable 'name'.....

 

Not sure if this can be done, but if it is possible, the answer would be found on this forum for sure.

 

Kenter

[Hippe013]

It can certainly be done. Type the following code into the command line.

 

 
(setq name (getvar "DWGNAME"))

 

Afterwhich type: !name on the command line.

[alanjt]

Also, (getvar 'dwgprefix) will give you the location.

[Kenter]

Thank you both. I used:

 

(setq name (substr (getvar 'dwgname) 1 (- (strlen (getvar 'dwgname)) 4)))

It grabbed it without taking the .dwg at the end.

 

 

Kenter

[alanjt]

or

(vl-filename-base (getvar 'dwgname))

[Tharwat]

Thank you both. I used:

It grabbed it without taking the .dwg at the end.

Kenter

 

Really a very smart result . you do have the ability to get through codes.

 

Best regards

 

Tharwat

[Tharwat]

or

(vl-filename-base (getvar 'dwgname))

 

Undoubtly , this is the shortest and direct one .....

[alanjt]

Undoubtly , this is the shortest and direct one .....

faster too

[Lee Mac]

Unnecessary, but for the VL-phobic:

 

(substr (getvar 'DWGNAME) 1 (- (strlen (getvar 'DWGNAME)) 4))

 

Or

 

(cadr (fnsplitl (getvar 'DWGNAME)))

[Hippe013]

(cadr ([color=red]fnsplitl[/color] (getvar 'DWGNAME)))

 

Lee you are a dictionary of undocumented lisp functions!

[Lee Mac]

lee you are a dictionary of undocumented lisp functions!

 

.. :) ...