关于局布块替换的问题.

xiagood

各位:
     您好!
     我是一个LISP初学者,写了一个局部块替换程序,但只能替换单个, 我想替换多个
怎么写都写不出来, 还有一个问题, 这个程序怎么会编译出错哦.
   局布块替换(不过只能单个地替换哦)
　　(defun C:RepB()
        (setvar  "cmdecho" 0)
                (setq Tobject (entsel))
                (setq Rdelete  (car Tobject))
                (if Rdelete
            (progn
                                (setq Robject (entget Rdelete))
                                (setq  InsertP   (cdr  (assoc 10 Robject)))
                                (setq  ScaleXYZ (cdr (assoc 41 Robject)))
                                (setq  Rot (cdr (assoc 50 Robject)))
                                (setq Bname (getsting "please input the Block Name:"))
                                (command  "-insert" Bname "scale" scaleXYZ Insertp Rot)
                                (command "erase" Tobject "")
                            )
                   )
                        (setvar "cmdecho" 1)
                        (princ)
                   )
                   )

meflying

替换多个是指循环选择要替换的块，输入新块替换，还是与选中块的块名相同的块都替换成需要的块？
替换单个块这样写：

2. 
   
3. (defun C:RepB ( / ent ents Bname)
   
4.   (setq ent (car (entsel)))
   
5.   (if ent
   
6.     (progn
   
7.       (setq ents (entget ent))
   
8.       (setq Bname (getstring "\n输入新块名:"))
   
9.       (setq ents (subst (cons 2 Bname) (assoc 2 ents) ents))
   
10.       (entmod ents)
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    
15. 
    

<br /> (defun C:RepB ( / ent ents Bname)<br />   (setq ent (car (entsel)))<br />   (if ent<br />     (progn<br />       (setq ents (entget ent))<br />       (setq Bname (getstring "\n输入新块名:"))<br />       (setq ents (subst (cons 2 Bname) (assoc 2 ents) ents))<br />       (entmod ents)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

xiagood

替换多个是指循环选择要替换的块，输入新块替换

meflying

这样，另，给你加了个记忆小功能

2. 
   
3. (defun C:RepB ( / ent ents Bname)
   
4.   (while (setq ent (car (entsel)))
   
5.     (progn
   
6.       (setq ents (entget ent))
   
7.       (if (not bn)
   
8.         (setq Bname (getstring "\n输入新块名:"))
   
9.         (progn
   
10.           (setq Bname (getstring (strcat "\n输入新块名<" bn ">:")))
    
11.           (if (= Bname "")
    
12.             (setq Bname bn)
    
13.           )
    
14.         )
    
15.       )
    
16.       (setq bn Bname)
    
17.       (setq ents (subst (cons 2 Bname) (assoc 2 ents) ents))
    
18.       (entmod ents)
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )

<br /> (defun C:RepB ( / ent ents Bname)<br />   (while (setq ent (car (entsel)))<br />     (progn<br />       (setq ents (entget ent))<br />       (if (not bn)<br />         (setq Bname (getstring "\n输入新块名:"))<br />         (progn<br />           (setq Bname (getstring (strcat "\n输入新块名<" bn ">:")))<br />           (if (= Bname "")<br />             (setq Bname bn)<br />           )<br />         )<br />       )<br />       (setq bn Bname)<br />       (setq ents (subst (cons 2 Bname) (assoc 2 ents) ents))<br />       (entmod ents)<br />     )<br />   )<br />   (princ)<br /> )

xiagood

谢谢

熊哥哥

meflying 谢谢了我也学到了