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

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

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

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

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

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

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

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

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

小树，命令：xs



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

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

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

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

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

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

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

新太阳系动画，命令：TYX

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

复杂的不会，来简单的玩：


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

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

新作三维动画：直升飞机，命令：ZS
页: 3 4 5 6 7 8 9 10 11 12 [13] 14 15 16
查看完整版本: 让我们共同走进CAD的动画世界！新增-->时钟