Mình Có Lisp Này, Tại Sao Khi Dùng Lệnh Nó Không Hiện Bảng Dcl Được Vậy?

[anhquang1989 1]

//Ten file: lvts.DCL

//

LVTS : dialog {

label = "CAC CHUC NANG CHINH";

 : row {

   fixed_width = true;

        alignment = centered;

   width = 0;

  : column {

   : image {

          key = "img_1";

          height = 4.5;

          aspect_ratio = 1;

          fixed_height = true;

          alignment = centered;

          color = -15;

           }

: boxed_column {

 label = "";

 fixed_width = true;

 :button {

 label = "Co so du lieu";

 width = 0;

 key = "btn_cosodulieu";

 }

 :button {

 label = "Ban do dia chinh";

 width = 0;

 key = "btn_bandodiachinh";

 }

 :button {

 label = "Ban do dia hinh";

 width = 0;

 key = "btn_bandodiahinh";

 }

 :button {

 label = "Thiet ke duong";

 width = 0;

 key = "btn_thietkeduong";

 }

 :button {

 label = "Tien ich text";

 width = 0;

 key = "btn_tientichtext";

 }

 :button {

 label = "Tien ich canh";

 width = 0;

 key = "btn_tienichcanh";

 }

  :button {

 label = "Ho tro tien ich";

 width = 0;

 key = "btn_hotrotienich";

 }

 :button {

 label = "Scale linetype";

 width = 0;

 key = "btn_scalelinetype";

 }

 

 

 

 

 

}

}

}

 

               : text {

        label = "----o hv: Tran Anh Quang o----";

        fixed_width = true;

        alignment = centered;

width = 0;

     }

   : row { 

              : boxed_row { 

 fixed_width = true;

        alignment = centered;

                : button { 

                  key = "accept"; 

                  label = " Okay "; 

                  is_default = true; 

                } 

                : button { 

fixed_width = true;

        alignment = centered;

                  key = "cancel"; 

                  label = " Cancel "; 

                  is_default = false; 

                  is_cancel = true; 

        }

}

 

 

    }

 

 

} 

 

(defun C:LVTS ()   

(setq DCL_ID (load_dialog "LVTS"))                    

(if (not (new_dialog "LVTS" dcl_id) ) (exit)) 

 (action_tile "cancel" "(setq ddiag 1)(done_dialog)") 

  (action_tile "accept" "(setq ddiag 2)(done_dialog)")

  (start_dialog)

  (if (= ddiag 1) 

    (princ "\n \n ...LVTS Cancelled. \n ")

(if (= ddiag 2) 

    (princ "\n \n ...LVTS Complete!") 

 (princ) 

 

) 

) 

)