Topic: How to get "dwgname" properly

[MeasureUp]

In my code, there are two lines:

Code: [Select]

(vl-load-com)
...
(vl-file-size (getvar "dwgname"))
It works fine until today...
The 2nd line now returns a "nil" instead of a file size.
I now find that I have to rewrite the 2nd line to this:

Code: [Select]

(vl-file-size (strcat (getvar 'DwgPrefix) (getvar "dwgname")))

I test this code by using
1) the same drawing file,
2) same location,
3) same PC,
4) same AutoCAD version (Mech 2014)
And there is no setup changes on my pc or AutoCAD.
The only difference is the time, it works find yesterday, but today.
All my other codes are loaded and work perfectly.

Your helps are much appreciated.

[CAB]

Does this work?

Code: [Select]

(vl-file-size (vla-get-fullname (vla-get-ActiveDocument (vlax-get-acad-object))))

[Gasty]

Hi,

This should work too:

(vl-file-size (findfile(getvar "dwgname")))

Gaston Nunez

[MeasureUp]

Thanks to CAB & Gasty. Your codes work perfectly.

Actually my 2nd question was that why my code (shown below) worked OK previously and why today there is a problem:

Code: [Select]

(vl-file-size (getvar "dwgname"))

Thanks.

[kpblc]

I think vl-file-size returns nil only if file exists and is read-only (by file attributes; not by access rights). You can try to copy your dwg to your %TEMP% folder and get filesize from copy.

[MeasureUp]

I think vl-file-size returns nil only if file exists and is read-only (by file attributes; not by access rights). You can try to copy your dwg to your %TEMP% folder and get filesize from copy.

Thanks for your reply.
The drawing file which I was referring to is fully accessible (it is not set to "read-only") and is in "C:\Users\MyName\Documents\".

To me, it should not be a problem - I can't figure it out.

[CAB]

Hi,

This should work too:

(vl-file-size (findfile(getvar "dwgname")))

Gaston Nunez

Some caution here, if you have another file with the same name ACAD search may find it first & report unwanted information.

[dgorsman]

Doesn't (findfile ...) check in the folder of the active drawing first?  If so, then since there are unique file name constraints inside folders the active drawing file is the *only* one which can be found.

[CAB]

I believe you are correct I stand corrected.

[Lee Mac]

Actually my 2nd question was that why my code (shown below) worked OK previously and why today there is a problem:

Code: [Select]

(vl-file-size (getvar "dwgname"))


The vl-file-size function does not perform in the same way as the findfile function when supplied with a filename without a filepath, as stated in the documentation:

If you do not specify a full path name, vl-file-size searches the AutoCAD default drawing directory for the file.

The default drawing directory is not necessary equal to the working directory (DWGPREFIX); the default drawing directory is usually the My Documents folder.

[MeasureUp]

Before looking to your replies I think I got into another problem:
When I loaded this code today I found there is a problem with this line:

Code: [Select]

(getenv 'computername)It returns a message of "; error: bad argument type: stringp COMPUTERNAME"
I simply paste the above line to the command line and I get the same result.

Again, it works fine all time but today!
It now only works when it is rewritten as:

Code: [Select]

(getenv "computername")
What is wrong?

PS. I think the answer to this may also solve all my questions in this thread.

[Gasty]

Hi,

As the doc says, the argument for getenv and getvar it's a string, so the correct way to call them it's:

(getenv "EnvVar") ; Enviroment variables are usually case sensitive, so take care of that

As for getvar, you can use a quoted system variable name like (getvar 'DWGPREFIX) or a string literal like (getvar "DWGPREFIX") Autocad sys vars are not case sensitive. My preference goes to the last as a quote have a special meaning in lisp. and in Autocad means transparent command.

Gaston Nunez

[MeasureUp]

Thanks to everyone's help for getting the file path. I was too busy this week... just have done a project GA drawing.
I forgot that the Enviroment variables are case sensitive.
As Gaston seggusted, I will use double quote for both of S.V. and E.V.
Cheers!