发一个点击图块把图块名改写到文字上的程序，并求相反的写法

bai2000

       发一个点击图块把图块名改写到文字上的程序，求一个选取和块名一致的单行文字自动调出该图名的块（图纸中有该图名的图块）并适当的位置插入

下边的程序来着：http://bbs.mjtd.com/thread-175685-1-1.html  的vectra
(defun c:bkm (/ l1 l2 dxf)
  (if (and (princ "选择块:")
           (while (not l1)
             (setq l1 (ssget ":E:S" '((0 . "INSERT"))))
           )
           (princ "选择用于显示块名的文字对象:")
           (while (not l2)
             (setq l2 (ssget ":E:S" '((0 . "TEXT"))))
           )
           (setq l1  (ssname l1 0)
                 l2  (ssname l2 0)
                 dxf (entget l2)
                 dxf (subst (cons 1 (cdr (assoc 2 (entget l1)))) (assoc 1 dxf) dxf)
           )

      )
    (entmod dxf)
  )
  (princ)
)

taoyi0727

http://bbs.mjtd.com/thread-101548-1-1.html

bai2000

楼上的是改图名的程序，我是要：选择图名的文字自动查找并插入同文字名的图块，最好图名和图块连线标识

yangchao2005090

同求同求同求同求

3278

http://bbs.mjtd.com/thread-183286-1-1.html无意间发现这个应该就是版主要的