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

linuxme

这就是创意！高！

xmchy

楼主n有创意，太牛了!

dbvbd

真是大开眼界!希望我也能做出来!

didini

狂魔乱舞！好好学习一个！

独钓蓑翁

我也试试看!

一生有你

斑竹教教我怎么做吧?
让我看看星光的源代码好吗？我很想学！谢谢了！！

slddss

真所谓一山还有一山高，，，，

xyp1964

最初由 一生有你 发布
[B]斑竹教教我怎么做吧?
让我看看星光的源代码好吗？我很想学！谢谢了！！ [/B]

[php]
(load "xyp_lib")
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在每个程序内增加(load"xyp_lib")
2.在acad.lsp中增加(load"xyp_lib")
3.在command下输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;星光灿烂－动画
(defun c:xgcl ()
  (setvar "pdmode" 35)
  (setvar "PDSIZE" 1)  
  (while t
    (setq i 1)
    (repeat 66
      (setq col (sjs 256))
      (if (= col 0)
        (setq col 1)
      )
      (mkla (rtos col 2 0) col)
      (command "point" (list (sjs 1000) (sjs 1000)))
    )
    (command "zoom" "e")
    (setq ss (ssget "X"))
    (while (< i 50)
      (setq i (+ i 1))
      (setvar "PDSIZE" i)
      (command "delay" "50")
    )
    (while (> i 1)
      (setq i (- i 1))
      (setvar "PDSIZE" i)
      (command "delay" "50")
    )
    (command "erase" ss "")
    (command "delay" "1000")
  )
)
(princ "程序命令：xgcl(星光灿烂)")
(princ)
[/php]

ysx810210

楼主的创意太牛了，原来CAD还有这样的超级功能

xyp1964

截取CAD“挖雷”游戏源程序片断，生成“小心地雷”动画：
如果显示屏不够结实或主频太慢，千万别玩！！！呵呵……
命令：XXDL （小心地雷）
代码：
[php](defun c:xxdl ()
  (command "zoom" "w" (list -100 -100) (list 1100 1100))
  (while T
    (repeat 21
      (setq pt (list (sjs 1000) (sjs 1000)))
      (drawRedMine pt)
      (command "delay" 200)
      (dos_sound 3)
      (command "delay" 200)
    )
    (command "delay" 2000)
    (dos_sound 3)
    (redraw)
    (command "delay" 1000)
  )
  (princ)
)
(princ "XXDL  (小心地雷)")
(princ)[/php]

xyp1964

“小心地雷”

xyp1964

“小心地雷”改版：
命令：XXDL

xyp1964

XTW  线条舞CAD动画：
(真彩色)

2. [FONT=courier new]
   
3. (load "xyp_lib")
   
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][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
13. 
    
14. ;;;线条舞
    
15. (defun c:xtw ()
    
16.   (cmdla0)
    
17.   (setvar "osmode" 0)
    
18.   (setq        no1 66
    
19.         no3 100
    
20.         NO2 5500
    
21.   )
    
22.   (command "erase" "all" "")
    
23.   (command "zoom" "w" "-3500,-450" "8300,5500")
    
24.   (repeat no1
    
25.     (setq pt1 (list (sjs NO2) (sjs NO2))
    
26.           pt2 (list (sjs NO2) (sjs NO2))
    
27.           col (sjs 256)
    
28.     )
    
29.     (mkla (rtos col 2 0) col)
    
30.     (command "line" pt1 pt2 "")
    
31.   )
    
32.   (setq        ss (ssget "x" '((0 . "LINE")))
    
33.         i  -1
    
34.   )
    
35.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
36.     (setq pt1 (list (sjs NO2) (sjs NO2))
    
37.           pt2 (list (sjs NO2) (sjs NO2))
    
38.           co  (strcat (rtos (sjs 256) 2 0)
    
39.                       ","
    
40.                       (rtos (sjs 256) 2 0)
    
41.                       ","
    
42.                       (rtos (sjs 256) 2 0)
    
43.               )
    
44.     )
    
45.     (command "chprop" s1 "" "C" "T" co "")
    
46.     (command "delay" no3)
    
47.     (sub_upd s1 10 pt1)
    
48.     (command "delay" no3)
    
49.     (sub_upd s1 11 pt2)
    
50.     (command "delay" no3)
    
51.     (if        (= i (- (sslength ss) 1))
    
52.       (setq i -1)
    
53.     )
    
54.   )
    
55.   (cmdla1)
    
56. )
    
57. (princ "程序命令 : xtw  (线条舞)")
    
58. (princ)[/FONT]

[FONT=courier new]<br /> (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][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|; <br /> <br /> ;;;线条舞<br /> (defun c:xtw ()<br />   (cmdla0)<br />   (setvar "osmode" 0)<br />   (setq        no1 66<br />         no3 100<br />         NO2 5500<br />   )<br />   (command "erase" "all" "")<br />   (command "zoom" "w" "-3500,-450" "8300,5500")<br />   (repeat no1<br />     (setq pt1 (list (sjs NO2) (sjs NO2))<br />           pt2 (list (sjs NO2) (sjs NO2))<br />           col (sjs 256)<br />     )<br />     (mkla (rtos col 2 0) col)<br />     (command "line" pt1 pt2 "")<br />   )<br />   (setq        ss (ssget "x" '((0 . "LINE")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt1 (list (sjs NO2) (sjs NO2))<br />           pt2 (list (sjs NO2) (sjs NO2))<br />           co  (strcat (rtos (sjs 256) 2 0)<br />                       ","<br />                       (rtos (sjs 256) 2 0)<br />                       ","<br />                       (rtos (sjs 256) 2 0)<br />               )<br />     )<br />     (command "chprop" s1 "" "C" "T" co "")<br />     (command "delay" no3)<br />     (sub_upd s1 10 pt1)<br />     (command "delay" no3)<br />     (sub_upd s1 11 pt2)<br />     (command "delay" no3)<br />     (if        (= i (- (sslength ss) 1))<br />       (setq i -1)<br />     )<br />   )<br />   (cmdla1)<br /> )<br /> (princ "程序命令 : xtw  (线条舞)")<br /> (princ)[/FONT]

xyp1964

xtw(线条舞)效果：

temp8

楼主是有心人