Apply width and height to DCL box

Would this help?

 

http://lee-mac.com/deleteblocks.html

Lee,

Great work.

I work with many blocks and your routine is very helpful.

I have a request:

How apply width and heigh to DCL box?

Thanks in advance.

@scamaru: Is better to start a new discussion in a dedicated thread, than appending to an un-related one.

To answer your question, look for width and height dialog attributes. But please keep in mind that those may be overridden by the summated size of defined controls on horizontal, respectively vertical.

TEST : dialog {
width  = 50;
height = 30;
spacer;

ok_cancel;
}

New thread created "Apply width and height to DCL box" in AutoLISP, Visual LISP & DCL forum.

Hi scamaru,

Change Line 144:

"; } spacer; ok_cancel;}"

to:

"; width = [color=red]50[/color]; height = [color=red]25[/color]; fixed_width = true; fixed_height = true; } spacer; ok_cancel;}"

Change the width and height values (in red) to suit.

Lee,

Thanks for your reply.

I made the change in line 144, as suggested, but did not change the size of box.

 

  (write-line
       (strcat
           "listbox : dialog { label = \""
           title
           "\"; spacer; : list_box { key = \"list\"; multiple_select = "
           (if multiple "true" "false")
            "; width = 150; height = 250; fixed_width = true; fixed_height = true; } spacer; ok_cancel;}"       
       )
       des
  )

250 is probably to much. try around 50.

k.