Xin chào các bạn . Nhờ các bạn biết về lisp xem giúp . xin cám ơn

[NguyenMinh88 5]

(defun c:layren ( / enx obj old new )
    (setq old "Layer_to_be_Renamed"
          new "New_Layer_Name"
    )
    (if (and (setq obj (tblobjname "layer" old))
             (setq enx (entget obj))
        )
        (entmod (subst (cons 2 new) (assoc 2 enx) enx))
    )
    (princ)
)

mình tìm được lisp này trên mạng của Lee_maC . nhưng không sử dụng được . ( không biết phải lisp đổi tên layer không )

Mình mong muốn lisp chọn đối tượng và đổi tên layer của đối tượng đó . không tạo ra layer mới

Xin cám ơn các bạn đã giúp đỡ ( mình dùng lệnh rename trongcad thi hơi lâu )

 

[cuongtk2 441]

(defun c:test ( / ent layer)

(setq layer "To layer" ; tên layer muốn đổi đến

ent (entget (car (entsel "\nChon doi tuong:"))))

(entmod (subst (cons 8 layer) (assoc 8 ent) ent))

(princ)

)

[NguyenMinh88 5]

xin cám ơn bạn @cuongtk2. chỉ đổi tên layer thôi được không bạn ? ví dụ layer : M_Truc thành A_Grid

giống lệnh rename á ! xin cám on.

[cuongtk2 441]

(defun c:layren ( / enx obj old new )
    (setq old (cdr (assoc 8 (entget (car (entsel "\nChon doi tuong lay layer:")))))
          new (getstring "\nTen moi:")
    )
    (if (and (setq obj (tblobjname "layer" old))
             (setq enx (entget obj))
        )
        (entmod (subst (cons 2 new) (assoc 2 enx) enx))
    )
    (princ)
)

;; mục tiêu chọn đối tượng để lấy layer, đổi tên  layer đó.

[NguyenMinh88 5]

xin cám ơn bạn @cuongtk2