Đến nội dung


Hình ảnh
- - - - -

code giới hạn thời gian sử dụng File lisp


  • Please log in to reply
44 replies to this topic

#41 NvThanh

NvThanh

    biết zoom

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

Đã gửi 20 September 2011 - 09:02 PM

Cảm ơn npham, mình đã thực hiện được rồi, tất nhiên mục đích là học tập và khóa người ngay mà :mellow:
mình còn một vấn đề nữa là nếu mình có 3 file lisp muốn hạn chế số lần thực hiện lệnh thì phải viết lại như thế nào ?
Và còn một vấn đề nữa nếu file của mình không phải là lisp mà là file dll có dùng đoạn code trên được không, mình thử nhưng không được không biết sai chỗ nào mong được học hỏi!

Mong giúp đỡ !
  • 0

#42 npham

npham

    biết lệnh rotate

  • Members
  • PipPipPip
  • 136 Bài viết
Điểm đánh giá: 75 (tàm tạm)

Đã gửi 20 September 2011 - 09:22 PM

Tu nhien khong go TV duoc ????

Neu 3 file doc lap co ham doc lap thi ban phai dat ham "test" trong moi file
Neu no duoc goi tu 1 ham f nao do thi ban dat dieu kien trong ham f
file dll : Khong biet ban su dung no theo phuong thuc gi
Noi chung phai cu the moi gop y cho ban duoc.
  • 1

#43 NvThanh

NvThanh

    biết zoom

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

Đã gửi 20 September 2011 - 11:01 PM

Tu nhien khong go TV duoc ????

Neu 3 file doc lap co ham doc lap thi ban phai dat ham "test" trong moi file
Neu no duoc goi tu 1 ham f nao do thi ban dat dieu kien trong ham f
file dll : Khong biet ban su dung no theo phuong thuc gi
Noi chung phai cu the moi gop y cho ban duoc.

Ví dụ mình có 3 file :
C:/cadviet/vm.lsp
C:/cadviet/vc.lsp
C:/cadviet/vd.lsp
Mình muốn hạn chế số lần dùng 3 lệnh này
Bạn có thể ví dụ cụ thể đặt hàm test cho 3 file được không
Còn file *.dll mình cũng mốn hạn chế lệnh như file *.lsp có được không ?
  • 0

#44 npham

npham

    biết lệnh rotate

  • Members
  • PipPipPip
  • 136 Bài viết
Điểm đánh giá: 75 (tàm tạm)

Đã gửi 21 September 2011 - 11:44 AM

Tu nhien khong go TV duoc ????

Neu 3 file doc lap co ham doc lap thi ban phai dat ham "test" trong moi file
Neu no duoc goi tu 1 ham f nao do thi ban dat dieu kien trong ham f
file dll : Khong biet ban su dung no theo phuong thuc gi
Noi chung phai cu the moi gop y cho ban duoc.


Tốt hơn hết, bạn nên gọp 3 file lại 1 file sau biên dịch (vlx chẳng hạn)
Còn nếu để 3 file độc lập, thì phải rõ cơ cấu file của bạn chứa gì trong đó, mỗi file là 1 hàm độc lập, hay có liên quan gì nhau không.

Còn file dll thì khó đấy. Phải làm trong soucre code. Dịch ra dll rồi sao đếm.

Tham khảo:


(defun c:vm (/)

;Ham kiem tra
(defun TEST()
(setq sl (getcfg "AppData/CADViet/Count_vm"))
(cond
((= sl "") (setq sl "5"))
((<= (atoi sl) 0) (setq sl "1"))
)
(setcfg "AppData/CADViet/Count_vm" (itoa (1- (atoi sl))))
)
; Ham thuc hien cong viec
(defun hamchinh (/)
(prompt "dang thuc hien lenh")
)
;vm
(if (> (atoi (setq sl (test))) 0)
(progn
(alert (strcat "Ban con " sl " lan su dung"))
(hamchinh)
)
(progn
(alert "Het so lan su dung")
(setq hamchinh nil)
)
)
)

  • 1

#45 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 315 (khá)

Đã gửi 26 August 2015 - 09:44 PM

Sửa làm cái dzề? Xóa con mịa nó đê...!


  • -1