列表不能被替换

Comming

不知那里出了问题,列表不能替换,烦请大家指点,谢谢!

(defun c:dq()
  (setvar "cmdecho"0)
  (setq n 0)
  (setq txt-x(entget(car(entsel))))
  (setq x(cadr(assoc 10 txt-x)))
  (setq ss(ssget))
  (repeat (SSLENGTH ss)
    (setq en(ssname ss n))
    (setq data-old(assoc 10 (entget en)))
    (setq y-old(cddr data-old))
    (setq stype(cdr(assoc 0 (entget en))))
    (if (= stype "TEXT")(sub-cons))
  )
  )
(defun sub-cons()
  (setq xyz(cons x y-old))
  (setq new-id(cons 10 xyz))
  (setq new-data(subst new-id data-old new-data))
  (entmod new-data)
  )

自贡黄明儒

(setq xyz(cons x y-old))
改为(setq xyx (list x y-old))

Comming

自贡黄明儒 发表于 2013-12-11 10:37
(setq xyz(cons x y-old))
改为(setq xyx (list x y-old))

大哥,还是不行

叮咚

2. (defun c:dq()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq n 0)
   
5.   (setq txt-x(entget(car(entsel))))
   
6.   (setq x (assoc 10 txt-x))
   
7.   (setq ss(ssget (list '(0 . "text"))))
   
8.   (repeat (SSLENGTH ss)
   
9.     (setq en (ssname ss n) n (1+ n))
   
10.     (setq data-old (assoc 10 (entget en)))
    
11.   (setq new-data (subst x data-old (entget en)))
    
12.   (entmod new-data)
    
13.   )
    
14.           (setvar "cmdecho" 1)
    
15.                 (princ)
    
16. )

(defun c:dq()<br />   (setvar "cmdecho" 0)<br />   (setq n 0)<br />   (setq txt-x(entget(car(entsel))))<br />   (setq x (assoc 10 txt-x))<br />   (setq ss(ssget (list '(0 . "text"))))<br />   (repeat (SSLENGTH ss)<br />     (setq en (ssname ss n) n (1+ n))<br />     (setq data-old (assoc 10 (entget en)))<br />   (setq new-data (subst x data-old (entget en)))<br />   (entmod new-data)<br />   )<br />           (setvar "cmdecho" 1)<br />                 (princ)<br /> )