论坛 › XDRX_API应用 › 图块重命名和图块替换

csharp 发表于 2015-1-31 18:32:47

图块重命名和图块替换

图块重命名和图块替换合一，没有名称时图块重命名，有则替换，未测试匿名块

(defun c:tt (/ str e blkid)
(if (setq str (getstring "\nInput Block Name: "))
    (while
      (setq e (car (xdrx_entsel "\nPick Insert: " '((0 . "INSERT")))))
       (setq blkid (cadr (xdrx_getpropertyvalue e "BlockTableRecord")))
       (if (tblsearch "Block" str)
       (xdrx_setpropertyvalue e "BlockTableRecord" str)
       (xdrx_setpropertyvalue blkid "Name" str)
       )
    )
)
(princ)
)

守仁格竹GM 发表于 2015-2-1 10:32:47

只更改一个块的块名呢，动态块

csharp 发表于 2015-2-1 10:59:57

守仁格竹GM 发表于 2015-2-1 10:32
只更改一个块的块名呢，动态块

动态块应该也可以，修改源块名

huishi302 发表于 2015-2-2 15:56:06

学习了、、

jdzhqddzh 发表于 2026-2-17 16:10:39

学习了、、

查看完整版本: 图块重命名和图块替换