哪位大佬帮忙看看为什么用不了

书院扫地僧

出现这个错误:    选择替换后的图块图元:; error: unsupported argument type  ((0 . "INSERT"))      

注:代码非本人原创,在其它地方下载的

ludaweb

entsel错误
(setq        bl (entsel  (list '(0 . "INSERT"))))修改为
(setq        bl (entsel))
即可

书院扫地僧

ludaweb 发表于 2023-9-17 09:57
entsel错误
(setq        bl (entsel  (list '(0 . "INSERT"))))修改为
(setq        bl (entsel))

谢谢大佬，66666666

xyp1964

1. (defun c:tt ()
   
2.   "图块替换"
   
3.   (defun SubUpd (ename code newvalue)(entmod (subst (cons code newvalue) (assoc code (entget ename)) (entget ename))) (entupd ename))
   
4.   (princ "\n 选择需要替换的图块图元: ")
   
5.   (if (and (setq ss (ssget '((0 . "INSERT"))))
   
6.            (setq s0 (car (entsel "\n选择替换后的图块图块: ")))
   
7.            (=(cdr(assoc 0 (entget s0))) "INSERT")
   
8.            (setq bn (cdr (assoc 2 (entget s0))))
   
9.            (setq i -1)
   
10.       )
    
11.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
12.       (SubUpd s1 2 bn)
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt ()<br />   "图块替换"<br />   (defun SubUpd (ename code newvalue)(entmod (subst (cons code newvalue) (assoc code (entget ename)) (entget ename))) (entupd ename))<br />   (princ "\n 选择需要替换的图块图元: ")<br />   (if (and (setq ss (ssget '((0 . "INSERT"))))<br />            (setq s0 (car (entsel "\n选择替换后的图块图块: ")))<br />            (=(cdr(assoc 0 (entget s0))) "INSERT")<br />            (setq bn (cdr (assoc 2 (entget s0))))<br />            (setq i -1)<br />       )<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (SubUpd s1 2 bn)<br />     )<br />   )<br />   (princ)<br /> )

书院扫地僧

xyp1964 发表于 2023-9-17 13:53

不要这个，这个没什么用，属性值不能复制过来