AutoLISP切圆动画

AutoLISP切圆动画，在已知圆外绘制一外切圆，并逆时针运动，代码如下。

(defun c:test()
  (setvar "cmdecho" 0)
  (setq en (car (entsel "\n选取一圆心：")))
  (setq cen2 (getpoint "\n切点圆："))
  (princ "\n按选键盘任意键可转动切圆,[ENTER]结束……")
  (setq endata (entget en))
  (setq cen1 (cdr (assoc 10 endata)))
  (setq rr1 (cdr (assoc 40 endata)))
  (setq dd (distance cen1 cen2))
  (setq rr2 (abs (- dd rr1)))
  (command "circle" cen2 rr2)
  (setq en2 (entlast))
  (setq k 1)
  (while (/= k 13)
    (command "rotate" en2 "" cen1 10)
    (setq k (cadr (grread)))
    )
  (prin1)
  )

代码完。

CAD是可以做动画的。