[编程交流] 子定义和局部变量B

 (defun c:main ( / an ans1 ans2 ans3 ans4 dcl_id fn fname)
(vl-load-com)
(create_dialog)
(setq dcl_id (load_dialog fname))
   (if (not (new_dialog "temp" dcl_id))
       (exit)
       (progn        
       (action_tile "accept" "(getValues)")
       (action_tile "cancel" "(done_dialog 0)") 
       (setq an (start_dialog))
        )                                                 ;end progn
     )                                                    ;end if
 
(unload_dialog dcl_id)
 
(cond ((= an 1)
      (alert (strcat "Layer to 0 is: < " ans1 " > \nLTscale to 1 is: < " ans2 " > \nColour to Bylayer is: < " ans3 " > \nLType to Bylayer is: < " ans4 " >"))
       )
 )
(vl-file-delete fname)
(princ)
);defun c:test
(defun getvalues ()
(setq ans1 (get_tile "t1")
      ans2 (get_tile "t2")
      ans3 (get_tile "t3")
      ans4 (get_tile "t4"))
(done_dialog 1)
); defun getvalues
(defun create_dialog ()
(setq fname (vl-filename-mktemp "dcl.dcl"))
(setq fn (open fname "w"))
(write-line
 "temp :dialog { label = "Set Sub-Entities to:" ; 
    :toggle  {
       label          = "Layer to 0" ;
       alignment   = centered;
       key            = t1;
       value          =  1;
         }
    :toggle  {
       label          = "LTscale to 1" ;
       alignment   = centered  ;
       key            = t2;
       value          =  1;
         }
    :toggle  {
       label          = "Colour to Bylayer" ;
       alignment   = centered;
       key            = t3;
       value          =  1;
         }
    :toggle  {
       label          = "LType to Bylayer" ;
       alignment   =  centered;
       key            = t4;
       value          =  1;
         }          
   ok_cancel;
} " fn)
(close fn)
);defun create_dialog 

(defun C:main ( / args )
(defun subfunction1)
(defun subfunction2)
; Start the main code:
(if 
        (and
                (stuff)
        );and
        (progn
                (stuff)
        );progn
);if        
);main defun

(defun C:main ( / args )
; Start the main code:
(if 
        (and
                (stuff)
        );and
        (progn
                (defun subfunction1)
                (defun subfunction2)
                (stuff)
        );progn
);if        
);main defun

;Remembers selected choice
;LM Dynamic Default
(defun C:test ()
(if (not *ans*) (setq *ans* "A4"))
(initget "A0 A1 A2 A3 A4")
(setq *ans* (cond ( (getkword (strcat "\nSelect option [A0/A1/A2/A3/A4] <" *ans* ">: "))) ( *ans* )))
(cond
        ((= *ans* "A0") (princ (strcat "\nFinal choice is " *ans* )))
        ((= *ans* "A1") (princ (strcat "\nFinal choice is " *ans* )))
        ((= *ans* "A2") (princ (strcat "\nFinal choice is " *ans* )))
        ((= *ans* "A3") (princ (strcat "\nFinal choice is " *ans* )))
        ((= *ans* "A4") (princ (strcat "\nFinal choice is " *ans* )))
)
(princ)
);defun

(princ (strcat "\nFinal choice is " (car (member *ans* '("A0" "A1" "A2" "A3" "A4")))))

(defun main
code
.......
.......
(defun getvalues); This is [color=darkorange]INSIDE [/color]main
code
........
........
);end defun getvalues
);end defun main
OR:
(defun main
code
.......
.......
);end defun main
(defun getvalues); This is [color=darkorange]OUTSIDE[/color] main
code
........
........
);end defun getvalues
Q2:
Should main be:
(defun c:main ( / [color=red]an ans1 ans2 ans3 ans4 dcl_id fn fname[/color]); All declared as [color=red]variables[/color]
or
(defun c:main ([color=royalblue]ans1 ans2 ans3 ans4[/color] / [color=red]an dcl_id fn fname[/color]); ans1 - ans4 declared as [color=royalblue]arguements[/color], an dcl_id fn fname declared as [color=red]variables[/color] 
And should getvalues be:
(defun getvalues ()
or
(defun getvalues ( [color=royalblue]ans1 ans2 ans3 ans4[/color] / ); all declared as [color=royalblue]arguments

(defun c:main ( / getvalues)
 (defun getvalues (/ a b c)
   (setq a 1
         b 2
         c 3
         )
   (+ a b c)
   )
 (alert (itoa (getvalues)))
 (princ)
 )

(defun c:main ( / )
 (alert (itoa (getvalues)))
 (princ)
 )
(defun getvalues (/ a b c)
   (setq a 1
         b 2
         c 3
         )
   (+ a b c)
   )

(defun c:main ( / )
 (alert (itoa (SumValues)))
 
 (defun SumValues (/ a b c)
   (setq a 1
         b 2
         c 3
         )
   (+ a b c)
   )
 
 (princ)
 )