Đến nội dung


Hình ảnh
- - - - -

Tạo ngày trong bvẽ lấy theo ngày của máy tính?


  • Please log in to reply
6 replies to this topic

#1 tuoichuot84

tuoichuot84

    biết vẽ ellipse

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

Đã gửi 03 December 2008 - 05:00 PM

E lại có bài toán thế này mong muốn các đại gia giúp đỡ:
Khi vẽ thì trong khung tên bao giờ cũng có một ô ghi ngày tháng thay đổi nhưng đôi khi chúng ta có thể quên ko nhập ngày cho ô này. Vậy các bác có cách nào mà cái ô đó luôn lấy ngày trực tiếp trên máy tính (giống hàm Today() trong excel ý) để anh e chúng ta ko còn phải quan tâm đến ô này nữa cho đỡ khổ ko zậy?
Trông cậy hết vào các bác đấy!
  • 0
Tóc bạc ko thể hiện trí tuệ, nó chỉ là dấu vết của thời gian!

#2 hiepquang

hiepquang

    biết dimradius

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

Đã gửi 03 December 2008 - 05:13 PM

Nếu nó là Att block thì bạn nhấp đúp và/hoặc bấm chuột phải vào nó. Chọn Insert field để vào bảng Field. Sau đó tìm đến mục Date (trong mục Date & Time) và chọn định dạng thích hợp.
Nếu nó là Mtext thì bạn nhấp vào ký hiệu Insert field ở phía trên và làm tương tự
  • 1
There was something wrong. I just never read between the lines...

#3 tuoichuot84

tuoichuot84

    biết vẽ ellipse

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

Đã gửi 04 December 2008 - 11:35 AM

Nếu nó là Att block thì bạn nhấp đúp và/hoặc bấm chuột phải vào nó. Chọn Insert field để vào bảng Field. Sau đó tìm đến mục Date (trong mục Date & Time) và chọn định dạng thích hợp.
Nếu nó là Mtext thì bạn nhấp vào ký hiệu Insert field ở phía trên và làm tương tự

Ý e là phải giống hàm =today() của excel, nghĩa là bất kỳ lúc nào ta mở bvẽ đó thì nó tự động update ngày của win vào bản vẽ. E làm theo của bác nhưng khi e thay đổi ngày trên win thì nó vẫn không thay đổi.
Các bác xem có cách nào ko?
  • 0
Tóc bạc ko thể hiện trí tuệ, nó chỉ là dấu vết của thời gian!

#4 meohoang

meohoang

    biết lệnh adcenter

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

Đã gửi 04 December 2008 - 12:20 PM

Ý e là phải giống hàm =today() của excel, nghĩa là bất kỳ lúc nào ta mở bvẽ đó thì nó tự động update ngày của win vào bản vẽ. E làm theo của bác nhưng khi e thay đổi ngày trên win thì nó vẫn không thay đổi.
Các bác xem có cách nào ko?

đánh lệnh RE sẽ thấy nó đổi ngay
  • 0

#5 doanduyhung

doanduyhung

    biết vẽ spline

  • Members
  • PipPip
  • 90 Bài viết
Điểm đánh giá: 40 (tàm tạm)

Đã gửi 04 December 2008 - 12:42 PM

;Dùng autolisp xem sao.
;Tạo 1 text với layer "Layer Thay Doi Ngay Hien Tai"
;Load đoạn lisp dưới khi đó tất cả các text có layer "Layer Thay Doi Ngay Hien Tai" sẽ thay đổi nội dung theo ngày tháng năm hiện tại.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:thayngay (/)
(setq dmy (rtos (getvar "CDATE") 2 0)) ; gán dmy theo năm tháng ngày vd 20081204
(setq y (substr dmy 1 4)) ; trích xuất năm 2008
(setq m (substr dmy 5 2)) ; trích xuất tháng 12
(setq d (substr dmy 7 2)) ; trích xuất ngày 04
(setq ngaythangnam (strcat d "/" m "/" y))
(setq chontextthay (ssget "X" '((0 . "TEXT") (8 . "Layer Thay Doi Ngay Hien Tai"))))
(setq i 0)
(repeat (sslength chontextthay)
(setq textold (assoc 1 (setq thaythe (entget (ssname chontextthay i)))))
(setq textnew (cons 1 ngaythangnam))
(setq thaythe (subst textnew textold thaythe))
(entmod thaythe)
(setq i (+ i 1))
)
(princ)
)
(c:thayngay)
  • 1

#6 damletam

damletam

    biết vẽ rectang

  • Members
  • PipPip
  • 86 Bài viết
Điểm đánh giá: 21 (tàm tạm)

Đã gửi 04 December 2008 - 02:59 PM

E lại có bài toán thế này mong muốn các đại gia giúp đỡ:
Khi vẽ thì trong khung tên bao giờ cũng có một ô ghi ngày tháng thay đổi nhưng đôi khi chúng ta có thể quên ko nhập ngày cho ô này. Vậy các bác có cách nào mà cái ô đó luôn lấy ngày trực tiếp trên máy tính (giống hàm Today() trong excel ý) để anh e chúng ta ko còn phải quan tâm đến ô này nữa cho đỡ khổ ko zậy?
Trông cậy hết vào các bác đấy!

Cái này chỉ xuất bản vẽ gia giấy mới có được chứ
  • 0
BƯỚC CHÂN NHỎ VÀO THẾ GIỚI LỚN

#7 tuoichuot84

tuoichuot84

    biết vẽ ellipse

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

Đã gửi 04 December 2008 - 04:25 PM

đánh lệnh RE sẽ thấy nó đổi ngay

E đánh rồi nhưng chẳng thấy nó thay đổi, kể cả e khởi động lại Cad cũng as kđộng lại win thì vẫn như xưa.
Cái Lips bác jì jì cho e app vào cũng ko chạy đc.
  • 0
Tóc bạc ko thể hiện trí tuệ, nó chỉ là dấu vết của thời gian!