AfraLisp Blog

The AutoLisp/Visual Lisp/VBA Resource Website

AfraLisp Blog

Home Newsletter Utter Rubbish Coding Tips AutoCAD Tips Contact Downloads WAUN

AutoLisp Input Box.

Input Box

This routine is very similar to the Visual Basic Input Box Function.
To use this routine you feed the function 3 arguments, the Input Box Prompt, the Title of the Input Box, and the Default Value of the Edit Box.

The syntax is straightforward:

	(inputbox "prompt" "title" "default")

For example, the Input Box above was called by using the following command:

	(inputbox "Enter Number" "AfraLisp Inputbox" "342.34")

The Input Box returns a variable "inputvalue" containing the value of the
Edit Box.


Source Coding.

First the DCL Coding:

inputbox : dialog {

	key = "title";

	: text {
	key = "prompt";
	       }
	: edit_box {
	key = "eb1";
		   }
	ok_cancel;

  		 }

And next the AutoLisp Coding:
(defun inputbox (prompt title default)

  (setq dcl_id (load_dialog "inputbox.dcl"))
  (if (not (new_dialog "inputbox" dcl_id))
    (exit)
  )

  (set_tile "prompt" prompt)
  (set_tile "title" title)
  (set_tile "eb1" default)
  (mode_tile "eb1" 2)

  (action_tile
    "cancel"
    "(done_dialog)
     (setq result nil)"
  )
  (action_tile
    "accept"
    "(setq inputvalue (get_tile \"eb1\"))
     (done_dialog)
     (setq result T)"
  )
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(princ)

If you would like the source coding for the the Input Box routine, just
place your mouse here, and click....Enjoy.

 
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