[分享]：★CAD动画，注意备份文件！（欢迎跟进，公布部分源码）

acdsee7

我无法播放CAD动画,请楼主告诉我播放动画的具体操作.谢谢

2sunny2

厉害啊,你是怎么作出来的啊

xyp1964

转贴修改的“万花筒”动画：
运行前注意保存文件！！！

2. [FONT=courier new]
   
3. ;;;万花筒
   
4. (defun c:wht()
   
5.     (while t
   
6.     (setq i 0 n 255)
   
7.     (command "erase" "all" "")
   
8.     (repeat n
   
9.       (setq i (1+ i))
   
10.       (command "color" (itoa i))      
    
11.       (command "POLYGON" (+ i 3) '(0 0) "I" (+ 1 (* i 5)))
    
12.       (command "Zoom" "E")
    
13.     )
    
14.   )
    
15. )
    
16. (pxyp"wht  (万花筒)")
    
17. (princ)
    
18. [/FONT]

[FONT=courier new]<br /> ;;;万花筒<br /> (defun c:wht()<br />     (while t<br />     (setq i 0 n 255)<br />     (command "erase" "all" "")<br />     (repeat n<br />       (setq i (1+ i))<br />       (command "color" (itoa i))      <br />       (command "POLYGON" (+ i 3) '(0 0) "I" (+ 1 (* i 5)))<br />       (command "Zoom" "E")<br />     )<br />   )<br /> )<br /> (pxyp"wht  (万花筒)")<br /> (princ)<br /> [/FONT]

xyp1964

万花筒效果：

liaoyilily

很漂亮，怎么做的？教我~

xyp1964

2. [FONT=courier new]
   
3. ;;;万花筒
   
4. (defun c:wht ()
   
5.   (while t
   
6.     (setq i 0
   
7.           n 255
   
8.     )
   
9.     (command "erase" "all" "")
   
10.     (repeat n
    
11.       (command "-color"
    
12.                "t"
    
13.                (strcat (itoa (+ i 1)) "," "0" "," "0")
    
14.       )
    
15.       (draw-pg)
    
16.     )
    
17.     (setq i 0)
    
18.     (command "erase" "all" "")
    
19.     (repeat n
    
20.       (command "-color"
    
21.                "t"
    
22.                (strcat "0" "," (itoa (+ i 1)) "," "0")
    
23.       )
    
24.       (draw-pg)
    
25.     )
    
26.     (setq i 0)
    
27.     (command "erase" "all" "")
    
28.     (repeat n
    
29.       (command "-color"
    
30.                "t"
    
31.                (strcat "0" "," "0" "," (itoa (+ i 1)))
    
32.       )
    
33.       (draw-pg)
    
34.     )
    
35.     (setq i 0)
    
36.     (command "erase" "all" "")
    
37.     (repeat n
    
38.       (command "-color" (itoa (+ i 1)))
    
39.       (draw-pg)
    
40.     )
    
41.   )
    
42. )
    
43. (defun draw-pg ()
    
44.   (command "POLYGON" (+ i 3) '(0 0) "I" (+ 1 (* i 5)))
    
45.   (command "Zoom" "E")
    
46.   (setq i (1+ i))
    
47. )[/FONT]

[FONT=courier new]<br /> ;;;万花筒<br /> (defun c:wht ()<br />   (while t<br />     (setq i 0<br />           n 255<br />     )<br />     (command "erase" "all" "")<br />     (repeat n<br />       (command "-color"<br />                "t"<br />                (strcat (itoa (+ i 1)) "," "0" "," "0")<br />       )<br />       (draw-pg)<br />     )<br />     (setq i 0)<br />     (command "erase" "all" "")<br />     (repeat n<br />       (command "-color"<br />                "t"<br />                (strcat "0" "," (itoa (+ i 1)) "," "0")<br />       )<br />       (draw-pg)<br />     )<br />     (setq i 0)<br />     (command "erase" "all" "")<br />     (repeat n<br />       (command "-color"<br />                "t"<br />                (strcat "0" "," "0" "," (itoa (+ i 1)))<br />       )<br />       (draw-pg)<br />     )<br />     (setq i 0)<br />     (command "erase" "all" "")<br />     (repeat n<br />       (command "-color" (itoa (+ i 1)))<br />       (draw-pg)<br />     )<br />   )<br /> )<br /> (defun draw-pg ()<br />   (command "POLYGON" (+ i 3) '(0 0) "I" (+ 1 (* i 5)))<br />   (command "Zoom" "E")<br />   (setq i (1+ i))<br /> )[/FONT]

xyp1964

动画：沿曲线移动的图块

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. ;;;“F1赛车”
    
16. (defun c:test ()
    
17.   (setq        s1    (car (entsel "\n选择曲线赛道 : "))
    
18.         ;;5000 步数 数大则慢
    
19.         ptlst (CURVE-DIV-PTLST s1 (/ (CURVE-LENG s1) 5000))
    
20.         ;;02ecar01 动画图块
    
21.         s2    (ssname (ssget "x" '((2 . "02pcar11"))) 0)
    
22.   )
    
23.   (while (setq pt1 (car ptlst))
    
24.     (setq ang        (- (angle pt1 (PT-FAXIAN s1 pt1 1000)) (* pi 0.5))
    
25.           ptlst        (cdr ptlst)
    
26.     )
    
27.     ;;前进
    
28.     (sub_upd s2 10 pt1)
    
29.     ;;拐弯
    
30.     (sub_upd s2 50 ang)
    
31.     ;;停顿
    
32.     (princ)
    
33.   )
    
34.   (princ)
    
35. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> ;;;“F1赛车”<br /> (defun c:test ()<br />   (setq        s1    (car (entsel "\n选择曲线赛道 : "))<br />         ;;5000 步数 数大则慢<br />         ptlst (CURVE-DIV-PTLST s1 (/ (CURVE-LENG s1) 5000))<br />         ;;02ecar01 动画图块<br />         s2    (ssname (ssget "x" '((2 . "02pcar11"))) 0)<br />   )<br />   (while (setq pt1 (car ptlst))<br />     (setq ang        (- (angle pt1 (PT-FAXIAN s1 pt1 1000)) (* pi 0.5))<br />           ptlst        (cdr ptlst)<br />     )<br />     ;;前进<br />     (sub_upd s2 10 pt1)<br />     ;;拐弯<br />     (sub_upd s2 50 ang)<br />     ;;停顿<br />     (princ)<br />   )<br />   (princ)<br /> )[/FONT]

xyp1964

效果：拐弯都不刹车！！

fm1

让我感觉自己学得太少,以后一定要多多来看看,走走!

whfdchst

很有趣,能把动画程序变成EXE形式吗,我想给好友发个EMIAL.有什么新式武器.

秦始皇

受益菲浅，慢慢研究。

staropl

各位的编程技术真的是很棒啊，

xyp1964

;;;所有实体原地转3圈

2. [FONT=courier new](load "xyp_lib.vlx")
   
3. ;;;当期版本：20051124版
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
7. ★1·在acad.lsp中增加(load"xyp_lib")
   
8. ■2·在每个程序内增加(load"xyp_lib")
   
9. ■3·在command下，输入(load"xyp_lib")
   
10. ■4·在菜单.mnl中增加(load"xyp_lib")
    
11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
12. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
13. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
14. |;
    
15. 
    
16. ;;;所有实体原地转3圈
    
17. (defun c:test (/ ss i j pt s1)
    
18.   (CMDLA0)
    
19.   (setvar "osmode" 0)
    
20.   (command"select" "all""")
    
21.   (setq        ss (ssget "P" )
    
22.         i  -1
    
23.   )
    
24.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
25.     (setq j  0
    
26.           pt (_midp (xyp-get-MinMaxPoint s1 0)
    
27.                     (xyp-get-MinMaxPoint s1 1)
    
28.              )
    
29.     )
    
30.     (while (< j 300)                        ;转3圈
    
31.       (setq j (1+ j))
    
32.       (command "rotate" s1 "" pt "3.6")
    
33.     )
    
34.     (princ)
    
35.   )
    
36.   (CMDLA1)
    
37. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")<br /> ;;;当期版本：20051124版<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;所有实体原地转3圈<br /> (defun c:test (/ ss i j pt s1)<br />   (CMDLA0)<br />   (setvar "osmode" 0)<br />   (command"select" "all""")<br />   (setq        ss (ssget "P" )<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq j  0<br />           pt (_midp (xyp-get-MinMaxPoint s1 0)<br />                     (xyp-get-MinMaxPoint s1 1)<br />              )<br />     )<br />     (while (< j 300)                        ;转3圈<br />       (setq j (1+ j))<br />       (command "rotate" s1 "" pt "3.6")<br />     )<br />     (princ)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

xyz518mm

真是一个很特别的程序
厉害阿

wwwdh

真了不起， cad也能这么玩。。。。