[Xin Code] - Code chỉ chạy 1 lần mỗi khi mở Cad.

[Danh Cong 422]

Mình đang có vướng mắc:  Mọi người xem dòng code sau

(defun c:ABC ()
  (alert "\nChao dien dan CadViet.com")
  (princ "\nHello")
  (princ))

Mình muốn hỏi có cách nào để chạy dòng  (alert "\nChao dien dan CadViet.com") ở lần sử dụng đầu tiên mỗi khi mở ứng dụng cad. Còn các lần chạy thứ 2, 3... thì không chạy dòng lệnh này nữa.

(Mọi người chú ý là lần đầu tiên mỗi khi chạy ứng dụng,  chứ không phải là lần đầu chạy lisp sau khi cài  nhé :)

Rất mong các bác trên diễn đàn giúp đỡ. Em cám ơn :)

 

[CadExTools 102]

Thử save nó vào regedit phát, rồi kết hợp với sự kiện thoát Autocad coi bác. 

Mở ứng dụng lần đầu: Giá trị bằng rỗng-> hiện thông báo-> gán giá trị để khác rỗng khổ hỏi lần sau.

Khi tắt ứng dụng: Gán giá trị bằng rỗng lại để lần sau sẽ hiện lại.

bác xem dc không

[Danh Cong 422]

7 phút trước, CadExTools đã nói:

Thử save nó vào regedit phát, rồi kết hợp với sự kiện thoát Autocad coi bác. 

Mở ứng dụng lần đầu: Giá trị bằng rỗng-> hiện thông báo-> gán giá trị để khác rỗng khổ hỏi lần sau.

Khi tắt ứng dụng: Gán giá trị bằng rỗng lại để lần sau sẽ hiện lại.

bác xem dc không

Em ko biết chỉnh sửa regedit đâu bác ạ :(  Ko có kiến thức để can thiệp vào hệ thống Cad. Ấm ớ lắm ...:(((

[Danh Cong 422]

4 phút trước, Doan Van Ha đã nói:

Nếu không biết ghi vào Regedit thì chọn giải pháp Hai Lúa sau:

(defun c:ABC ()
  (if (not Danh_Cong)

  (progn

  (alert "\nChao dien dan CadViet.com")
  (princ "\nHello")))

 (setq Danh_Cong T))
  (princ))

 

Ồ. Đơn giản vậy mà em lại không nghĩ ra. ^^ Cám ơn bác :)))