Topic: Save Drawing

[A_LOTA_NOTA]

Is it possible to call the “SAVEAS” dialogue?

I’ve got a situation where I want to get the drawing name. So I want to test to make sure the drawing has been saved first. If not I would like to “SAVEAS” then get the drawing name.

Thanks

[Guest]

(getvar "DWGTITLED")

If it = 0, the drawing hasn't been saved yet.
It if = 1, the drawing has already been saved.

[A_LOTA_NOTA]

(getvar "DWGTITLED")

If it = 0, the drawing hasn't been saved yet.
It if = 1, the drawing has already been saved.

Thanks Matt but I knew that much. What I'm having a problem with it the "SAVEAS" part. If I just do a "Command SAVEAS" the user is not given a dialog box. I would like the "SAVEAS" dialog box to be displayed!

[ronjonp]

Look at (setvar 'filedia 1)

[A_LOTA_NOTA]

Look at (setvar 'filedia 1)

It's set to 1!

[Guest]

So what exactly is happening when the user does a SAVEAS?

[A_LOTA_NOTA]

So what exactly is happening when the user does a SAVEAS?

If I click on "File" then "SAVEAS" everything works fine! But if I add (command ".SAVEAS") to my code it doesn't give a dialog box. So I thought I must be coding it wrong.

[Guest]

Is filedia set to 0 somewhere in your code prior to the saveas?

[A_LOTA_NOTA]

No, I can have

Code: [Select]

(defun c:TEST ()
  (setvar 'filedia 1)
  (command ".SAVEAS")
  )
& I still get the command line version!

[Willie]

Try


(defun c:TEST ()
  (initdia)
  (command ".SAVEAS")
  )

[A_LOTA_NOTA]

Try


(defun c:TEST ()
  (initdia)
  (command ".SAVEAS")
  )

That did it!! Thanks everyone!!!!

[Guest]

No, I can have

Code: [Select]

(defun c:TEST ()
  (setvar 'filedia 1)
  (command ".SAVEAS")
  )
& I still get the command line version!

Part of the problem is with the second line of code...

(setvar 'filedia 1) should be (setvar "filedia" 1)

Notice the quotes. . . . . . . . . . . . .^ ^ ^

[A_LOTA_NOTA]

No, I can have

Code: [Select]

(defun c:TEST ()
  (setvar 'filedia 1)
  (command ".SAVEAS")
  )
& I still get the command line version!

Part of the problem is with the second line of code...

(setvar 'filedia 1) should be (setvar "filedia" 1)

Notice the quotes. . . . . . . . . . . . .^ ^ ^

Try it my way, I think you will get the same results!

Willie fixed my problem.

[Guest]

No, I can have

Code: [Select]

(defun c:TEST ()
  (setvar 'filedia 1)
  (command ".SAVEAS")
  )
& I still get the command line version!

Part of the problem is with the second line of code...

(setvar 'filedia 1) should be (setvar "filedia" 1)

Notice the quotes. . . . . . . . . . . . .^ ^ ^

Try it my way, I think you will get the same results!

Willie fixed my problem.

Huh... no $*#%.  I never knew that nor have I ever seen it done that way (until today).

Cool.

[A_LOTA_NOTA]

No, I can have

Code: [Select]

(defun c:TEST ()
  (setvar 'filedia 1)
  (command ".SAVEAS")
  )
& I still get the command line version!

Part of the problem is with the second line of code...

(setvar 'filedia 1) should be (setvar "filedia" 1)

Notice the quotes. . . . . . . . . . . . .^ ^ ^

Try it my way, I think you will get the same results!

Willie fixed my problem.

Huh... no $*#%.  I never knew that nor have I ever seen it done that way (until today).

Cool.

Only saves one key stroke but I like it better!