AfraLisp Blog

The AutoLisp/Visual Lisp/VBA Resource Website

AfraLisp Blog

Home Newsletter Utter Rubbish Coding Tips AutoCAD Tips Contact Downloads WAUN

is_enabled

width

Enabled/Disabled.

This attribute specifies whether a tile is initially grayed out. (Unavailable.)
Possible values are: true or false. (default: true).


DCL Code Sample 

lisp49g : dialog {				//dialog name
          label = "is_enabled";			//give it a label

	: boxed_radio_row {			//define boxed radio row
	  label = "Choose :";			//give it a label

	: radio_button {			//define radio button
	  label = "&Large";			//give it a label
	  key = "rb1";				//give it a name
	  value = "1";				//make it default
	}					//end radio button

	: radio_button {			//define radio button
	  label = "&Small";			//give it a label
	  key = "rb2";				//give it a name
	}					//end radio button

	}					//end boxed radio row

	: boxed_radio_row {			//define boxed radio row

	: radio_button {			//define radio button
	  label = "&Big";			//give it a label
	  key = "rb3";				//give it a name
	  value = "1";				//make it default
	}					//end radio button

	: radio_button {			//define radio button
	  label = "&Very Big";			//give it a label
	  key = "rb4";				//give it a name
	}					//end radio button

	}					//end boxed radio row

	: boxed_radio_row {			//define boxed radio row

	: radio_button {			//define radio button
	  label = "&Small";			//give it a label
	  key = "rb5";				//give it a name
	  is_enabled = false;			//switch off
	}					//end radio button

	: radio_button {			//define radio button
	  label = "&Very Small";		//give it a label
	  key = "rb6";				//give it a name
	  value = "1";				//make it default
	  is_enabled = false;			//switch off
	}					//end radio button

	}					//end boxed radio row

	spacer;					//define spacer

        ok_cancel ;				//predefined OK/Cancel button

        }					//end dialog

AutoLisp Coding: 

(defun C:lisp49g ()
;define function	

  (setq dcl_id (load_dialog "lisp49g.dcl"))
  ;load dialog

  (if (not (new_dialog "lisp49g" dcl_id)
  ;test for dialog

      );not

    (exit)
    ;exit if no dialog

  );if

  (action_tile "rb2"
     "(mode_tile \"rb3\" 1)
      (mode_tile \"rb4\" 1)
      (mode_tile \"rb5\" 0)
      (mode_tile \"rb6\"0)"
  )

  (action_tile "rb1"
      "(mode_tile \"rb3\" 0)
      (mode_tile \"rb4\" 0)
      (mode_tile \"rb5\" 1)
      (mode_tile \"rb6\" 1)"
  )


  (action_tile
      "accept"	
      ;if O.K. pressed
					
      "(done_dialog) (setq userclick T)"
      ;close dialog, set flag
	
   );action tile

    (action_tile
    "cancel"
    ;if cancel button pressed

    "(done_dialog) (setq userclick nil)"	
    ;close dialog, lower flag

    );action_tile

  (start_dialog)	
  ;start dialog
				
  (unload_dialog dcl_id)
  ;unload	

 (princ)

);defun

(princ)
 
The AutoLisp/Visual Lisp/VBA Resource Website

Copyright 1999-Perpetuity by AfraLisp

All rights reserved.
Information in this document is subject to change without notice.
Site created and maintained by Kenny Ramage

The AutoLisp/Visual Lisp/VBA Resource Website