AfraLisp Blog

The AutoLisp/Visual Lisp/VBA Resource Website

AfraLisp Blog

Home Newsletter Utter Rubbish Coding Tips AutoCAD Tips Contact Downloads WAUN

image.

image

Syntax: 

	: image {
          action alignment aspect_ratio color
          fixed_height fixed_width height
          is_enabled is_tab_stop  key label mnemonic
          value width
        } 

DCL Coding: 
lisp48o : dialog {				//dialog name
          label = "image" ;			//give it a label
  
        : row {					//begin row

        : image {				//define image tile
          key = "im1" ;				//give it a name
          height = 5.0 ;			//and a height
          width = 10.0 ;			//and now a width
          fixed_width = true;			//fix the width
          fixed_height = true;			//fix the height
        }					//end image

        : image {				//define image tile
          key = "im2" ;				//give it a name
          height = 5.0 ;			//add a height
          width = 10.0 ;			//and now a width
          fixed_width = true;			//fix the width
          fixed_height = true;			//fix the height
        }					//end image

        : image {				//define image tile
          key = "im3" ;				//give it a name
          height = 5.0 ;			//add a height
          width = 10.0 ;			//and now a width
          fixed_width = true;			//fix the width
          fixed_height = true;			//fix the height
          color = graphics_background;		//set background color
        }					//end image

	}					//end row


        ok_cancel ;				//predefined OK/Cancel button

        }					//end dialog 

AutoLisp Coding: 
(defun C:lisp48o ()
;define function	

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

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

      );not

    (exit)
    ;exit if no dialog

  );if

  (setq w (dimx_tile "im1")
  ;get image tile width

        h (dimy_tile "im1")
     	;get image tile height

  );setq

  (start_image "im1")	
  ;start the image

  (fill_image 0 0 w h 1)	
  ;fill it with red

  (end_image)
  ;end image

  (setq	w (dimx_tile "im2")
  ;get image tile width

	h (dimy_tile "im2")
        ;get image tile height

  );setq

  (start_image "im2")
  ;start the image

  (fill_image 0 0 w h 5)
  ;fill the image with blue

  (setq w1 (/ w 2))
  ;calculate vector

  (setq h1 (/ h 2))
  ;calculate vector

  (vector_image 0 h w1 0 2)
  ;draw vector

  (vector_image w1 0 w h 2)
  ;draw vector

  (vector_image 0 h w1 h1 2)
  ;draw vector

  (vector_image w1 h1 w h 2)
  ;draw vector

  (end_image)
  ;end image

  (setq w (dimx_tile "im3")
  ;get image tile width

        h (dimy_tile "im3")
     	;get image tile height

  );setq

  (start_image "im3")	
  ;start the image

  (slide_image 0 0 w h "acad(torus)")	
  ;display a slide

  (end_image)
  ;end image


  (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	

  (if userclick
  ;if OK selected

     (alert "You selected OK")
     ;inform the user

     (alert "You selected Cancel")
     ;inform the user

  );if			

 (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