[Nhờ giúp] đoạn code này có nút Close mà không phải là nút Ok

[toiyeuvietnam 0]

(alert "BAN KHONG DUOC TU Y DUNG MAY")

[ketxu 2.984]

Không để làm gì cả

[Doan Van Ha 3.196]

Chịu thôi. Đây là hàm gốc của Acad rồi, trừ khi bạn lập 1 hàm tự tạo.

[toiyeuvietnam 0]

em muốn có 1 đoạn code để hiện lên cái bảng như của bác Duy này cũng được! nhưng đoạn mã dưới đây còn thêm cái gì nữa để hiện lên bảng dưới đây vậy các bác nhỉ?

(duy:vht_goithongbao “Chao ban” “Cam on ban a quan tam den chu de” “dau!” “4” “---Duy782006---”)

Thì ra như sau:

[Doan Van Ha 3.196]

Bạn đọc link này: nhiều cái còn đẹp giai lắm!

http://xaydungit.vn/diendan/showthread.php?7853-S%E1%BB%AD-d%E1%BB%A5ng-Lisp-c%E1%BB%A7a-Terry-Miller-(c%C3%B3-b%E1%BB%95-sung)-%C4%91%E1%BB%83-t%E1%BA%A1o-c%C3%A1c-Dialoge-Message-%C4%91%E1%BA%B9p-m%E1%BA%AFt

[toiyeuvietnam 0]

em đọc mà nó nhiều thứ quá không biết cái nào cần để copy đoạn có cái nút thoát trong cái hộp thoại anh à, anh biết cho em 1 đoạn để có cái nút thoát đó không ạ! vì nếu là nút ok thì nó hiểu là bạn tiếp tục chạy chuơng trình! cảm ởn anh nhiều

[Doan Van Ha 3.196]

Bạn cần những nút gì ở cuối dialoge?

[toiyeuvietnam 0]

dạ nút Close có dấu X mầu đỏ, cảm ởn anh Ha nhiều!

[Doan Van Ha 3.196]

[toiyeuvietnam 0]

dạ cũng được miễn là khi nhấn ok thì không thực thi được lệnh nào khác trong lisp

[Doan Van Ha 3.196]

Tất nhiên là nó chẳng "làm gì" đâu, vì nó chỉ là 1 dòng thông báo thôi mà!

Điều kiện là file lisp trong link trên kia phải được load nhé!

(GetOK (CHUYENT "RÊt tiÕc !") (CHUYENT "Chóng t«i ch­a viÕt nót \"Close\", v× kh«ng cÇn thiÕt. VËy nót \"OK\" ®­îc kh«ng?") "AlertX")

[toiyeuvietnam 0]

em thêm đoạn đó vào chuơng trình mà khi mở cad thì nó báo lỗi như vậy là em chưa load cái gì anh nhỉ?

AutoCAD menu utilities loaded.; error: no function definition: CHUYENT

[Doan Van Ha 3.196]

"Đọc kỹ hướng dẫn sử dụng trước khi dùng" ở trên!!!!!

Hoặc nếu bạn biết viết Unicode Hex thì bỏ hàm CHUYENT luôn.

[toiyeuvietnam 0]

em chỉ cần có chữ và nút nào có thể thoát chuơng trình thôi, không nhất thiết phải chữ có dấu anh ạ!

[Doan Van Ha 3.196]

Không load cái file ở link trên thì chả làm được gì đâu!

Load xong, đây:

(GetOK "01234" "56789" "AlertX")

[toiyeuvietnam 0]

em dùng thử với đoạn code dưới đây, em muốn thêm phần hạn chế không cho khóa khi gõ lệnh khóa thì chuơng trình báo là bạn không được khóa bản vẽ và thoat khỏi chuơng trình

 
(defun c:KHOA ( / ss i j h e )  (prompt "\nGO LENH KHOA: DE KHOA BAN VE KHONG CHO SUA")
 (if (setq ss (ssget))(progn(repeat(setq j 0 i (sslength ss))
   	(if (not(member(setq h(cdr(assoc 5(setq e(entget(ssname ss(setq i (1- i)))))))) *handle*))
     	(setq *handle* (cons h *handle*) *elist* (cons e *elist*) j (1+ j))))
 	(if(not(vl-some(function(lambda ( r )(eq "ObjectLock" (vlr-data r))))
       	(cdar (vlr-reactors :vlr-editor-reactor))))
   	(vlr-editor-reactor "ObjectLock"(list(cons :vlr-commandended 'ObjectLockCallBack)(cons :vlr-lispended	'ObjectLockCallBack))))
 	(if(not(vl-some(function(lambda ( r )(eq "ObjectLock" (vlr-data r))))
       	(cdar (vlr-reactors :vlr-dwg-reactor))))
   	(vlr-dwg-reactor "ObjectLock"(list(cons :vlr-beginsave 'ObjectLockSave))))         
 	(princ(strcat "\n"(itoa j) " Object(s) Locked, Total: " (itoa (length *handle*)) " Locked."))))
(prompt "\nDA KHOA CAC DOI TUONG VUA CHON XONG!")(princ))

[Doan Van Ha 3.196]

Thêm đoạn code này vào đầu lisp + Load file lisp ở link trên + Dùng lệnh HA để khóa hoặc không.

(defun C:HA()
(= "Yes" (GetYesNo "Khoa hay khong ?" "Ban co muon khoa ban ve hay khong ?\n[Toi se khong tra loi them cau hoi nao nua dau nhe !]" "Quest"))
 (C:KHOA)))