DWGProps General Tab

Hi

When running the _DWGPROPS command.

How can I make it so that it shows up on the General Tab...Instead of the
Summary Tab.

Thanks for the help

 

Max,
This might be what you want
(vl-file-size (getvar "dwgname"))
It returns the current dwg file size in bytes

Murph

 

Hi

How do I make this run?

Thanks for the help!

Max

 

You can either type it in at the command line the way it is or if you know
how to create a toolbar button that would be the macro for it. Keep in mind
that it will return the file size back on the command line in bytes not
Kilobytes.

Murph

 

Hi Murph

I tried (vl-file-size (getvar "dwgname")) at the command line and i got...

Command: (vl-file-size (getvar "dwgname"))
nil
Command:

I am running AutoCAD 2004

Thanks for the help.

 

It works for me in R2004, you do have a dwg file open right? Also see if
running this first works (vl-load-com) if it does then just add that to the
macro or better yet in your acaddoc.lsp

Murph

 

(vl-load-com) that's got er....

Thanks!

 

interesting...now, after I added it too my menu and ran it returned nil
again...

Command:
Command: (vl-load-com)

Command: (vl-file-size (getvar "dwgname")) nil

I then typed it in and it still gave me nil....

I shut down ACAD and did it again and no luck....kinda strange...

 

Max, you tried it on a none existing file

if so use a existing file or use below

(if (findfile (getvar "dwgname"))(vl-file-size (getvar
"dwgname"))(alert (strcat "Not existing file <"(getvar "dwgname")"> ")))

I now thats not the answer but i think i'ts complicated to use the DWGprops

Look also in the news group ther many examples.

Cheers

 

Hi

I tried your suggestion too...(with an existing file)

but i am getting nil....
Command: (if (findfile (getvar "dwgname"))(vl-file-size
(getvar"dwgname"))(alert (strcat "Not existing file <"(getvar "dwgname")">
")))
nil

Thanks for the help....what is weird it did work once but can't seem to make
it work again...I didn't change none of settings or installed anything on my
machine.

 

Have you tried it with this first?
(vl-load-com)
If that was the one time that it worked then you need to include that either
with the expression or add that line to your startup to run each time you
open a dwg. Look up that function (vl-load-com) in the help files along with
the vl-XXXX functions.

Murph

 

Question

return's

(findfile (getvar "dwgname"))

and

(getvar "dwgname")

the same result??

if not

try this one

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

 

Yes i tried it first then proceeded with the second command and
nothing...kinda strange...

Thanks for the help...
the suggestion
(if (findfile (getvar "dwgname"))(vl-file-size (findfile (getvar
"dwgname")))(alert (strcat "Not existing file <"(getvar "dwgname")" ")))
by ZEHA
worked!....

Thanks for the help...

8)

 

Thanks that worked....

8)

")))