(defun sav()
    (setq txt(get_tile "edt1"));; can phai khai bao ham nguoi dung truoc
)

(defun c:editbox ()
  (setq id_dcl(load_dialog "d:/TUAN NHU/HOC TAP/5.AutoLisp/DCL/editbox.dcl"))
  (new_dialog "editbox" id_dcl)
  ;(set_tile "edt1" string); gan hien thi cho edit_box
  (action_tile "select" "(setq ddiag 3)(done_dialog)")
  (action_tile "accept" "(setq ddiag 2)(sav)(done_dialog)")
  (action_tile "cancel" "(setq ddiag 1)(done_dialog)")
  (start_dialog); thieu se bi treo chuong trinh nen luc nao cung phai co
  (unload_dialog id_dcl)
    
  (if (= ddiag 1)
    (progn
      (princ "chuong trinh da thoat: ")
      (exit)
    )
  )
  (if (= ddiag 3)
    (progn 
      (setq ss(ssget))
    )
  )
  (if (= ddiag 2)
    (progn
      (command "text" "j" "mc" '(0 0) 2.5 0 txt)
      (setq sname(ssname ss 0)
	    obj(vlax-ename->vla-object sname)
	    are(rtos (vla-get-area obj) 2 3)
	    ss1(ssget)
	    sname1(ssname ss1 0)
	    obj1(vlax-ename->vla-object sname1)
      )
      (vla-put-textstring obj1 are)
      (princ "chay OK: ")
    )
  )
)