Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
kame2211982

Xin giúp về hộp thoại!

Các bài được khuyến nghị

Chào các anh chị!

Em đang tìm hiểu về hộp thoại có thắc mắc xin các anh chị giúp đỡ!

 Hộp thoại hiệu chỉnh (edit_box) mình có thể lưu lại giá trị vừa nhập để có thể sử dụng cho lần sau không vậy?

 Ví dụ là lần đầu mình nhập

 username: An

 userAge: 39

 

Thì lần sau dùng lệnh ô username: có sẵn tên là An rồi còn ô userAge: có sẵn số 39.

 Mã code  của lisp đây

http://www.cadviet.com/upfiles/3/25305_hopthoai.rar

 Xin cám ơn!!

(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge( atoi (get_tile "userage")))
)
 
 
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge(atoi(get_tile "userage")))
)
(defun C:SAMPLE()
 
(setq dcl_id (load_dialog "SAMPLE.dcl"))
 
(if (not (new_dialog "SAMPLE" dcl_id))
(progn
(alert "The SAMPLE.DCL file could not be loaded!")
(exit)
)
)
 
(action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)")
(action_tile "cancel" "(setq ddiag 1)(done_dialog)")
 
(start_dialog)
 
(unload_dialog dcl_id)
 
(if(= ddiag 1)
(princ "\n Sample2 cancelled!")
)
 
(if(= ddiag 2)
(progn
(princ "\n The user pressed Okay!")
)
 
 
)
 
 
(if(= ddiag 2)
(progn
 
(setq userAge(* userAge 365))
 
(alert (strcat userName " is " (itoa userAge) " days old."))
)
)
 
(princ)
)(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge( atoi (get_tile "userage")))
)
 
 
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge(atoi(get_tile "userage")))
)
(defun C:SAMPLE()
 
(setq dcl_id (load_dialog "SAMPLE.dcl"))
 
(if (not (new_dialog "SAMPLE" dcl_id))
(progn
(alert "The SAMPLE.DCL file could not be loaded!")
(exit)
)
)
 
(action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)")
(action_tile "cancel" "(setq ddiag 1)(done_dialog)")
 
(start_dialog)
 
(unload_dialog dcl_id)
 
(if(= ddiag 1)
(princ "\n Sample2 cancelled!")
)
 
(if(= ddiag 2)
(progn
(princ "\n The user pressed Okay!")
)
 
 
)
 
 
(if(= ddiag 2)
(progn
 
(setq userAge(* userAge 365))
 
(alert (strcat userName " is " (itoa userAge) " days old."))
)
)
 
(princ)
)
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge( atoi (get_tile "userage")))
)
 
 
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge(atoi(get_tile "userage")))
)
(defun C:SAMPLE()
 
(setq dcl_id (load_dialog "SAMPLE.dcl"))
 
(if (not (new_dialog "SAMPLE" dcl_id))
(progn
(alert "The SAMPLE.DCL file could not be loaded!")
(exit)
)
)
 
(action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)")
(action_tile "cancel" "(setq ddiag 1)(done_dialog)")
 
(start_dialog)
 
(unload_dialog dcl_id)
 
(if(= ddiag 1)
(princ "\n Sample2 cancelled!")
)
 
(if(= ddiag 2)
(progn
(princ "\n The user pressed Okay!")
)
 
 
)
 
 
(if(= ddiag 2)
(progn
 
(setq userAge(* userAge 365))
 
(alert (strcat userName " is " (itoa userAge) " days old."))
)
)
 
(princ)
)
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge( atoi (get_tile "userage")))
)
 
 
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge(atoi(get_tile "userage")))
)
(defun C:SAMPLE()
 
(setq dcl_id (load_dialog "SAMPLE.dcl"))
 
(if (not (new_dialog "SAMPLE" dcl_id))
(progn
(alert "The SAMPLE.DCL file could not be loaded!")
(exit)
)
)
 
(action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)")
(action_tile "cancel" "(setq ddiag 1)(done_dialog)")
 
(start_dialog)
 
(unload_dialog dcl_id)
 
(if(= ddiag 1)
(princ "\n Sample2 cancelled!")
)
 
(if(= ddiag 2)
(progn
(princ "\n The user pressed Okay!")
)
 
 
)
 
 
(if(= ddiag 2)
(progn
 
(setq userAge(* userAge 365))
 
(alert (strcat userName " is " (itoa userAge) " days old."))
)
)
 
(princ)
)
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge( atoi (get_tile "userage")))
)
 
 
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge(atoi(get_tile "userage")))
)
(defun C:SAMPLE()
 
(setq dcl_id (load_dialog "SAMPLE.dcl"))
 
(if (not (new_dialog "SAMPLE" dcl_id))
(progn
(alert "The SAMPLE.DCL file could not be loaded!")
(exit)
)
)
 
(action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)")
(action_tile "cancel" "(setq ddiag 1)(done_dialog)")
 
(start_dialog)
 
(unload_dialog dcl_id)
 
(if(= ddiag 1)
(princ "\n Sample2 cancelled!")
)
 
(if(= ddiag 2)
(progn
(princ "\n The user pressed Okay!")
)
 
 
)
 
 
(if(= ddiag 2)
(progn
 
(setq userAge(* userAge 365))
 
(alert (strcat userName " is " (itoa userAge) " days old."))
)
)
 
(princ)
)
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge( atoi (get_tile "userage")))
)
 
 
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge(atoi(get_tile "userage")))
)
(defun C:SAMPLE()
 
(setq dcl_id (load_dialog "SAMPLE.dcl"))
 
(if (not (new_dialog "SAMPLE" dcl_id))
(progn
(alert "The SAMPLE.DCL file could not be loaded!")
(exit)
)
)
 
(action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)")
(action_tile "cancel" "(setq ddiag 1)(done_dialog)")
 
(start_dialog)
 
(unload_dialog dcl_id)
 
(if(= ddiag 1)
(princ "\n Sample2 cancelled!")
)
 
(if(= ddiag 2)
(progn
(princ "\n The user pressed Okay!")
)
 
 
)
 
 
(if(= ddiag 2)
(progn
 
(setq userAge(* userAge 365))
 
(alert (strcat userName " is " (itoa userAge) " days old."))
)
)
 
(princ)
)
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge( atoi (get_tile "userage")))
)
 
 
(defun saveVars()
(setq userName(get_tile "username"))
(setq userAge(atoi(get_tile "userage")))
)
(defun C:SAMPLE()
 
(setq dcl_id (load_dialog "SAMPLE.dcl"))
 
(if (not (new_dialog "SAMPLE" dcl_id))
(progn
(alert "The SAMPLE.DCL file could not be loaded!")
(exit)
)
)
 
(action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)")
(action_tile "cancel" "(setq ddiag 1)(done_dialog)")
 
(start_dialog)
 
(unload_dialog dcl_id)
 
(if(= ddiag 1)
(princ "\n Sample2 cancelled!")
)
 
(if(= ddiag 2)
(progn
(princ "\n The user pressed Okay!")
)
 
 
)
 
 
(if(= ddiag 2)
(progn
 
(setq userAge(* userAge 365))
 
(alert (strcat userName " is " (itoa userAge) " days old."))
)
)
 
(princ)
)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Được chứ. Bạn (setq username (get_tile "edit_box")) và đừng khử biến sau khi ra khỏi hàm thì nó vẫn còn đó.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Bạn viết thế này:

 

(defun saveVars()
  (setq userName (get_tile "username"))
  (setq userAge (atoi(get_tile "userage")))
)
 
(defun C:SAMPLE()
  (setq dcl_id (load_dialog "SAMPLE.dcl"))
  (if (not (new_dialog "SAMPLE" dcl_id))
    (progn
      (alert "The SAMPLE.DCL file could not be loaded!")
      (exit)
      )
    )
  (if userName (set_tile "username" userName))
  (if userAge (set_tile "userage" (rtos userAge)))  
  (action_tile "accept" "(setq ddiag 2) (saveVars) (done_dialog)")
  (action_tile "cancel" "(setq ddiag 1) (done_dialog)")
  (start_dialog)
  (unload_dialog dcl_id)
  (if(= ddiag 1)
    (princ "\n Sample2 cancelled!")
    )
  (if(= ddiag 2)
    (progn
      (princ "\n The user pressed Okay!")
      (setq userAgebyDay (* userAge 365))
      (alert (strcat userName " is " (itoa userAgebyDay) " days old."))
      )
    )
  (princ)
)
  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Bạn viết thế này:

 

(defun saveVars()
  (setq userName (get_tile "username"))
  (setq userAge (atoi(get_tile "userage")))
)
 
(defun C:SAMPLE()
  (setq dcl_id (load_dialog "SAMPLE.dcl"))
  (if (not (new_dialog "SAMPLE" dcl_id))
    (progn
      (alert "The SAMPLE.DCL file could not be loaded!")
      (exit)
      )
    )
  (if userName (set_tile "username" userName))
  (if userAge (set_tile "userage" (rtos userAge)))  
  (action_tile "accept" "(setq ddiag 2) (saveVars) (done_dialog)")
  (action_tile "cancel" "(setq ddiag 1) (done_dialog)")
  (start_dialog)
  (unload_dialog dcl_id)
  (if(= ddiag 1)
    (princ "\n Sample2 cancelled!")
    )
  (if(= ddiag 2)
    (progn
      (princ "\n The user pressed Okay!")
      (setq userAgebyDay (* userAge 365))
      (alert (strcat userName " is " (itoa userAgebyDay) " days old."))
      )
    )
  (princ)
)

Được rồi,

Cám ơn bạn nhiều lắm!!!!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×