Dialog box called with DCL program not closing

Dialog box called with DCL program not closing

Anonymous
Not applicable
991 Views
7 Replies
Message 1 of 8

Dialog box called with DCL program not closing

Anonymous
Not applicable

 

In continuation to my program I wanted to conclude the program with Dialog fox displaying program successfully run .

I have used following DCL to show the same on screen >>

 

FLNG_FINAL : dialog {
     label = "Congrats !!!!";
     spacer;
     spacer;
      : text {
        value = "FLNG Program Successfully run !!";
        alignment = centered;
        width = 30;
             }
     spacer;
     spacer;
     : button {
     key = "cancel";
     label = " ok ";
     is_default = true;
     is_cancel = true;
              }
                   }

Unfortunately I m unable to close this below dialog box even after clicking OK button or Escape or anything ..and finally I have to End Task.

I tried various options and finally posting here to help. Please help, would be greatful.

 

Close_dialog_box.jpg

 

regards,

TOMES

 

 

 

 

 

 

 

 

0 Likes
Accepted solutions (1)
992 Views
7 Replies
Replies (7)
Message 2 of 8

hmsilva
Mentor
Mentor
Accepted solution

Hi TOMES,

do you need to use an external '*.dcl' file in your code?

Why not an

(alert (strcat "Congrats !!!\n\n" "FLNG Program Successfully run !!!"))

or

 

(ACET-UI-MESSAGE
    "FLNG Program Successfully run !!!"
    "Congrats !!!"
    (+ Acet:OK Acet:ICONINFORMATION)
)

or

 

(ACET-UI-MESSAGE
    "FLNG Program Successfully run !!!"
    "Congrats !!!"
    (+ Acet:OK 0)
)

 

Hope this helps,
Henrique

EESignature

Message 3 of 8

paullimapa
Mentor
Mentor

Please include your lisp code so we can all look at your callback functions.

 

 

Area Object Link | Attribute Modifier | Dwg Setup | Feet-Inch Calculator
Layer Apps | List on Steroids | VP Zoom Scales | Exchange App Store


Paul Li
IT Specialist
@The Office
Apps & Publications | Video Demos
0 Likes
Message 4 of 8

scot-65
Advisor
Advisor
Somewhere in between the call of "(new dialog..." and
"(start_dialog)" in your lisp file add this line:

(action_tile "cancel" "(done_dialog)")

???

Scot-65
A gift of extraordinary Common Sense does not require an Acronym Suffix to be added to my given name.

0 Likes
Message 5 of 8

Anonymous
Not applicable

Hi Henrique,

Once again thanks for being my saviour.

Your all three options work absoutley fine. Thanks a lot !!!

 

regards,

TOMES

 

 

0 Likes
Message 6 of 8

Anonymous
Not applicable

Thanks pli, already got the soultion, thanks for your time.

 

- TOMES

0 Likes
Message 7 of 8

Anonymous
Not applicable

Thanks scot-65, already got the soultion, thanks for your time.

 

- TOMES

0 Likes
Message 8 of 8

hmsilva
Mentor
Mentor

@Anonymous wrote:

Hi Henrique,

Once again thanks for being my saviour.

Your all three options work absoutley fine. Thanks a lot !!!

 

regards,

TOMES


You're welcome, TOMES
Glad I could help

Henrique

EESignature

0 Likes