[编程交流] 如果..返回对话框。。需要hel

;-------------start dialog------------
(setq dcl_id (load_dialog "hello_sp.dcl")) ; Load the DCL file.
 (if (not (new_dialog "hello_sp" dcl_id))   ; Initialize the dialog.
   (exit)                                ; Exit if this doesn't 
                                         ; work.
 )
;------------  set values in dialog box----
(set_tile "discesa" (rtos a1 2 2)) 
(set_tile "masetto1" (rtos a2 2 2))
(set_tile "salita" (rtos miodist 2 2))
(set_tile "tolleranza" (rtos tolleranza 2 2))
(set_tile "orriz" (rtos d1 2 2))
(set_tile "note_" "Ricordati bracci per il Q.E. e dorsali")
(set_tile "grand_dist" (rtos tot2 2 2))
 (set_tile "grand_dist_" "GRAND TOTAL (SQ)")
    
 (set_tile "Text1" "Numero Braccio")
 (set_tile "Edit1" "")
 (set_tile "Text2" "Diametro Tubo [*=25]")
 (set_tile "Edit2" "")
 (set_tile "Text3" "Tipo Linea")
 (set_tile "Edit3" "")
 ; Dialog Actions
 (action_tile "Edit1" "(setq Edit1 $value)")
 (action_tile "Edit2" "(setq Edit2 $value)")
 (action_tile "Edit3" "(setq Edit3 $value)")
;------------  end - set values in dialog box----
(start_dialog)                          ; Display the dialog   ; box.
 
(if (= Edit1 "")
  (progn
  (Alert "Campo No. braccio non puo essere vuoto")
  (exit)))
  
(unload_dialog dcl_id)                  ; Unload the DCL file.
(princ)

(action_tile "Edit1" 
"(if (= (setq Edit1 $value) "")
    (progn
    (Alert "The field is empty")
    (mode_tile "Edit1" 2)
    )
)"
)

(action_tile "Edit1" 
"(if (= (setq Edit1 $value) "")
    (progn
    (Alert "The field is empty")
    (mode_tile "Edit1" 2)
    )
)"
)

(action_tile
 "Edit1"
 (vl-prin1-to-string
   (quote
     (if (= (setq Edit1 $value) "")
(progn
  (Alert "The field is empty")
  (mode_tile "Edit1" 2)
)
     )
   )
 )
)

(action_tile
 "accept"
 (vl-prin1-to-string
   (quote
     (if Edit1
(done_dialog)
(progn
  (Alert "The field of Edit1 is empty")
  (mode_tile "Edit1" 2)
)
     )
   )
 )
)

;-------------start dialog------------
(setq dcl_id (load_dialog "hello_sp.dcl")) ; Load the DCL file.
 (if (not (new_dialog "hello_sp" dcl_id))   ; Initialize the dialog.
   (exit)                                ; Exit if this doesn't 
                                         ; work.
 )
;------------  set values in dialog box----
(set_tile "discesa" (rtos a1 2 2)) 
(set_tile "masetto1" (rtos a2 2 2))
(set_tile "salita" (rtos miodist 2 2))
(set_tile "tolleranza" (rtos tolleranza 2 2))
(set_tile "orriz" (rtos d1 2 2))
(set_tile "note_" "Ricordati bracci per il Q.E. e dorsali")
(set_tile "grand_dist" (rtos tot2 2 2))
 (set_tile "grand_dist_" "GRAND TOTAL (SQ)")
    
 (set_tile "Text1" "Numero Braccio")
 (set_tile "Edit1" "")
 (set_tile "Text2" "Diametro Tubo [*=25]")
 (set_tile "Edit2" "")
 (set_tile "Text3" "Tipo Linea")
 (set_tile "Edit3" "")
 ; Dialog Actions
 (action_tile "Edit1" "(setq Edit1 $value)")
 (action_tile "Edit2" "(setq Edit2 $value)")
 (action_tile "Edit3" "(setq Edit3 $value)")
;------------  end - set values in dialog box----
(start_dialog)                          ; Display the dialog   ; box.
[color=Red](action_tile
 "Edit1"
 (vl-prin1-to-string
   (quote
     (if (= (setq Edit1 $value) "")
   (progn
     (Alert "The field is empty")
     (mode_tile "Edit1" 2)
   )
     )
   )
 )[/color]
[color=Red])
[/color]   
;(if (= Edit1 "")
;  (progn
 ; (Alert "Campo No. braccio non puo essere vuoto")
  ;(exit)))
  
(unload_dialog dcl_id)                  ; Unload the DCL file.
(princ)

(action_tile "Edit1"
 (vl-prin1-to-string
   (quote
     (progn
       (if (= (setq Edit1 $value) "")
         (progn
           (Alert "The field is empty") (mode_tile "Edit1" 2)))))))

(setq dcl_id (load_dialog "hello_sp.dcl")) ; Load the DCL file.
(if (not (new_dialog "hello_sp" dcl_id))   ; Initialize the dialog.
(exit)                                ; Exit if this doesn't 
                                         ; work.
)
;------------  set values in dialog box----
(set_tile "discesa" (rtos a1 2 2)) 
(set_tile "masetto1" (rtos a2 2 2))
(set_tile "salita" (rtos miodist 2 2))
(set_tile "tolleranza" (rtos tolleranza 2 2))
(set_tile "orriz" (rtos d1 2 2))
(set_tile "note_" "Ricordati bracci per il Q.E. e dorsali")
(set_tile "grand_dist" (rtos tot2 2 2))
(set_tile "grand_dist_" "GRAND TOTAL (SQ)")
(set_tile "Text1" "Numero Braccio")
(set_tile "Edit1" "")
(set_tile "Text2" "Diametro Tubo [*=25]")
(set_tile "Edit2" "")
(set_tile "Text3" "Tipo Linea")
(set_tile "Edit3" "")
; Dialog Actions
(action_tile "Edit1" "(setq Edit1 $value)")
(action_tile "Edit2" "(setq Edit2 $value)")
(action_tile "Edit3" "(setq Edit3 $value)")
;------------  end - set values in dialog box----
(start_dialog)  ; Display the dialog box.
[color=Red](action_tile "Edit1"
 (vl-prin1-to-string
   (quote
     (progn
       (if (= (setq Edit1 $value) "")
         (progn
           (Alert "The field is empty") (mode_tile "Edit1" 2)))))))[/color]
 
;(if (= Edit1 "")
;(progn
;(Alert "Campo No. braccio non puo essere vuoto")
;(exit)))
 
(unload_dialog dcl_id)                  ; Unload the DCL file.
(princ)
;(setq lay "RH MEASURE Layer" );- writes total value to drawing Layer
;(alert "Inserisci NUMERO BRACCIO / 
[*] DIA.TUBO 25 - TIPO LINEA ")
 
;(setq braccio (getstring "\nInserisci NUMERO BRACCIO / 
[*] DIA.TUBO 25 - TIPO LINEA  :"))  
(and (setq pnt (getpoint "\nPunto di inserimento misura / Specify Text placement point: "))
    (entmakex (list '(0 . "MTEXT")
                    '(100 . "AcDbEntity")
                    '(100 . "AcDbMText")
             ;(cons 8 lay)
                     (cons 1 (strcat "(" Edit1 Edit2 ")" (rtos tot2 2 2) Edit3))
             (cons 7 (getvar 'textstyle))
                     (cons 10 pnt)
             (cons 40 0.08)
              ) ;_ list
    ) ;_ entmakex
) ;_ and
;------------------------
)
(princ "\nType sq to run Grand Distance(sq)")
(princ)

(if (= Edit1 "")
  (progn
  (Alert "Campo R non puo essere vuoto")
  (exit)
))

hello_sp : dialog {
   
   label = "Sadhu says";
   //first box - ** srl
   : boxed_column {
   label = "** srl";
       //second box - Dati di base
       
//start  line 1
: boxed_column {
   label = "Dati di base";
: row {
   : column {
     width = 10;
     fixed_width = true;
     
     : text {
       key = "discesa_";
       label = "Discesa         ";//
     }
   }
   : text {
       key = "discesa";
       label = "Sanjay";//Prompt from lsp file
       
       width = 18;
   fixed_width_font = true;
   
     }
    }
    
 //spacer;
 //end line 1
 //start  line 1 bis
: row {
   : column {
     width = 10;
     fixed_width = true;
     
     : text {
       key = "tolleranza_";
       label = "Tolleranza     ";//
     }
   }
   : text {
       key = "tolleranza";
       label = "San";//Prompt from lsp file
       
       width = 18;
   fixed_width_font = true;
   
     }
    }
    
 //spacer;
 //end line 1 bis
 
 //start  line 2
: row {
   : column {
     width = 10;
     fixed_width = true;
     
     : text {
       key = "masetto1_";
       label = "Masetto_1      ";//Prompt from lsp file
     }
   }
   : text {
       key = "masetto1";
       label = "jay";//Prompt from lsp file
       
       width = 18;
   fixed_width_font = true;
   
     }
    }//end line 2
    } //second box - Dati di base
 //spacer;
 
 //third box - dati inseriti
  
   : boxed_column {
       label = "Dati inseriti";
        //start salita inserita
: row {
   : column {
     width = 10;
     fixed_width = true;
     
     : text {
       key = "Salita_";
       label = "Salit�* Inserita";//Prompt from lsp file
     }
   }
   : text {
       key = "salita";
       label = "";//Prompt from lsp file
       
       width = 18;
   fixed_width_font = true;
   
     }
    } //end salita inserita
     //start distanza orrizontale
: row {
   : column {
     width = 10;
     fixed_width = true;
     
     : text {
       key = "orriz_";
       label = "Dist Orrizon.  ";//Prompt from lsp file
     }
   }
   : text {
       key = "orriz";
       label = "";//Prompt from lsp file
       
       width = 18;
   fixed_width_font = true;
   
     }
    } //end distanza orrizontale
   
    }  // end third box - dati inseriti
 //spacer;
 
spacer;
spacer;
spacer;
  //start  fourth box Grand
  : boxed_column {
  
  //start  last line Grand
: row {
   : column {
     width = 10;
     fixed_width = true;
     
     : text {
       key = "grand_dist_";
       label = "GRAND  TOTAL   ";//Prompt from lsp file
     }
   }
   : text {
       key = "grand_dist";
       label = "Sanjay";//Prompt from lsp file
       
       width = 18;
   fixed_width_font = true;
   
     }
    }    //end  last line Grand
     }   //endt  fourth box Grand
 //start insert numero braccio / tubo / linee 
 
: row {//<
   fixed_width = true;
   : column {
     width = 35;
     fixed_width = true;
     spacer;
     : text {
       key = "Text1";
       label = "";//Text1$ from lsp file
     }
   }
   : edit_box {
     key = "Edit1";//Edit1$ from lsp file
     edit_width = 9.42;
     fixed_width = true;
     allow_accept = true;
     initial_focus = true;
     
   }
 }//>
 : row {//<
   fixed_width = true;
   : column {
     width = 35;
     fixed_width = true;
     spacer;
     : text {
       key = "Text2";
       label = "";//Text2$ from lsp file
     }
   }
   : edit_box {
     key = "Edit2";//Edit2$ from lsp file
     edit_width = 9.42;
     fixed_width = true;
   }
 }//>
 : row {//<
   fixed_width = true;
   : column {
     width = 35;
     fixed_width = true;
     spacer;
     : text {
       key = "Text3";
       label = "";//Text3$ from lsp file
     }
   }
   : edit_box {
     key = "Edit3";//Edit3$ from lsp file
     edit_width = 9.42;
     fixed_width = true;
   }
 }//>
//end  insert numero braccio / tubo / linee
   
    }    //end  last line Grand
 
spacer;
spacer;
spacer;
spacer;
spacer;
spacer;
: button {
   key = "accept";
   label = "OK";
   is_default = true;
   width = 18;
   fixed_width = true;
   alignment = centered;
} //end button
//start  note
: row {
   : column {
     width = 10;
     fixed_width = true;
     
     : text {
       key = "note_";
       label = "Note: ";//Prompt from lsp file
        width = 40;
       fixed_width_font = true;
     }
   } //end note
spacer;
spacer;
spacer;
spacer;
 
            }  //end fourth box Grand
                } //end first box - rh srl

13