图块重命名和图块替换

csharp

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

1. (defun c:tt (/ str e blkid)
   
2.   (if (setq str (getstring "\nInput Block Name: "))
   
3.     (while
   
4.       (setq e (car (xdrx_entsel "\nPick Insert: " '((0 . "INSERT")))))
   
5.        (setq blkid (cadr (xdrx_getpropertyvalue e "BlockTableRecord")))
   
6.        (if (tblsearch "Block" str)
   
7.          (xdrx_setpropertyvalue e "BlockTableRecord" str)
   
8.          (xdrx_setpropertyvalue blkid "Name" str)
   
9.        )
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    

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

守仁格竹GM

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

csharp

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

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

huishi302

学习了、、