Hỏi: Đọc tên block bằng lisp

[duy782006 1559]

-Mình có block chứa att và nhúc nhích được. Khi dùng lệnh list của cad thì có 2 tên:

   Block Name: "NutGT"
   Anonymous Name: "*U1314"

-Trong đó cái  "NutGT" là cái mình mong nuốn đọc được bằng lisp nhưng nó chỉ được cái  "*U1314".

-Lisp như sau.

(defun c:tb () 
(princ (cdr (assoc 2 (entget (car (entsel))))))
)

-Bác nào làm cho thèn lisp đọc ra cái "NutGT" với

blduy.dwg

[quocmanh04tt 635]

Thớt dùng của LM đi!: http://lee-mac.com/effectivename.html