Cần một lisp liên quan đến việc tạo lớp

[jimicuong 1]

Mình cần một lisp tạo lớp mà khi vẽ chỉ cần gọi bằng các phím tắt. Ví dụ như muốn sử dụng lớp số 1 thì mình chỉ cần ấn phím số 1 rồi nhấn Enter là dùng được lớp này. Cám ơn mọi người rất nhiều nhá.

[Nguyen Hoanh 4.663]

Mình cần một lisp tạo lớp mà khi vẽ chỉ cần gọi bằng các phím tắt. Ví dụ như muốn sử dụng lớp số 1 thì mình chỉ cần ấn phím số 1 rồi nhấn Enter là dùng được lớp này. Cám ơn mọi người rất nhiều nhá.

Bạn xem ở đây:

http://www.cadviet.com/forum/index.php?showtopic=3997

[gia_bach 1.549]

Mình cần một lisp tạo lớp mà khi vẽ chỉ cần gọi bằng các phím tắt. Ví dụ như muốn sử dụng lớp số 1 thì mình chỉ cần ấn phím số 1 rồi nhấn Enter là dùng được lớp này. Cám ơn mọi người rất nhiều nhá.

 

Bạn thử dùng đoạn code này xem sao :

(defun c:LayerActive ( / name)
 (PrintLayer)
 (setq name (getstring "\nNhap ten Layer : "))
 (if name
   (progn
     (if (not (tblsearch "layer" name))   ; k/t nếu bản vẽ chưa có Layer "name"
(command "-layer" "n" name "")  ) ; tạo mới Layer "name"
     (command "-layer" "s" name "")     ; set active layer "name"
   )
 )
 (princ)
)
;;; In tên các Layer hiện có trên bản vẽ
(defun PrintLayer (/ LayerList Table) 
 (while
   (if (not LayerList)
     (setq Table (tblnext "LAYER" 1))
     (setq Table (tblnext "LAYER"))
     )
   (setq LayerList (cons (cdr (assoc 2 Table)) LayerList))    
   )
 (setq LayerList (vl-sort LayerList '<))
 (print LayerList)
)