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

张世杰 · 发表于 2003-5-8 22:33:00

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

shicai · 发表于 2003-5-9 05:32:00

你是想要把以字符表示的数码加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 · 发表于 2003-5-9 10:20:00

转换程序，哪位给该一下，就是如果已经运行了命令，想终止，但再选文字时，会将其加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)
)

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

发表回复

精选推荐

浏览过的版块