复制下面的内容,粘帖到 acad.lsp 的最后
;画圆+多重复制(ProgramFancier)2011.8.21
(defun c:c()
(setq ss (ssget"i"))
(if (= ss nil)(txy)
(command "autosnap"63 "osmode"6079 "copy" ss "" "m"))(princ))
(defun txy( / pc k e r e1 r1)
(setvar"autosnap"63) ;; 极轴开(正交55)
(setvar"osmode"6079) ;; 极轴开对象追踪开对象捕捉开(全部16383)
(setq pc (getpoint "\n中心点:") k t)
(command ".CIRCLE" pc pause)
(while k (setq e (entlast))
(setq r (cdr (assoc 40 (entget e))))
(command ".CIRCLE" pc pause)
(setq e1 (entnext e))
(setq r1 (cdr (assoc 40 (entget e1))))
(if (equal r r1 0.0001) (setq k nil)))
(command "U" "l" "")
(princ))