让我们共同走进CAD的动画世界！新增-->时钟

hhc · 发表于 2005-6-11 10:47

本帖最后由作者于 2005-6-17 8:39:50 编辑

谢谢楼上的建议，不过那个彗星尾巴应该没反，刚才特意试了一下，彗星尾巴总是背向太阳，这是受太阳风吹而造成。你说的地球真正的行星是指月亮吧（确切说是卫星，不知你所指是不是这个意思），那最好也要加上，且绕地球旋转（只是太小，有点看不大清）。

hhc · 发表于 2005-6-13 14:22

本帖最后由作者于 2005-6-17 22:06:57 编辑

上次的“单摆”动画有点问题，通过最低点时有停顿现象，且周期不随绳长的变化而变化，现修改了一下。命令名：dan

紫云飞 · 发表于 2005-6-14 10:25

99 ，100楼程序我在晓东cad空间看过，挺有趣的！！

hhc · 发表于 2005-6-20 09:06

小树，命令：xs

xyp1964 · 发表于 2005-6-22 18:11

楼上的东东虽说不错，可是“人挪活，树挪死”，不能动！呵呵……

oyxx1023 · 发表于 2005-6-23 20:38

实用性不大.不过可以开阔人的思路

wyj_007 · 发表于 2005-6-27 15:31

好贴子,什么时候有空我也去搞CAD动画了,呵呵.

hhc · 发表于 2005-7-5 23:06

新太阳系动画，命令：TYX

小妹丁 · 发表于 2005-7-8 23:18

复杂的不会，来简单的玩： (DEFUN C:PTC (/ pt r an cir pg pn )
(SETQ PT (GETPOINT "\n点取一点："))
(setq R 10)
(setq an 0)
(command "circle" pt r "")
(setq cir (entlast))
(princ "\n用光标点击圆，击中有奖！")
(while cir
(setq pg (cadr (grread t 2 0)))
(if (<= (distance pg pt) (* 1.2 r))
(progn
(setq pn (polar pt an R))
(command "move" cir "" pt pn)
(setq cir (entlast))
(setq pt (polar pt an R))
(setq an (+ an (* 0.5 pi)))
(princ "要快啊！")
)
)
)
)
(princ "***ptc***")

hhc · 发表于 2005-7-11 20:22

新作三维动画：直升飞机，命令：ZS

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

让我们共同走进CAD的动画世界！新增-->时钟

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块