Hàm Lấy Tên Layer Khi Chọn Đối Tượng

[hatesale 1]

Em chào các bác!

Các bác giúp em viết 1 cái hàm lấy tên layer khi chọn đối tượng với nhé. em cảm ơn

[duy782006 1.549]

(Defun duy:d_layer (/ kqlayer dchon)

(princ "\nChon doi tuong chua layer")

(setq dchon (entsel))

(while

(null dchon)

(princ "\nChon doi tuong khong thanh cong. Chon doi tuong chua layer!")

(setq dchon (entsel))

)

(setq kqlayer (cdr (assoc 8 (entget (car dchon)))))

kqlayer)

[Tr.CongSon 42]

Hàm entsel có dòng nhắc mà a Duy ^^

Chắc không cần princ ở dòng đầu a hì .Hi

Mạn phép a, Em sửa lại như vậy .

 

(Defun duy:d_layer (/ dchon)
(while
(null (setq dchon (entsel"\nCh\U+1ECDn \U+0111\U+1ED1i t\U+01B0\U+1EE3ng ch\U+1EE9a c\U+1EA7n l\U+1EA5y Layer: ")))
(princ "\nCh\U+1ECDn l\U+1ED7i.Vui l\U+00F2ng ch\U+1ECDn l\U+1EA1i.")
)
(cdr (assoc 8 (entget (car dchon))))
)

[hatesale 1]

cảm ơn các bác. Em làm được rồi