|
I am trying to automate some of my lisp files
here in the office. I would like to be able to use a dialog box to choose which
LISP file to run. How do I make a call to run another lisp file from a radio
button? Do I make the call to the lisp In the "action_tile"? ex: (action_tile
"rb1" "(setq door \"single\")") where
"single" is the name of the lisp file I want to execute. : radio_button { : radio_button { ok_cancel ; } Now copy this coding into Notepad and save it as Startlisp.lsp : ;autolisp coding starts here (setq choice "No1") (setq dcl_id (load_dialog "startlisp.dcl")) (if (not (new_dialog "startlisp"
dcl_id) );not (exit) );if (action_tile "rb1" "(setq
choice \"No1\")") (action_tile "rb2" "(setq
choice \"No2\")") (action_tile "(done_dialog) (setq userclick
T)" );action tile (action_tile "(done_dialog) (setq userclick
nil)" );action_tile (start_dialog) (unload_dialog dcl_id) (if userclick (progn (if (= choice "No1") (progn ((null C:Lisp1) (prompt "Please
Wait...") (load "Lisp1"))) (C:Lisp1) );progn );if (if (= choice "No2") (progn ((null C:Lisp2) (prompt "Please
Wait...") (load "Lisp2"))) (C:Lisp2) );progn );if );progn );if userclick (princ) );defun (princ) |
|