Hỏi về Layon, lay off, layiso trong nova 2005

Chào các bác, các bác cho em hỏi về lệnh layon, layoff, layiso trong nova 2005. Khi viết lệnh toàn hiện thông báo "Press F1 for help" em đã add file "Epress" mà vẫn không dùng được các lệnh này. Mong các bác giúp đỡ.
Thanks!

Bạn cài express cho cad vào mới dùng được chứ !

minhhieuthanh đã viết:: Bạn cài express cho cad vào mới dùng được chứ !

Mình đã dùng lệnh AP load "tool Express" nhưng vẫn ko sử dụng được lệnh layon, layoff. Bạn cóp thể nói cụ thể cách làm hơn cho mình được ko .
Thank!

Bạn dùng lisp đi. Tiện ích Tool Express của Cad2005 cài chưa thành công, nếu đã cài được rồi thì đâu cần load, nếu đã ko được thì load cũng đâu dùng được.
Đây là lisp bật, tắt mở lớp (Layon=LO, layoff=LF, layiso=LI) :

Code:: Tat lop: LF
Bat tach lop: LI
Bat tat ca cac lop: LO
;;;--------------------------------------
(Defun C:LF (/ LAY TEMP)
(setvar "cmdecho" 0)
(setq LAY (entsel "\n>Pick doi tuong tren layer muon OFF: "))
(if LAY
(progn
(setq LAY (entget (car LAY)))
(setq LAY (cdr (assoc 8 LAY)))
(if (= LAY (getvar "clayer"))
(progn
(initget "Yes No")
(setq TEMP
(getkword (strcat "\n>Layer "
LAY
" la hien hanh. Tiep tuc? Yes/<No>: "
)
)
)
(if (= TEMP "Yes")
(progn
(command "_.LAYER" "OFF" LAY "YES" "")
(princ (strcat "\nLayer " LAY " da OFF (Layer hien hanh).")
)
)
)
)
(progn (command "_.LAYER" "OFF" LAY "")
(princ (strcat "\nLayer " LAY " da OFF."))
)
)
)
)
(princ)
)

(Defun C:LO ()
(setvar "cmdecho" 0)
(Command "_.LAYER" "_ON" "*" "")
(princ)
)
(Defun C:QKHS_FZ (/ LAY TEMP)
(setvar "cmdecho" 0)
(setq LAY (entsel "\n>Chon doi tuong can dong bang: "))
(if LAY
(progn
(setq LAY (entget (car LAY)))
(setq LAY (cdr (assoc 8 LAY)))
(if (= LAY (getvar "clayer"))
(princ
(strcat "\nLayer " LAY " khong the FRZ-Layer hien hanh, ngu the. Chuyen lop hien hanh khác di ong ban.")
)
(progn (command "_.LAYER" "FREEZE" LAY "")
(princ (strcat "\nLayer " LAY " da FRZ."))
)
)
)
)
(princ)
)

(Defun C:LI (/ SS CNT LAY LAYLST VAL)
(setvar "cmdecho" 0)
(if (not (setq SS (ssget "i")))
(progn (prompt "\nChon doi tuong tach ra (Chon doi tuong bat rieng): ")
(setq SS (ssget))
)
)
(if SS
(progn (setq CNT 0)
(while (setq LAY (ssname SS CNT))
(setq LAY (cdr (assoc 8 (entget LAY))))
(if (not (member LAY LAYLST))
(setq LAYLST (cons LAY LAYLST))
)
(setq CNT (1+ CNT))
)
(if (member (getvar "CLAYER") LAYLST)
(setq LAY (getvar "CLAYER"))
(setvar "CLAYER" (setq LAY (last LAYLST)))
)
(command "_.LAYER" "_OFF" "*" "_Y")
(foreach VAL LAYLST (command "_ON" VAL))
(command "")
(if (= (length LAYLST) 1)
(prompt (strcat "\nLayer " (car LAYLST) " da tach ra."))
(prompt (strcat "\n"
(itoa (length LAYLST))
" layers da tach ra. "
"Layer "
LAY
" la hien hanh."
)
)
)
)
)
(princ)
)

qkhs.live đã viết:

Bạn dùng lisp đi. Tiện ích Tool Express của Cad2005 cài chưa thành công, nếu đã cài được rồi thì đâu cần load, nếu đã ko được thì load cũng đâu dùng được.
Đây là lisp bật, tắt mở lớp (Layon=LO, layoff=LF, layiso=LI) :

Code:: Tat lop: LF
Bat tach lop: LI
Bat tat ca cac lop: LO
;;;--------------------------------------
(Defun C:LF (/ LAY TEMP)
(setvar "cmdecho" 0)
(setq LAY (entsel "\n>Pick doi tuong tren layer muon OFF: "))
(if LAY
(progn
(setq LAY (entget (car LAY)))
(setq LAY (cdr (assoc 8 LAY)))
(if (= LAY (getvar "clayer"))
(progn
(initget "Yes No")
(setq TEMP
(getkword (strcat "\n>Layer "
LAY
" la hien hanh. Tiep tuc? Yes/<No>: "
)
)
)
(if (= TEMP "Yes")
(progn
(command "_.LAYER" "OFF" LAY "YES" "")
(princ (strcat "\nLayer " LAY " da OFF (Layer hien hanh).")
)
)
)
)
(progn (command "_.LAYER" "OFF" LAY "")
(princ (strcat "\nLayer " LAY " da OFF."))
)
)
)
)
(princ)
)

(Defun C:LO ()
(setvar "cmdecho" 0)
(Command "_.LAYER" "_ON" "*" "")
(princ)
)
(Defun C:QKHS_FZ (/ LAY TEMP)
(setvar "cmdecho" 0)
(setq LAY (entsel "\n>Chon doi tuong can dong bang: "))
(if LAY
(progn
(setq LAY (entget (car LAY)))
(setq LAY (cdr (assoc 8 LAY)))
(if (= LAY (getvar "clayer"))
(princ
(strcat "\nLayer " LAY " khong the FRZ-Layer hien hanh, ngu the. Chuyen lop hien hanh khác di ong ban.")
)
(progn (command "_.LAYER" "FREEZE" LAY "")
(princ (strcat "\nLayer " LAY " da FRZ."))
)
)
)
)
(princ)
)

(Defun C:LI (/ SS CNT LAY LAYLST VAL)
(setvar "cmdecho" 0)
(if (not (setq SS (ssget "i")))
(progn (prompt "\nChon doi tuong tach ra (Chon doi tuong bat rieng): ")
(setq SS (ssget))
)
)
(if SS
(progn (setq CNT 0)
(while (setq LAY (ssname SS CNT))
(setq LAY (cdr (assoc 8 (entget LAY))))
(if (not (member LAY LAYLST))
(setq LAYLST (cons LAY LAYLST))
)
(setq CNT (1+ CNT))
)
(if (member (getvar "CLAYER") LAYLST)
(setq LAY (getvar "CLAYER"))
(setvar "CLAYER" (setq LAY (last LAYLST)))
)
(command "_.LAYER" "_OFF" "*" "_Y")
(foreach VAL LAYLST (command "_ON" VAL))
(command "")
(if (= (length LAYLST) 1)
(prompt (strcat "\nLayer " (car LAYLST) " da tach ra."))
(prompt (strcat "\n"
(itoa (length LAYLST))
" layers da tach ra. "
"Layer "
LAY
" la hien hanh."
)
)
)
)
)
(princ)
)

Cảm ơn bác nhiều, để em thử xem.

cotrithinen đã viết:

minhhieuthanh đã viết:: Bạn cài express cho cad vào mới dùng được chứ !

Mình đã dùng lệnh AP load "tool Express" nhưng vẫn ko sử dụng được lệnh layon, layoff. Bạn cóp thể nói cụ thể cách làm hơn cho mình được ko .
Thank!

Cái này đi chung với bộ cài cad mà. đâu phải lisp đâu mà load bạn. qua lần này nếu lần sau bạn có cài cad thì nên chú ý cài cả express cho đầy đủ tiện ích nha.
- còn đối menu express muốn load nó trên taskbar thì chỉ cần gõ lệnh expressmenu là được

tool Express trên Cad2005 thỉnh thoảng có máy bị lỗi cứng đầu cài không chạy, nhất là dân mới vào nghề. Vì vậy mình làm bộ riêng tách từ đó ra, cả SSX và CHT (kiếm trên Cadviet).

Bạn copy express của cad 2004 bỏ vào flie cài trong ổ C là Ok.

Bạn vào bộ cài. Bạn thường cài đặt là Step 2 Install đúng hôg. bạn Xún Step 4 Cài AutoCad Express Tools. khi bạn cài song khỡi động lại Cad là dc thôi

Khoi dong khoa Topo+Rpl+HS+Upcad.dng chay run module khi load len autocad2005 thong bao loi error: ARXLOAD failed. Ban nao biet nguyen nhan sao khong giup minh voi nha

Cái món này bạn cần phải cài lại win rồi!

» Nhờ ae giúp đỡ nội suy cao độ cọc chèn trong nova 2005
» nội suy trong nova 2005
» Help me lôĩ của nova
» Bạn nào khó khăn trong Thiết kế trắc ngang nova 2005 vào đây
» giải mã NOVA 2005