批量不同名的块替换成1个块

grs432

能否将附件中多个不同名的块替换成1个块。。

Lisphk

不配图不方便看{:soso_e144:}

grs432

Lisphk 发表于 2014-11-24 10:38
不配图不方便看

有附件图纸的。方便的话给看一下

st788796

entmod subst assoc 2

csharp

1. (defun c:tt (/ ss str)
   
2.   (if (and (setq ss (ssget '((0 . "insert"))))
   
3.            (setq str (getstring "\n输入新块名: "))
   
4.            (tblsearch "block" str)
   
5.       )
   
6.     (mapcar '(lambda (x)
   
7.                (xdrx_setpropertyvalue x "BlockTableRecord" str)
   
8.              )
   
9.             (xdrx_pickset->ents ss)
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    

(defun c:tt (/ ss str)<br />   (if (and (setq ss (ssget '((0 . "insert"))))<br />            (setq str (getstring "\n输入新块名: "))<br />            (tblsearch "block" str)<br />       )<br />     (mapcar '(lambda (x)<br />                (xdrx_setpropertyvalue x "BlockTableRecord" str)<br />              )<br />             (xdrx_pickset->ents ss)<br />     )<br />   )<br />   (princ)<br /> )<br />

Free-Lancer

1. (defun c:tt (/ str)
   
2.   (fy:clearcset)
   
3.   (if (and (ssget '((0 . "insert")))
   
4.            (setq str (getstring "\nNew BlockName: "))
   
5.            (tblsearch "block" str)
   
6.       )
   
7.     (vlax-for obj (fy:cset)
   
8.       (vla-put-name obj str)
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )
    

(defun c:tt (/ str)<br />   (fy:clearcset)<br />   (if (and (ssget '((0 . "insert")))<br />            (setq str (getstring "\nNew BlockName: "))<br />            (tblsearch "block" str)<br />       )<br />     (vlax-for obj (fy:cset)<br />       (vla-put-name obj str)<br />     )<br />   )<br />   (princ)<br /> )<br />

grs432

csharp 发表于 2014-11-24 11:38

有错误提示？？为什么！！

grs432

Free-Lancer 发表于 2014-11-24 12:24

可以使用，真是很感谢！这个在速度上可以优化吗？

st788796

grs432 发表于 2014-11-24 15:03
可以使用，真是很感谢！这个在速度上可以优化吗？

ssname 遍历 entmod 方法，不比api快, 比 vla 要快点

zxq0220

2. (defun c:tt (/ ss str i ent)
   
3.   (if (and (setq ss (ssget '((0 . "INSERT"))))
   
4.            (setq str (getstring "\nNew BlockName: "))
   
5.            (tblsearch "BLOCK" str)
   
6.       )
   
7.     (repeat (setq i (sslength ss))
   
8.       (setq ent (entget(ssname ss (setq i (1- i)))))
   
9.       (entmod (subst (cons 2 str) (assoc 2 ent) ent))
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    

(defun c:tt (/ ss str i ent)<br />   (if (and (setq ss (ssget '((0 . "INSERT"))))<br />            (setq str (getstring "\nNew BlockName: "))<br />            (tblsearch "BLOCK" str)<br />       )<br />     (repeat (setq i (sslength ss))<br />       (setq ent (entget(ssname ss (setq i (1- i)))))<br />       (entmod (subst (cons 2 str) (assoc 2 ent) ent))<br />     )<br />   )<br />   (princ)<br /> )<br />

grs432

zxq0220 发表于 2014-11-24 21:26

OK，，快好了好多呀！！！原来算法很重要！！多多学习。。

lliushaojiang

学习了！！！