【收藏】LISP写的动画，越来越强，你有收藏么？

nonsmall · 发表于 2007-8-13 19:13:00

本帖最后由 nonsmall 于 2013-5-13 11:44 编辑

我写个简单的做个引子。谁有好的收藏没有？

(print "运行命令j")
(defun c:j (/ b ang1 a c s ss)
(setvar "cmdecho" 0)
(setq b '(0 0))
(setq ang1 1)
(setq a 1
c 1
)
(command "erase" "all" "")
(command "circle" b 5000);
(command "zoom" "e")
(entdel (entlast))
(command "circle" b 5)
(setq s (entlast))
(repeat 5000;
    (setvar "cecolor" (itoa c))
    (setq b (polar b ang1 a))
    (command "circle" b 5)
;;;    (command "line" b '(0 0) "")
    (setq ang1 (+ 1 ang1))
    (setq a (+ 1 a))
    (setq c (1+ c))
    (if (= c 5)
      (setq c 1)
    )
;;;    (command "zoom" "e");
)
(while s
    (setq ss (ssadd))
    (ssadd s ss)
    (command "erase" ss "")
    (setq s (entnext s))
)
(setvar "cecolor" "BYLAYER")
(setvar "cmdecho" 1)
(princ)
)

Helix.xu · 发表于 2018-5-28 09:59:44

CAD做可控动画，大师们好厉害！

l282027798 · 发表于 2018-11-7 13:18:48

运行一会就卡死了

enn09 · 发表于 2018-11-8 10:37:17

感谢分享，收藏了

phoenixdjq · 发表于 2007-8-14 10:58:00

phoenixdjq · 发表于 2007-8-14 11:03:00

以上都是我从本论坛收集的

还有一些，就不上传了

nonsmall · 发表于 2007-8-14 12:48:00

好，我来个太阳系的动画程序

无痕 · 发表于 2007-8-14 13:59:00

几年前做的，纯粹玩儿，用了很多ｃｏｍｍａｎｄ，不追求效率．难度不大．虽然如此，这好像是第一次公布源码．：）

无痕 · 发表于 2007-8-14 14:01:00

本帖最后由作者于 2007-8-14 14:03:46 编辑

动画因为捕捉丢帧的缘故，中途不太真实．下载后在ｃａｄ运行才正常．

canglang · 发表于 2007-8-14 19:52:00

不错！！！

nonsmall · 发表于 2007-8-15 10:12:00

改进版本

(print "运行命令j")
(defun c:j (/ b ang1 a c s ss)
(setvar "cmdecho" 0)
(setq b '(0 0))
(setq ang1 1)
(setq a 1
c 1
)
(command "erase" "all" "")
(command "circle" b 500);
(command "zoom" "e")
(entdel (entlast))
(command "circle" b 5)
(setq s (entlast))
(repeat 500;
    (setvar "cecolor" (itoa c))
    (setq b (polar b ang1 a))
;;;    (command "circle" b 5)
    (command "line" b '(0 0) "")
    (setq ang1 (+ 1 ang1))
    (setq a (+ 1 a))
    (setq c (1+ c))
    (if (= c 5)
      (setq c 1)
    )
    (command "zoom" "e");
)
(while s
    (setq ss (ssadd))
    (ssadd s ss)
    (command "erase" ss "")
    (setq s (entnext s))
)
(setvar "cecolor" "BYLAYER")
(setvar "cmdecho" 1)
(princ)
)

jingweirensh · 发表于 2008-4-23 15:52:00

真高啊.

etom999 · 发表于 2008-4-24 06:50:00

不错不错

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

[【不死猫】] 【收藏】LISP写的动画，越来越强，你有收藏么？

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源