感谢明经,感谢各位大师们,感谢,感谢,感谢,感谢,感谢,,,,,,,
终于弄好了,左右键可以实现带基点单次与多重复制,也省了选基点
(defun c:c()
(setq ss (ssget"i"))
(if (= ss nil)(txy)(cishu)))
(defun cishu()
(setq cishu? (getpoint "\n左键1次,右键连续"))
(setq gbwz (grread 3));光标位置
(if (member (car gbwz) '(3 5))
(setq od (cadr gbwz)));鼠标位置
(if cishu?
(command "autosnap"63 "osmode"6079 "copybase" od ss "" "copy" ss "" od) ;左键
(command "autosnap"63 "osmode"6079 "copybase" od ss "" "copy" ss "" "m" od);右键
)(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))