[求助]修改文字内容，出现参数错误！

ZHAOWCHANG

(defun c:gz(/)
  (setq sel (ssget "x" '((0 . "text"))))
    (SETQ STGS (SSLENGTH SEL))
    (SETQ I 0)
    (REPEAT STGS
 (SETQ STNAME (SSNAME SEL I))
 (SETQ ST (ENTGET STNAME))
 (SETQ point1 (ASSOC 1 ST))
 (SETQ z1 (cdr point1) z2 (atof z1) z2 (+ z2 10.02))
        (setq z3 (rtos z2 2 2))
 (setq point1 (subst z3 (cdr point1) point1))；在此提示参数类型错误
 (SETQ ST (SUBST point1 (ASSOC 1 ST) ST ))
 (ENTMOD ST)
 (SETQ I (+ I 1))
    )

)

谢谢

ZZXXQQ

3. (defun c:gz(/)
4. (setq sel (ssget "x" '((0 . "text"))))
5. (SETQ STGS (SSLENGTH SEL))
6. (SETQ I 0)
7. (REPEAT STGS
8.   (SETQ STNAME (SSNAME SEL I))
9.   (SETQ ST (ENTGET STNAME))
10.   (SETQ point1 (ASSOC 1 ST))
11.   (SETQ z1 (cdr point1) z2 (atof z1) z2 (+ z2 10.02))
12.   (setq z3 (rtos z2 2 2))
13.   (setq st (subst (cons 1 z3) point1 st))
14.   (ENTMOD ST)
15.   (SETQ I (+ I 1))
16. )
17. (princ)
18. )

(defun c:gz(/) (setq sel (ssget "x" '((0 . "text")))) (SETQ STGS (SSLENGTH SEL)) (SETQ I 0) (REPEAT STGS   (SETQ STNAME (SSNAME SEL I))   (SETQ ST (ENTGET STNAME))   (SETQ point1 (ASSOC 1 ST))   (SETQ z1 (cdr point1) z2 (atof z1) z2 (+ z2 10.02))   (setq z3 (rtos z2 2 2))   (setq st (subst (cons 1 z3) point1 st))   (ENTMOD ST)   (SETQ I (+ I 1)) ) (princ) )

ZHAOWCHANG

谢谢斑竹