明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 9710|回复: 60

[源码] 动画 → 撞壁回弹球

  [复制链接]
发表于 2015-5-25 20:08:01 | 显示全部楼层 |阅读模式
本帖最后由 荒野孤行 于 2015-5-25 20:11 编辑

能让你的私人定制工具箱更好玩。
请看图片动画演示:

  1. ;;;****程序开始*****
  2. (defun c:ft ()
  3.   (setvar "cmdecho" 0)
  4.   (setvar "osmode" 0)
  5.   (princ "\n提示:程序开始...按Esc键可结束.\n")
  6.   (setq dx (getvar "screensize"))
  7.   (setq kgb (/ (car dx) (cadr dx)))
  8.   (setq hd (getvar "viewsize"))
  9.   (setq vcen (getvar "viewctr"))
  10.   (setq        a (list        (- (car vcen) (* hd kgb 0.5))
  11.                 (- (cadr vcen) (/ hd 2))
  12.           )
  13.   )
  14.   (setq b (list (+ (car a) (* hd kgb)) (+ (cadr a) hd)))
  15.   (setq ang 1)
  16.   (setq pcen vcen)
  17.   (setq r (/ (abs (- (cadr a) (cadr b))) 10))
  18.   (setq        a (list (+ (car a) r) (+ (cadr a) r))
  19.         b (list (- (car b) r) (- (cadr b) r))
  20.   )
  21.   (setq col 1)
  22.   (command "color" col)
  23.   (command "donut" 0 (* 2 r) pcen "")
  24.   (setq obj (entlast))
  25.   (while T
  26.     (command "move" obj "" pcen (polar pcen ang (/ r 100)))
  27.     (setq pcen (polar pcen ang (/ r 100)))
  28.     (if        (or (> (car pcen) (car b))
  29.             (< (car pcen) (car a))
  30.             (> (cadr pcen) (cadr b))
  31.             (< (cadr pcen) (cadr a))
  32.         )
  33.       (progn
  34.         (setq pcen0 (polar pcen (+ ang pi) (/ r 100)))
  35.         (cond ((inters pcen pcen0 a (list (car a) (cadr b)))
  36.                (setq ang (- pi ang))
  37.               )
  38.               ((inters pcen pcen0 b (list (car b) (cadr a)))
  39.                (setq ang (- pi ang))
  40.               )
  41.               (t (setq ang (- (* 2 pi) ang)))
  42.         )
  43.         (setq col (1+ col))
  44.         (if (= 7 col)
  45.           (setq col 1)
  46.         )
  47.         (command "change" obj "" "p" "c" col "")
  48.       ))))
  49. ;;;后面还有,想看请回复。

;;;*****程序结束*****
其实源码已经全丢出去了,为了避免你们只看不回复,所以我才隐藏的,哈!!!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2016-9-29 19:47:06 | 显示全部楼层
啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊
发表于 2018-1-13 19:57:31 | 显示全部楼层
谢谢分享         
发表于 2019-8-12 09:52:00 | 显示全部楼层
感谢分享,想看下有没有图元接触后反馈的函数
发表于 2015-5-25 20:39:59 来自手机 | 显示全部楼层
看起来很不错的东西,顶起来。
发表于 2015-5-25 21:00:32 | 显示全部楼层
xuexi  bucuo!
发表于 2015-5-26 08:29:41 | 显示全部楼层
看下什么效果
发表于 2015-5-26 08:38:36 | 显示全部楼层
好玩,有创意!
发表于 2015-5-26 08:54:24 | 显示全部楼层
  最近源码发的猛 啊
发表于 2015-5-26 08:57:12 | 显示全部楼层
哈哈  测试了下效果  一半电脑承受不了
发表于 2015-5-26 08:59:37 | 显示全部楼层
感觉你很牛啊
发表于 2015-5-26 12:57:12 | 显示全部楼层
好像有人用这个做过屏保吧
发表于 2015-5-26 17:43:41 | 显示全部楼层
kkkkkkkkkkkkkkkk
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-23 08:15 , Processed in 0.212068 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表