Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
16 replies to this topic

#1 toiyeuvietnam

toiyeuvietnam

    biết vẽ polygon

  • Members
  • PipPip
  • 78 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 23 November 2012 - 01:23 PM

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

#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 23 November 2012 - 01:26 PM

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

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 23 November 2012 - 01:35 PM

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.
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#4 toiyeuvietnam

toiyeuvietnam

    biết vẽ polygon

  • Members
  • PipPip
  • 78 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 23 November 2012 - 03:06 PM

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:
Hình đã gửi
  • 0

#5 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 23 November 2012 - 03:11 PM

Bạn đọc link này: nhiều cái còn đẹp giai lắm!
http://xaydungit.vn/...ler-(có-bổ-sung)-%C4%91%E1%BB%83-t%E1%BA%A1o-c%C3%A1c-Dialoge-Message-%C4%91%E1%BA%B9p-m%E1%BA%AFt
  • 2

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#6 toiyeuvietnam

toiyeuvietnam

    biết vẽ polygon

  • Members
  • PipPip
  • 78 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 23 November 2012 - 08:41 PM

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
  • 0

#7 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 23 November 2012 - 08:43 PM

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

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#8 toiyeuvietnam

toiyeuvietnam

    biết vẽ polygon

  • Members
  • PipPip
  • 78 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 23 November 2012 - 08:51 PM

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

#9 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 23 November 2012 - 09:04 PM

Hình đã gửi
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#10 toiyeuvietnam

toiyeuvietnam

    biết vẽ polygon

  • Members
  • PipPip
  • 78 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 23 November 2012 - 09:07 PM

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
  • 0

#11 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 23 November 2012 - 09:17 PM

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")

  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#12 toiyeuvietnam

toiyeuvietnam

    biết vẽ polygon

  • Members
  • PipPip
  • 78 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 23 November 2012 - 09:35 PM

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
  • 0

#13 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 23 November 2012 - 09:37 PM

"Đọ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.
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#14 toiyeuvietnam

toiyeuvietnam

    biết vẽ polygon

  • Members
  • PipPip
  • 78 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 23 November 2012 - 09:47 PM

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 ạ!
  • 0

#15 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 23 November 2012 - 09:49 PM

Không load cái file ở link trên thì chả làm được gì đâu!
Load xong, đây:
(GetOK "01234" "56789" "AlertX")
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#16 toiyeuvietnam

toiyeuvietnam

    biết vẽ polygon

  • Members
  • PipPip
  • 78 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 23 November 2012 - 09:59 PM

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))

  • 0

#17 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 23 November 2012 - 10:15 PM

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)))
Hình đã gửi
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.