我想COPY，并CHANGE，怎么在AUTOLISP中实现？

张世杰

比如：有“01”这个数字，我把它COPY5次，变为“02”“03”“04”“05”，怎么办？谢谢。

shicai

你是想要把以字符表示的数码加1吗? 请参考:
(defun c:test (aa)
  (setq bb (atoi aa))
  (if (< bb 10)
    (setq cc (strcat "0" (itoa (1+ bb))))
    (setq cc (itoa (1+ bb)))
  )
  cc
  );defun

meflying

转换程序，哪位给该一下，就是如果已经运行了命令，想终止，但再选文字时，会将其加1[br](defun Getext(sname / sinf str str2)
  (setq sinf (entget sname))
  (setq str (cdr (assoc 1 sinf)))
  (setq str (strcase str 0))
  (setq str (vl-string-trim "{}" str))
  (setq str (strcat "|" str))
  (if (= (type (read str)) 'SYM)
    (progn
      (setq str2 (vl-symbol-name (read str)))
      (if (/= (strlen str) (strlen str2))
        (progn
          (setq str2 (strcase str2 0))
          (setq str (vl-string-left-trim str2 str))
          (setq str (vl-string-left-trim ";" str))
        )
      )       
    )
  )
  (vl-string-left-trim "|" str)
)

(defun c:copyNum(/ num numinf num1 num2 num3 n ent zero)
  (setq ent (entsel))
  (command "_.copy" ent pause pause pause)
  (setq num (entlast))
  (setq numinf (entget num))
  (setq num1 (cdr (assoc 1 numinf)))
  (setq n (vl-string-position (ascii ";") num1))
  (setq num2 (getext num))
  (if (= (substr num2 1 1) "0")
    (setq zero t)
    (setq zero nil)
  )
  (setq num2 (read num2))
  (if (= (type num2) 'INT)
    (progn
      (setq num3 (1+ num2))
      (if (and zero (< num3 10))
        (setq num3 (strcat "0" (rtos num3)))
        (setq num3 (rtos num3))
      )
      (if (and zero (< num2 10))
        (setq num2 (strcat "0" (rtos num2)))
        (setq num2 (rtos num2))
      )
      (setq num1 (vl-string-subst num3  num2 num1 n))
    )
    (progn
      (princ "Select the Number!")
      (entdel num)
    )
  )
  (setq numinf (subst (cons 1 num1) (assoc 1 numinf) numinf))
  (entmod numinf)
  (entupd num)  
  (princ)
)