无聊做了一个动画:彩虹圆

langjs · 发表于 2012-6-14 21:59:16

本帖最后由 langjs 于 2012-6-14 22:51 编辑

;;趣味动画:彩虹圆 by：langjs
(defun c:aa (/ i j ss u)
  (setvar "cmdecho" 0)
  (setq i 1 j 1 ss (ssadd))
  (while t
(entmake (list '(0 . "CIRCLE") (cons 62 j) (cons 10 '(0.0 0.0 0.0)) (cons 40 i)))
(setq ss (ssadd (entlast) ss) i (1+ i))
(if (= (rem i 10) 0)(setq j (1+ j)  u (command "zoom" "E")))
(if (= (rem i 600) 0) (setq i 1 j 1 u (command "erase" ss "") ss (ssadd)))
(if (= j 8)(setq j 1))
(redraw)
  )
  (princ)
)

功夫佬 · 发表于 2012-6-14 22:22:08

出神入化

429014673 · 发表于 2012-6-14 22:48:40

可占CPU了

革天明 · 发表于 2012-6-14 23:08:53

跟VBA的例子差不多

xyz2009xyz · 发表于 2012-6-15 08:03:13

看着发晕

raimo · 发表于 2012-6-15 08:14:41

换成黑白黑白的，可以用来催眠啊

账号		自动登录	找回密码
密码			注册

无聊做了一个动画:彩虹圆

本帖子中包含更多资源