dcl_settings : default_dcl_settings { audit_level = 1; } dr : dialog { label = "Door In Plan"; :column { : text { label = "Trims walls and draws doors in plan on \" * - WNDR \" layer."; alignment = centered; width = 20 ; } //: spacer { height = 0; } : boxed_radio_row { label = "Door Type"; //children_alignment = none; :spacer_0 { } : radio_button { // defines the single leaf toggle label = "Single Leaf"; key = "S"; mnemonic = "S"; alignment = left; height = 2; action = "(setq doortype \"s\")"; } :spacer_0 { } //:spacer_0 { } : radio_button { // defines the double door toggle label = "Double Doors"; key = "D"; mnemonic = "D"; alignment = right; height = 2; action = "(setq doortype \"d\")"; } : spacer_1 {} } //end of door type radio row : spacer_1 {} :boxed_column { label = "Insertion"; :row { // defines the insertion type button row : spacer_0 {} : radio_column { // :spacer { width = 5;} : radio_button { // defines the corner insert label = "&Hinge Corner insert"; key = "H"; //is_default = true; //fixed_width = true; //action = "(setq insert \"h\")"; } : radio_button { // defines the centerline insert label = "&Centerline Insert"; key = "C"; //is_default = true; //fixed_width = true; //action = "(setq insert \"c\")"; } } //:spacer { width = 5;} :column { : edit_box { // defines the hinge offset label = "Hinge to Corner &Distance"; key = "OFFCORN"; //alignment = left; //value = "6"; //is_default = true; //fixed_width = true; edit_width = 6; action = "(setq offcorn (atof (get_tile \"OFFCORN\")))"; } : edit_box { // defines the opening size label = "Size of &Opening"; key = "DRSIZE"; //alignment = left; //value = "30"; //is_default = true; //fixed_width = true; edit_width = 6; //action = "(setq drsize (atof (get_tile \"DRSIZE\")))"; } } :spacer_0 { } } //end of row } //end of insert column : spacer_1 { } :boxed_column { label = "&Leaf Angle in Degrees:"; //: spacer { height = 1; } : row { : slider { key = "LEAFANGLE"; //alignment = left; max_value = 90; min_value = 15; mnemonic = "L"; small_increment = 15; big_increment = 15; width = 50; value = "45"; } //: spacer_1 {} :paragraph { : text_part{ //fixed_width = true; label ="Door(s) open at"; } : concatenation { width = 15; : text_part { // displays the slider values key = "slider_value"; width =2; //value ="(LEAFANGLE)"; value ="(get_tile \"LEAFANGLE\")"; } : text_part{ //fixed_width = true; label =" degrees."; } }} } //end of slider row } //end of boxed slider column : spacer_1 { } : row { :spacer { width = 5;} : button { // defines the Pick Points button label = "Pick Points"; key = "pickpoints"; action = "(getpnts)"; is_default = true; fixed_width = true; width = 15; } : retirement_button { // defines the Cancel button label = "Cancel"; width = 15; is_cancel = true; key = "cancel"; } :spacer { width = 5;} } //end of row } //end of column } //end dialogue