[编程交流] 代码错误

IBlock:dialog{
label="BLOCK SELECTION";
:column {
:row{
:row{
:radio_column {
key="radio";
label="VIEW";
:radio_button{
key="plan";
label=" PLAN";
}
:radio_button{
key="side";
label=" SIDE";
}
:radio_button{
key="front";
label=" FRONT";
}
}
:column{
:radio_column {
key="radio2";
label="BLOCK TYPE";
:radio_button{
label= "Block1";
key="B1";
value="1";
}
:radio_button{
label= "Block2";
key="B2";
}
}
}
}
}
:row{
:button{
key="accept";
label=" OK ";
is_default=true;
height=3.5;
}
:button{
key="cancel";
label=" CANCEL ";
is_default=false;
is_cancel=true;
height=3.5;
}
}
}
}

(defun saveVars()
  (setq plan(atoi(get_tile "plan")))
  (setq side(atoi(get_tile "side")))
  (setq front(atoi(get_tile "front")))
  (setq b1(atoi(get_tile "B1")))
  (setq b2(atoi(get_tile "B2")))
  
;;;--PLAN VIEW--
 (setq  p1(strcat path "Block1p")
 p2(strcat path "Block2p")
 )
;;;--SIDE VIEW--
 (setq  s1(strcat path "Block1s")
        s2(strcat path "Block2s")
 )
;;;--SIDE VIEW--
 (setq  f1(strcat path "Block1f")
        f2(strcat path "Block2f")
 )
        
)
(defun C:IBlock()
 (setvar "cmdecho" 0)
(setq oldOsmode(getvar "osmode"))
(setvar "osmode" 0)
;;;--- Load the dialog box
(setq dcl_id (load_dialog "c:\\Lisp\\Programs\\Iblock.dcl"))
;;;--- See if it is ready
(if (not (new_dialog "Iblock" dcl_id) ) (exit))
;;;--- If an action event occurs, do this function
(action_tile "cancel" "(setq ddiag 1)(done_dialog)")
(action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)")
 ;(saveVars)
 
;;;--- Display the dialog box
(start_dialog)
 (unload_dialog dcl_id)
;;;--- If the CANCEL button was pressed - display message
 (if (= ddiag 1)
  (princ "\n \n ...IBblock Cancelled. \n ")
)
;;;--- If the OKAY button was pressed
(if (= ddiag 2)
      
(command "-insert" (if(and(= plan 1)(= b1 1)) p1
    
             (if(and(= plan 1)(= b2 1)) p2
               (if(and(= side 1)(= b1 1)) s1
                 (if(and(= side 1)(= b2 1)) s2
                   (if(and(= front 1)(= b1 1)) f1
                     (if(and(= front 1)(= b2 1)) f2
                           ))))))) pause 1 1 pause)
         
(setvar "cmdecho" 175)
(princ)
)

(defun c:IBlock (/ os dcl_id plan side front b1 b2 bk)
 ;;        Modified by Tharwat 10.12.2014                ;;
 (setq dcl_id (load_dialog "c:\\Lisp\\Programs\\Iblock.dcl"))
 (if (not (new_dialog "IBlock" dcl_id))
   (exit)
   (progn
     (action_tile "cancel" "(setq ddiag 1)(done_dialog)")
     (action_tile
       "accept"
       "(setq plan (atoi (get_tile "plan"))
                                  side (atoi (get_tile "side"))
                                  front (atoi (get_tile "front"))
                                  b1 (atoi (get_tile "B1"))
                                  b2 (atoi (get_tile "B2")))
                                  (done_dialog)"
     )
     (start_dialog)
     (unload_dialog dcl_id)
   )
 )
 (if (= ddiag 1)
   (princ "\n ...IBblock Cancelled. \n ")
   (progn
     (cond ((and (= plan 1)
                 (= b1 1)
            )
            (setq bk "Block1p")
           )
           ((and (= plan 1)
                 (= b2 1)
            )
            (setq bk "Block2p")
           )
           ((and (= side 1) (= b1 1))
            (setq bk "Block1s")
           )
           ((and (= side 1) (= b2 1))
            (setq bk "Block2s")
           )
           ((and (= front 1) (= b1 1))
            (setq bk "Block1f")
           )
           ((and (= front 1) (= b2 1))
            (setq bk "Block2f")
           )
     )
     (if (and bk (findfile (setq bk (strcat "c:\\Lisp\\Library\" bk ".dwg"))))
       (progn
         (setq os (getvar "osmode"))
         (setvar "osmode" 0)
         (command "_.-insert" bk pause 1. 1. pause)
       (setvar "osmode" os)
       )
       (alert
         (strcat "\n Name of Block < " bk " > is not found !!")
       )
     )
   )
 )
 (princ)
)

: radio_button { key = "plan";
label = " PLAN";
[color="blue"]value = "1";[/color]
}