Beginner Question - Setting default for action_tile button

I have a nice a routine by M. Jenkins called ddlist.lsp (and ddlist.dcl)
which was published in a CAD magazine some years back that will let you pick
a nested object and show all it's properties in a dialogue box output. It's
similar to Express Tools xlist command but it can go deeper finding nesting
properties. My problem is there is an action_tile that is either checked or
unchecked to determine if nested objects are picked and it starts out
unchecked when the command is first run. Well, I almost always want the box
checked, so I was hoping to change the code or the action_tile definition
somehow to have the button checked by default and let me uncheck it on the
rare occasions I wish to list properties of unnested objects. Any dialogue
box programmers out there who would be willing to help?

Thanks in advance,
Edgetrimmer

 

If it is a toggle, it has a value of either 1 or 0.
This may be set at the start of the lisp program but may be is set in the DCL file.

Value = "1" ;

Add this to the appropriate tile and it should appear as "X"ed.

If not:
Look for (set_tile "key" "0") in the lisp in case that's where they do it and set it to "1".

Bill

 

I assume that when you say "action Tile", you mean toggle--right?

If so, in the DCL file, the tile will have a "Key"--this is the NAME of the
tile.

Let's say that the KEY is Tog1.

In the LSP file:
Do a search for "new_dialog" and right after this call place the following.

(set_tile "Tog1" 1); Check the toggle
(set_tile "Tog1" 0); Uncheck the toggle

 

Thank you for your reply. I will have to look at the logic of the lisp
routine to see how to reverse the default of the button.

Regards,
Edgetrimmer

 

Right above (as in "before") the following...
(if (= #ddlist_n "1")
(while (not (setq ENT (nentsel)))
(prompt "\nNo entity selected.")
)
(while (not (setq ENT (entsel)))
(prompt "\nNo entity selected.")
)
)
Add the following line...
(or #ddlist_n (setq #ddlist_n "1"))