图块替换

gogozb

2. (defun c:inbt (/ sb en en1 i m name ss)
   
3.   (setq i 0)
   
4.   (if (and (setq sb (entsel "\nSelect source Block :"))
   
5.      (setq en (entget (car sb)))
   
6.      (= (cdr (assoc 0 en)) "INSERT")
   
7.       )
   
8.     (progn
   
9.        (setq ss (ssget '((0 . "INSERT"))))
   
10.     (repeat (sslength ss)
    
11.       (setq name (ssname ss i))
    
12.       (setq en1 (entget name))
    
13.       (setq m (cdr (assoc 2 en1)))
    
14.       (if  (= m "要替换的块名")
    
15.         (entmod (subst (assoc 2 en) (assoc 2 en1) en1))
    
16.       )
    
17.       (setq i (1+ i))
    
18.     )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )

(defun c:inbt (/ sb en en1 i m name ss)<br />   (setq i 0)<br />   (if (and (setq sb (entsel "\nSelect source Block :"))<br />      (setq en (entget (car sb)))<br />      (= (cdr (assoc 0 en)) "INSERT")<br />       )<br />     (progn<br />        (setq ss (ssget '((0 . "INSERT"))))<br />     (repeat (sslength ss)<br />       (setq name (ssname ss i))<br />       (setq en1 (entget name))<br />       (setq m (cdr (assoc 2 en1)))<br />       (if  (= m "要替换的块名")<br />         (entmod (subst (assoc 2 en) (assoc 2 en1) en1))<br />       )<br />       (setq i (1+ i))<br />     )<br />     )<br />   )<br />   (princ)<br /> )

烟盒迷唇

不要老是发别人的作品，要发自己写的代码。

VBALISPER

没有文字说明

e2002

实际上还需要增加对DynamicBlock的支持。

F海市蜃楼

貌似没用..........