Đến nội dung


Hình ảnh
- - - - -

[Hỏi] Cách đếm số lần sử dụng lệnh lisp hoặc Giới hạn thời gian sử dụng LISP


  • Please log in to reply
28 replies to this topic

#21 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 993 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 29 May 2015 - 11:54 PM

 

 

Sao bạn ko thử tạo khóa registry của Window theo hàm của Nhoclangbat rồi đặt diều kiện chạy hàm chính

Dạ. Em cảm ơn bác pphung183


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#22 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 384 Bài viết
Điểm đánh giá: 425 (tốt)

Đã gửi 30 May 2015 - 12:02 AM

Code tạm cho bạn :)

(VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\kk\\time\\time" "" "20150530")
(defun c:test ()
(if (> (getvar "CDATE") (read (VL-REGISTRY-READ "HKEY_CURRENT_USER\\kk\\time\\time")))
(progn (alert "\nBan da het han su dung!") (setq hamchinh nil))  
(progn (alert "\nHan su dung den ngay 30/05/2015!")(hamchinh)) )
(defun hamchinh (/ oldlst a b c d e f g h kho TL)
...........
...........)
(princ))

  • 2

#23 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 993 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 30 May 2015 - 12:23 AM

Em cảm ơn bác!


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#24 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 30 May 2015 - 04:12 PM

Cấu trúc pphung183 viết chưa ổn về nguyên tắc cơ bản khi load hàm/thủ tục.
  • 1

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


#25 Han Tinh

Han Tinh

    biết vẽ pline

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

Đã gửi 31 May 2015 - 03:51 PM

Bạn ketxu có thể show để anh, em trên diễn đàn học hỏi. 


  • 0

#26 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 31 May 2015 - 05:22 PM

Về chính xác vấn đề j ạ ^^
  • 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


#27 Han Tinh

Han Tinh

    biết vẽ pline

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

Đã gửi 31 May 2015 - 06:45 PM

Thì về "Giới hạn thời gian sử dụng LISP" đó bạn
  • 0

#28 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 31 May 2015 - 10:05 PM

Đề xuất cực đoan: hãy đừng giúp ai khi họ có đề nghị giúp họ để họ có thể chống lại ai đó. 


  • 1

* 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.


#29 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 01 June 2015 - 09:01 AM

Vâng thưa bác ^^.

@Hantinh : Về cơ bản thì gợi ý của bạn pphung183 dùng được rồi, nhưng phải đưa (hamchinh) hoặc ra ngoài, hoặc là trước hàm If, hoặc chỉ load ngay trong mục else của hàm if. Chứ như thế kia thì lần đầu khi hàm if thỏa điều kiện else (hamchinh) vẫn chưa được load, lấy gì dùng ^^


  • 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