bai2000 发表于 2019-5-7 17:14:07

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

本帖最后由 bai2000 于 2019-5-7 17:23 编辑

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

下边的程序来着：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 发表于 2019-5-7 17:55:57

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

bai2000 发表于 2019-5-7 18:13:13

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

yangchao2005090 发表于 2019-8-14 12:19:02

同求同求同求同求

3278 发表于 2023-1-9 17:47:24

http://bbs.mjtd.com/thread-183286-1-1.html无意间发现这个应该就是版主要的
页: [1]
查看完整版本: 发一个点击图块把图块名改写到文字上的程序，并求相反的写法