GETFILED save file - shows "overwrite" confirmation dialog box twice

[vanowm]

Hello.

 

I'm using Autocad 2000i/2002. Having a simple line to show save file dialog box:

(GETFILED "" "" "" 13)

If a file already exists it shows confirmation dialog:

 

 

That's good, but once clicked yes it shows this:

 

 

Any suggestions on how to avoid second dialog?

Perhaps it could be done with vba?

 

Thank you.

[vanowm]

One work around is to use bit 32 to suppress confirmations all together and then display custom confirmation dialog box

(setq filename (getFile (GETFILED "" "" "" 45)))

(DEFUN getFile (file / retry)
   (SETQ retry T)
   (WHILE retry
       (IF (SETQ file (GETFILED "" file "plt" 45))
           (PROGN
               (SETQ reply (ACET-UI-MESSAGE
                               (STRCAT file " already exists.\nDo you want to replace it?")
                               "Confirm save as"
                               (+ Acet:YESNOCANCEL Acet:ICONWARNING)
                           )
               )
               (IF (NOT (= reply Acet:IDNO))
                   (PROGN
                       (SETQ retry nil)
                       (IF (= reply Acet:IDCANCEL)
                           (SETQ file nil)
                       )
                   )
               )
           )
           (SETQ retry nil)
       )
   )
   file
)

(requires express tools)

[Lee Mac]

I can't replicate this behaviour - do you receive the same result with:

(getfiled "" "" "" 5)

[vanowm]

Yes, same result with any combination of bits 1 and 4, 8

 

 

Testing with fresh windows 7 SP1 32/64bit and fresh Autocad 2002

Edited July 19, 2015 by vanowm