AfraLisp Blog

The AutoLisp/Visual Lisp/VBA Resource Website

AfraLisp Blog

Home Newsletter Utter Rubbish Coding Tips AutoCAD Tips Contact Downloads WAUN

Back to Model....

DCL Model - DCL Coding


lisp51  : dialog {				//dialog name
          label = "Pipe Bends" ;		//give it a label

	: row {					//define a row
	  children_alignment = top ;		//align to top

	: popup_list {				//define list box
	  key = "lb1" ;				//give it a name
	}					//end list box

	: radio_column {			//define radio column
	  label = "Radius :";			//give it a label

	: radio_button {			//define radio button
	  label = "Long" ;			//give it a label
	  key = "rb1" ;				//give it a name
	}					//end radio button

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

	: radio_button {			//define radio button
	  label = "Short";			//give it a label
	  key = "rb3" ;				//give it a name
	}					//end radio button

	}					//end radio column

	}					//end row

	spacer ;				//add a space

	: edit_box {				//define edit box
	  key = "eb1" ;				//give it a name
	  label = "Pipe Schedule :" ;		//give it a label
	}					//end edit box

	spacer ;				//add a space

        ok_cancel ;				//predefined OK/Cancel button

        }					//end dialog
  URL for areas of image outside of any defined elements.
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