[Hướng dẫn] Gắn tên mình vào status bar

[duy782006 1.533]

Tôi nghỉ đã chỉ cặn kẽ cho thonggiotoanquoc ở đây rồi :blush:

http://www.cadviet.com/forum/index.php?showtopic=52529&hl=&fromsearch=1

[ketxu 2.984]

Sau khi đọc link bác Duy post thì e cũng nghĩ như vậy. Thật đáng buồn khi có những người phụ công và sự nhiệt tình của mình như thế.

@thonggiotoanquoc : bạn nên tôn trọng diễn đàn và mọi người 1 chút. Dislike :)

 

P/s : ketxu gộp 2 topic lại làm 1

[thonggiotoanquoc 5]

Chào các thành viên CAdviet. Xin trở lại việc gắn tên trên status bar. Tôi đã tạo 1 file lisp .....và đã thấy kết qủa trên màn hình cad. Tuy nhiên khi mở cad mechanical 2008, tich mở Content (ở giữa mục Annotation và Window) để mở tìm Springs thì không mở được. Nếu làm ngược lại, tức là không tải file lisp đó nữa, thì lại mở được để chọn lò so. xin được giải thích .CÁm ơn diễn đàn

[ketxu 2.984]

Mời bạn post file lisp lên đây :)

[thonggiotoanquoc 5]

(defun S::STARTUP ()

(setvar "MODEMACRO" "XUANHOA - AIRTECH [$(edtime,$(getvar,date,time),DDD-DD/MO/YYYY-H:MM AM/PM)]")

(Princ))

 

Chào ketxu trên đay là lisp tôi đã gắn lên status bar. xin được chỉ dẫn. cám ơn

[thonggiotoanquoc 5]

xin bổ xung thêm vấn đề. sau khi gắn được tên rồi, vẫn mở được steel shapes hoặc screw connections..nhưng không mở được cams và vài thứ khác...

[ketxu 2.984]

COde trên hoàn toàn bình thường, không có gì khả nghi cả :)

[namnhim 6]

Bạn có thể copy đoạn nay dán vao cai lisp nào có sẵn của bạn và sửa tên bạn là ok!

HIEN THI NGAY GIO DUOI THANH TRANG THAI:

(SETVAR "MODEMACRO" (strcat "Ngay "(substr (rtos (getvar "CDATE") 2 0) 7 2)

"/"(substr (rtos (getvar "CDATE") 2 0) 5 2)

"/"(substr (rtos (getvar "CDATE") 2 0) 1 4)

"->Vu Van Nam, 6B Tran Hung Dao - DaLat, phone: 0909.446.887"))

 

GHI CHÚ: NÓ CÓ THỂ BỊ ĐÈ MẤT ĐI KHI DÙNG 1 SỐ LISP CÓ DÒNG (setvar "MODEMACRO" " ") TƯƠNG TỰ TRÊN!

[namnhim 6]

mấy bữa vừa rồi tôi bận nên không vào diễn đàn bạn thonggiotoanquoc à, bạn muốn chuyển tên bạn lên trước ngày tháng thì đổi phần tên bạn lên như thế này là ok:

HIEN THI NGAY GIO DUOI THANH TRANG THAI:

(SETVAR "MODEMACRO" (strcat

"TÊN CỦA BẠN...""->Ngay "(substr (rtos (getvar "CDATE") 2 0) 7 2)

"/"(substr (rtos (getvar "CDATE") 2 0) 5 2)

"/"(substr (rtos (getvar "CDATE") 2 0) 1 4)))