自己写的图块替换插件，有没有大侠们帮忙找一下错误

wutao8282

2. (defun c:blkreplace (/ oldblk newblk ss cnt)
   
3.   (setq oldblk (car (entsel "
   
4. 选择要替换的原图块：")))
   
5.   (if oldblk
   
6.     (progn
   
7.       (setq newblk (car (entsel "
   
8. 选择新图块：")))
   
9.       (if newblk
   
10.         (progn
    
11.           (setq ss (ssget "X" (list (cons 0 "INSERT") (cons 2 (cdr (assoc 2 (entget oldblk)))))))
    
12.           (setq cnt 0)
    
13.           (if ss
    
14.             (progn
    
15.               (repeat (sslength ss)
    
16.                 (setq ent (ssname ss (setq i (1+ i))))
    
17.                 (if (= oldblk (cdr (assoc 2 (entget ent))))
    
18.                   (progn
    
19.                     (entmod (subst (cons 2 (cdr (assoc 2 (entget newblk)))) (assoc 2 (entget ent)) (entget ent)))
    
20.                     (setq cnt (1+ cnt))
    
21.                   )
    
22.                 )
    
23.               )
    
24.               (princ (strcat "
    
25. 共替换了 " (itoa cnt) " 个图块。"))
    
26.             )
    
27.             (princ "
    
28. 未找到任何符合条件的图块。"))
    
29.         )
    
30.         (princ "
    
31. 未选择新图块。"))
    
32.     )
    
33.     (princ "
    
34. 未选择原图块。"))
    
35.   (princ)
    
36. )
    

(defun c:blkreplace (/ oldblk newblk ss cnt)<br />   (setq oldblk (car (entsel "<br /> 选择要替换的原图块：")))<br />   (if oldblk<br />     (progn<br />       (setq newblk (car (entsel "<br /> 选择新图块：")))<br />       (if newblk<br />         (progn<br />           (setq ss (ssget "X" (list (cons 0 "INSERT") (cons 2 (cdr (assoc 2 (entget oldblk)))))))<br />           (setq cnt 0)<br />           (if ss<br />             (progn<br />               (repeat (sslength ss)<br />                 (setq ent (ssname ss (setq i (1+ i))))<br />                 (if (= oldblk (cdr (assoc 2 (entget ent))))<br />                   (progn<br />                     (entmod (subst (cons 2 (cdr (assoc 2 (entget newblk)))) (assoc 2 (entget ent)) (entget ent)))<br />                     (setq cnt (1+ cnt))<br />                   )<br />                 )<br />               )<br />               (princ (strcat "<br /> 共替换了 " (itoa cnt) " 个图块。"))<br />             )<br />             (princ "<br /> 未找到任何符合条件的图块。"))<br />         )<br />         (princ "<br /> 未选择新图块。"))<br />     )<br />     (princ "<br /> 未选择原图块。"))<br />   (princ)<br /> )<br />

我是新手，求大神指点，提示参数类型错误,Numberp：nil

andyding

wutao8282 发表于 2023-6-27 15:06
谢谢，但是似乎旁边会有漏替换几个图块，我自己再研究一下，感谢

2. (defun c:blkreplace (/ ENT I NEWBLK OLDBLK SS)
   
3.   (setq oldblk (car (entsel "\n选择要替换的原图块：")))
   
4.   (if oldblk
   
5.     (progn
   
6.       (setq newblk (car (entsel "\n选择新图块：")))
   
7.       (if newblk
   
8.         (progn
   
9.           (setq
   
10.             ss (ssget "X"
    
11.                       (list (cons 0 "INSERT")
    
12.                             (cons 2 (cdr (assoc 2 (entget oldblk))))
    
13.                       )
    
14.                )
    
15.           )
    
16.           (setq i 0)
    
17.           (if ss
    
18.             (progn
    
19.               (repeat (sslength ss)
    
20.                 (setq ent (ssname ss i))
    
21.                 (setq
    
22.                   subss        (subst
    
23.                           (assoc 2 (entget newblk))
    
24.                           (assoc 2 (entget ent))
    
25.                           (entget ent)
    
26.                         )
    
27.                 )
    
28.                 (entmod subss)
    
29.                 (entupd (cdr (assoc -1 subss)))
    
30.                 (setq i (1+ i))
    
31.               )
    
32.               (princ (strcat "\n共替换了 " (itoa i) " 个图块。"))
    
33.             )
    
34.             (princ "\n未找到任何符合条件的图块。")
    
35.           )
    
36.         )
    
37.         (princ "\n未选择新图块。")
    
38.       )
    
39.     )
    
40.     (princ "\n未选择原图块。")
    
41.   )
    
42.   (princ)
    
43. )

(defun c:blkreplace (/ ENT I NEWBLK OLDBLK SS)<br />   (setq oldblk (car (entsel "\n选择要替换的原图块：")))<br />   (if oldblk<br />     (progn<br />       (setq newblk (car (entsel "\n选择新图块：")))<br />       (if newblk<br />         (progn<br />           (setq<br />             ss (ssget "X"<br />                       (list (cons 0 "INSERT")<br />                             (cons 2 (cdr (assoc 2 (entget oldblk))))<br />                       )<br />                )<br />           )<br />           (setq i 0)<br />           (if ss<br />             (progn<br />               (repeat (sslength ss)<br />                 (setq ent (ssname ss i))<br />                 (setq<br />                   subss        (subst<br />                           (assoc 2 (entget newblk))<br />                           (assoc 2 (entget ent))<br />                           (entget ent)<br />                         )<br />                 )<br />                 (entmod subss)<br />                 (entupd (cdr (assoc -1 subss)))<br />                 (setq i (1+ i))<br />               )<br />               (princ (strcat "\n共替换了 " (itoa i) " 个图块。"))<br />             )<br />             (princ "\n未找到任何符合条件的图块。")<br />           )<br />         )<br />         (princ "\n未选择新图块。")<br />       )<br />     )<br />     (princ "\n未选择原图块。")<br />   )<br />   (princ)<br /> )

wutao8282

andyding 发表于 2023-6-27 16:32

已经完美解决，谢谢大佬！

start4444

i 还没有设定?

springwillow

2. ;图块替换
   
3. (defun C:tkth ( / ss BlkName ents i)
   
4.    (setvar "osmode" 0)
   
5.    (princ "\n请选择作为源块的图块:")
   
6.    (setq ss (ssget ":S"(list (cons 0 "INSERT"))))
   
7.    (setq ent (entget (ssname ss 0)))
   
8.    (setq BlkName (cdr (assoc 2 ent)))
   
9.    (princ "\n请选择将替换的图块:")
   
10.    (setq ss (ssget (list (cons 0 "INSERT"))))
    
11.    (if ss
    
12.        (progn
    
13.            (setq i 0)
    
14.            (repeat (sslength ss)
    
15.   (setq ents (entget (ssname ss i)))
    
16.   (setq ents (subst (cons 2 BlkName) (assoc 2 ents) ents))
    
17.   (entmod ents)
    
18.   (setq i (1+ i))
    
19.            )
    
20.        )
    
21.    )
    
22.    (princ)
    
23. )

;图块替换<br /> (defun C:tkth ( / ss BlkName ents i)<br />    (setvar "osmode" 0)<br />    (princ "\n请选择作为源块的图块:")<br />    (setq ss (ssget ":S"(list (cons 0 "INSERT"))))<br />    (setq ent (entget (ssname ss 0)))<br />    (setq BlkName (cdr (assoc 2 ent)))<br />    (princ "\n请选择将替换的图块:")<br />    (setq ss (ssget (list (cons 0 "INSERT"))))<br />    (if ss<br />        (progn<br />            (setq i 0)<br />            (repeat (sslength ss)<br />   (setq ents (entget (ssname ss i)))<br />   (setq ents (subst (cons 2 BlkName) (assoc 2 ents) ents))<br />   (entmod ents)<br />   (setq i (1+ i))<br />            )<br />        )<br />    )<br />    (princ)<br /> )

wutao8282

springwillow 发表于 2023-6-27 11:38

和我这个的要求不一样。我是要选择被替换的图块后，自动将当前布局空间中所有被替换图块都全部替换，不需要选择对象替换区域

vormittag

第15行 (setq i (1+ i)) 那个i 没有初始值，(1+ i) 出错。

btw：这种重复造轮子的事为啥要干啊，expresstools 不是有 BlockReplace 的功能么？
那个是把所有指定图块都进行替换（一般很少有这种需求，都是替换某一两个图块），正好合你意，你还去自己写一个干啥？

andyding

(defun c:blkreplace (/ CNT ENT I NEWBLK OLDBLK SS)
  (setq oldblk (car (entsel "\n选择要替换的原图块：")))
  (if oldblk
    (progn
      (setq newblk (car (entsel "\n选择新图块：")))
      (if newblk
        (progn
          (setq
            ss (ssget "X"
                      (list (cons 0 "INSERT")
                            (cons 2 (cdr (assoc 2 (entget oldblk))))
                      )
               )
          )
          (setq        cnt 0
                i -1
          )
          (if ss
            (progn
              (repeat (sslength ss)
                (setq ent (ssname ss (setq i (1+ i))))
                (if (= (cdr (assoc 2 (entget oldblk)))
                       (cdr (assoc 2 (entget ent)))
                    )
                  (progn
                    (entmod
                      (subst (cons 2 (cdr (assoc 2 (entget newblk))))
                             (assoc 2 (entget ent))
                             (entget ent)
                      )
                    )
                    (setq cnt (1+ cnt))
                  )
                )
              )
              (princ (strcat "\n共替换了 " (itoa cnt) " 个图块。"))
            )
            (princ "\n未找到任何符合条件的图块。")
          )
        )
        (princ "\n未选择新图块。")
      )
    )
    (princ "\n未选择原图块。")
  )
  (princ)
)

wutao8282

vormittag 发表于 2023-6-27 13:42
第15行 (setq i (1+ i)) 那个i 没有初始值，(1+ i) 出错。

btw：这种重复造轮子的事为啥要干啊，express ...

我就是要一次将全部图块替换，

wutao8282

andyding 发表于 2023-6-27 13:56
(defun c:blkreplace (/ CNT ENT I NEWBLK OLDBLK SS)
  (setq oldblk (car (entsel "\n选择要替换的原图 ...

谢谢，但是似乎旁边会有漏替换几个图块，我自己再研究一下，感谢