[原创]一个小程序

luyu9635

用来复制数字并递增1

(defun c:sz ()
  (setq a(nentsel "\n请选择一个数字:"))
  (setq adx(entget(car a)) adx1 (atoi(cdr(assoc 1 adx))))
  (setq p1(getpoint "\n请选择基点:"))
   (setq p2(getpoint p1 "\n请指定第二点:"))
  (while t
    (if (not p2) (exit))
    (setq adx1(1+ adx1))
    (vl-cmdf "copy" a "" ""  p1 p2 "")
    (setq adx(entget(entlast)))
    (setq adx (subst (cons 1 (itoa adx1)) (assoc 1 adx) adx))
    (entmod adx)
    (setq a (entlast))
    (setq  p1 p2)
    (setq p2(getpoint p1 "\n请指定第二点:"))
  
    )
      (princ)(print))

phoenixdjq

这个程序不适合2004及以下版本

因为2004以上版本和以上版本的copy 命令是不一样的

luyu9635

这个我倒没试过，哪里不一样呀