Đến nội dung


Hình ảnh
- - - - -

Ngày giờ trong LISP


  • Please log in to reply
11 replies to this topic

#1 anonmyous

anonmyous

    biết vẽ arc

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

Đã gửi 15 August 2008 - 08:56 AM

Em muốn lấy ngày giờ hiện tại trong LISP, pác nào giúp em với
  • 0

#2 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4106 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 15 August 2008 - 09:41 AM

Em muốn lấy ngày giờ hiện tại trong LISP, pác nào giúp em với

bạn lấy ngày giờ thông qua biến cdate.

Cách dùng biến này, hãy search từ cdate trên diễn đàn.
  • 0

#3 ssg

ssg

    biết lệnh adcenter

  • Vip
  • PipPipPipPipPipPipPip
  • 1228 Bài viết
Điểm đánh giá: 1087 (rất tốt)

Đã gửi 15 August 2008 - 11:22 AM

Dùng cdate sẽ nhận được một chuỗi số, sau đó phải xử lý thêm mới có được thời gian và ngày tháng theo ý muốn. Bạn có thể dùng cái này:

(menucmd "M=$(edtime,$(getvar,date),HH:MM:SS - DD/MO/YYYY)")

Kết quả return là một string dạng:
"11:17:20 - 15/08/2008"

Không cần cái nào thì bỏ bớt cái đó. Ngoài ra, bạn có thể định dạng kết quả giống như điều chỉnh Date/Time trong Control Panel của Windows vậy. Ví dụ:
(menucmd "M=$(edtime,$(getvar,date),DD-MON-YY)")
Return: "15-Aug-08"
  • 1

#4 ghost8.3

ghost8.3

    biết dimdiameter

  • Members
  • PipPipPipPipPip
  • 335 Bài viết
Điểm đánh giá: 162 (tàm tạm)

Đã gửi 20 August 2008 - 09:33 AM

Em muốn lấy ngày giờ hiện tại trong LISP, pác nào giúp em với

Đây là Lisp mình sưu tập được. Hy vọng đúng ý của bạn. Khi sử dụng lệnh sẽ cho kết quả là: Thứ-ngày/tháng/năm-Giờ/phút/giây. Chúc bạn thành công
Lệnh dùng là: TGV
http://www.cadviet.com/upfiles/tgv.vlx
  • 1

Hình đã gửi


#5 SoftvnBin

SoftvnBin

    biết vẽ ellipse

  • Advance Member
  • PipPip
  • 51 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 31 July 2012 - 11:08 AM

Đây là Lisp mình sưu tập được. Hy vọng đúng ý của bạn. Khi sử dụng lệnh sẽ cho kết quả là: Thứ-ngày/tháng/năm-Giờ/phút/giây. Chúc bạn thành công
Lệnh dùng là: TGV
http://www.cadviet.com/upfiles/tgv.vlx

Rất hay, tuy nhiên sao nó cứ dựng ngược lên nhỉ, hơi khó đọc, chỉnh năm ngang được thì tốt, chủ nhân vlx có lòng share file lsp không nhỉ?
  • 0

#6 tranglandmarket

tranglandmarket

    Chưa sử dụng CAD

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

Đã gửi 31 July 2012 - 11:23 AM

lấy ngày giờ hiện tại trong LISP thì như thế nào :angry2:
  • 0

#7 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 31 July 2012 - 11:52 AM

lấy ngày giờ hiện tại trong LISP thì như thế nào :angry2:

Nhảm quá bạn ạ!
  • 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


#8 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 31 July 2012 - 11:57 AM

Rất hay, tuy nhiên sao nó cứ dựng ngược lên nhỉ, hơi khó đọc, chỉnh năm ngang được thì tốt, chủ nhân vlx có lòng share file lsp không nhỉ?

Bạn dùng kèm Lisp này với tgv.vlx là được


(defun c:tgve() (c:tgv) (vla-rotate (vlax-ename->vla-object (entlast))
(vlax-3d-point (cdr(assoc 10 (entget(entlast))))) (/ pi -2.0)))
Chủ Nhân tgv.vlx chưa xuất hiện trong topic này ^_^
Hồi xưa có lần mình nhớ có lần đọc cuốn lịch có chỉ ra công thức
Cho ngày tháng năm -> tính ra được ngày đó là thứ mấy trong tuần mà quên mất :blush:
Các bác có ai biết xin chỉ giúp ạ!
  • 1

#9 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 31 July 2012 - 12:03 PM

Để làm j ạ bác ^^ Cái này bác sang bên các box VB thì nhiều lắm. CÒn lấy thứ của hôm nay thì bác sử dụng công thức Diesel bên trên với format "DDDD"
  • 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


#10 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 31 July 2012 - 12:21 PM

Để làm j ạ bác ^^ Cái này bác sang bên các box VB thì nhiều lắm. CÒn lấy thứ của hôm nay thì bác sử dụng công thức Diesel bên trên với format "DDDD"

Làm xong cũng chẳng biết mình đang làm gì nữa, đầu óc mình dạo này có vấn đề hay sao ấy. :lol:
Mình muốn lấy thứ mấy trong tuần từ dữ liệu đầu vào là ngày, tháng, năm. Đọc các bài viết trên thì chỉ thấy là mới cho ra là ngày, tháng và năm, chưa có thứ ^ ^
Để mình hỏi bác GG. Cảm ơn bạn nhé.
  • 0

#11 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 31 July 2012 - 01:34 PM

Từ "TGV.VLX" cũng suy ra được thứ mấy trong tuần, bằng cách vặn đồng hồ lại đúng cái ngày đáng nhớ (mà bị quên thứ) ấy.
  • 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 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 31 July 2012 - 02:14 PM

Từ "TGV.VLX" cũng suy ra được thứ mấy trong tuần, bằng cách vặn đồng hồ lại đúng cái ngày đáng nhớ (mà bị quên thứ) ấy.

He he ... Từ "TGV.VLX" ... thì nói làm gì bác..... :D
  • 0