动态的万花筒

荒野孤行 · 发表于 2015-5-24 22:52

本帖最后由荒野孤行于 2015-5-24 23:57 编辑

请新建一份新的图档哦！效果请见图示：
重要提示：程序没把AutoCAD卡死的情况下，把鼠标点到AutoCAD窗口的外面就可以看到动态效果了。
丢上另一个连接：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=39415&highlight=%CD%F2%BB%A8%CD%B2

;;;;;*********万花筒程序开始*********
(defun c:wht ()
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (princ "★功能：绘制万花筒.\n")
  (while T
(setq i 0
      n 122
)
;;;(setvar "cmdecho" 0)
(command "erase" "all" "")
(repeat n
   (setq i (1+ i))
   (command "color" (itoa (* i 2)))
   (command "CIRCLE" '(0 0) (* i 5) "")
   (command "delay" "10")
   (command "ZOOM" "E")
)
  )
;;;
  (setvar "osmode" 15359)
  (princ)
)
;;;;;*********万花筒程序结束**********

depgfdepgf · 发表于 2015-5-25 08:21

谢谢分享，支持学习了

434939575 · 发表于 2015-5-25 09:05

参观学习下！

819534890 · 发表于 2015-5-25 09:19

参观学习，谢谢分享

ynhh · 发表于 2015-5-25 09:33

感觉很好玩啊

ynhh · 发表于 2015-5-25 09:34

感觉很好玩啊

用户3766035971 · 发表于 2015-5-25 13:31

学习学习！！

sachindkini · 发表于 2015-5-25 15:46

dear sir,
nice

qyming · 发表于 2015-5-25 16:21

万花筒…………

lidaxiu · 发表于 2015-5-25 19:29

恩，这个应该是很早的程序了

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

[源码] 动态的万花筒

本帖子中包含更多资源

相关帖子