You are almost there.
I see that you place this in your dcl:
ok_cancel;
You need to look up what is the key the ok & the cancel buttons each are.
These are stored under base.dcl
To locate this at AutoCAD command prompt enter:
(findfile"base.dcl")
AutoCAD will return the location of the file as under your windows roaming profile for example:
"C:\Users\your-windows-profile\AppData\Roaming\Autodesk\AutoCAD 2025\R25.0\enu\Support\base.dcl"
Open this file in your lisp editor and search for ok_cancel which shows the following:
ok_cancel : column {
: row {
fixed_width = true;
alignment = centered;
ok_button;
: spacer { width = 2; }
cancel_button;
}
}
Now search for ok_button : & then cancel_button : :
ok_button : retirement_button {
label = " OK ";
key = "accept";
is_default = true;
}
cancel_button : retirement_button {
label = "Cancel";
key = "cancel";
is_cancel = true;
}
This shows the ok_button's key = "accept"
The cancel_button's key = "cancel"
So your action callback statements must reference these two keys and not "ok_button" or "cancel_button":
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
But closing the dialog will not get you the current value entered into your edit_box key "Starting_Strobe_Address"
So you should move your get_tile statement inside the callback statement before your done_dialog like this:
(action_tile "accept" "(setq NAC_Address (get_tile \"Starting_Strobe_Address\"))(done_dialog 1)")
But to check if the OK button is selected vs the Cancel button, you should test using the following condition statement after start_dialog like this:
(setq dialog_result (start_dialog))
(cond
((= dialog_result 1)
(alert (strcat "\nRetrieved Address: " NAC_Address))
)
((= dialog_result 0)
(alert "Canceled button selected")
)
)
Now I would place a default entry into your NAC_Address by using the set_tile function before the action_tile functions so a default value can be retrieved when OK is selected like this:
(set_tile "Starting_Strobe_Address" "This is address")
It may help if you read up on my recent article I wrote called "Dialog Fun Facts: Get Ready, Set, Action!!!"
AUGIWORLD by AUGI, Inc. - Issuu
