[编程交流] DCL对话框代码查询

(defun test ( / foo1 foo2 foo3 *error* r ) ; Localise our required subfunctions that help out with the overall performance
 (defun foo1 ( input1 ) ; subfunction on-the-fly
   ... ; say if point is provided, prompt for a selection and return it, else nil
 )
 (defun foo2 ( input2 ) ; subfunction on-the-fly
   ... ; say if a SS is provided, prompt to be filtered by Layer, using dialog with listbox, return list of enames, else nil
 )
 (defun foo3 ( input3 ) ; subfunction on-the-fly
   ... ; say if a list of enames is provided, erase them - this is the last evaluation and I don't care what it returns
 )
 (defun *error* (m) ...) ; I use the *error* function as a separator between my on-the-fly subfuns and the main program
 
 (and ; Main Program - nice and clean: only one variable is processed by 3 different subfunctions
   (setq r (getpoint)) ; r = nil ? -> stop evaluating
   (setq r (foo1 r)) ; r = nil ? -> stop evaluating
   (setq r (foo2 r)) ; r = nil ? -> stop evaluating
   (setq r (foo3 r)) ; r = nil ? -> doesn't matter, we're done
 ); and
); defun test
(defun foo4 ( input ) ; subfunction that is used more globally - i.e. its required in (foo2) and (foo3)
 ...
); defun foo4