[编程交流] 更改编号

(defun c:Test (/ sel doc)
 ;;        Tharwat . Date: 14.Sep.2014        ;;
 (if (setq sel (ssget "_:L" '((0 . "TEXT,MTEXT")(1 . "*#*"))))
   (progn
     (vla-startundomark (setq doc (vla-get-activedocument (vlax-get-acad-object))))
     ((lambda (i / sn st e)
        (while (setq sn (ssname sel (setq i (1+ i))))
          (if (numberp (read (setq st (cdr (assoc 1 (setq e (entget sn)))))))
            (entmod (subst (cons 1 (rtos (* (atof st) 100.) 2 3))
                           (assoc 1 e)
                           e
                    )
            ) ) ) ) -1 )
     (vla-endundomark doc)
   )
 )
 (princ)
)(vl-load-com)