action tile programing

[rlassoc10]

beam.lspbeambeam.lsp.lspbeam.lsp

I have a dialog box with several inputs. One of the has a key=top_cant. When something is put in this box I need an action tile to run RTD that is in the beam.lsp file that is attached. 

I haven't done any action tile programing in 25 years. You can see what I have done so far in the attachment, but it doesn't work. I haven't found anything that explains action tiles to 

really help me out. Any help would be appreciated.

[Steven P]

Not sure if this helps but I for some reason I always put the (done_dialog) after any other actions for that action.

 

I also put a 0 or 1 at the end - again can't remember why I do that (1 for accept, 0 for cancel)

 

for example you might do:

(action_tile "cancel" "(setq userclick1 nil)(done_dialog 0)"

 

Not sure if that helps?

[mhupp]

This is incomplete I need the dcl as well. where is "a" defined? Is userclick1 variable used in the dcl also?  Its a good idea to combine the dcl and lisp file.

 

Your also storing system variables to recall but not changing them and then resetting them before you exit.

This is a nice little trick to set multiple variables

(setq vars '(cmdecho blipmode osmode)  ;list of variables
      vals  (mapcar 'getvar vars)      ;store old values
)
(mapcar 'setvar vars '(0 2 3)) ;set new values
;if you want to set them all the same value
;(mapcar '(lambda (x) (setvar x 0)) vars) 

... ;lisp

(mapcar 'setvar vars vals) ;set old values before exit of lisp

 

 

[BIGAL]

This may be helpful I did not test, http://www.theswamp.org/index.php?topic=57626.0