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

xyp1964 · 发表于 2005-11-29 01:20:07

“病毒扫描”
命令：radar (雷达)

xyp1964 · 发表于 2005-11-30 00:04:23

无题

[FONT=courier new](load "xyp_lib.vlx") ;版本 V.20051129 (大小:61.81 KB,1730次下载)
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
(defun c:test ()
(CMDLA0)
(command "select" "all" "")
(setq ss (ssget "P")
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt1 (xyp-get-MinMaxPoint s1 1)
pt5 (xyp-get-MinMaxPoint s1 5)
pt9 (xyp-get-MinMaxPoint s1 9)
)
(command "zoom" "w" pt1 pt9)
(command "delay" 10)
(if (= (rem i 20) 0)
(progn
(DRAWREDMINE pt5)
(command "delay" 100)
(princ)
(command "delay" 900)
)
)
)
(CMDLA1)
)[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051129 (大小:61.81 KB,1730次下载) 
;|加载通用函数(可在签名栏直接下载) 
如果已经下载xyp_lib并放到搜索路径下可以不再下载! 
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： 
★1·在acad.lsp中增加(load"xyp_lib") 
■2·在每个程序内增加(load"xyp_lib") 
■3·在command下，输入(load"xyp_lib") 
■4·在菜单.mnl中增加(load"xyp_lib") 
■5·将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
|; 
 
(defun c:test () 
  (CMDLA0) 
  (command "select" "all" "") 
  (setq        ss (ssget "P") 
        i  -1 
  ) 
  (while (setq s1 (ssname ss (setq i (1+ i)))) 
    (setq pt1 (xyp-get-MinMaxPoint s1 1) 
          pt5 (xyp-get-MinMaxPoint s1 5) 
          pt9 (xyp-get-MinMaxPoint s1 9) 
    ) 
    (command "zoom" "w" pt1 pt9) 
    (command "delay" 10) 
    (if        (= (rem i 20) 0) 
      (progn 
        (DRAWREDMINE pt5) 
        (command "delay" 100) 
        (princ) 
        (command "delay" 900) 
      ) 
    ) 
  ) 
  (CMDLA1) 
)[/FONT]

huatong · 发表于 2006-1-4 19:35:00

好，多跟老大学习点

sincereheart · 发表于 2006-1-9 22:50:55

还有没有更多的？真的非常不错。感谢楼主的精彩作品！

xyp1964 · 发表于 2006-1-31 00:21:24

俺家的“旺旺”给大家拜年了！

66个“旺旺”带给大家衷心的新春祝福……
命令：wwbn1、wwbn2、wwbn3 (旺旺拜年)
http://www.xdcad.net/forum/showt ... 2563933#post2563933
下载：
http://www.xdcad.net/forum/attachment.php?s=&postid=2560075
动画：

登录/注册后可看大图

xyp1964 · 发表于 2006-4-1 23:29:10

沿曲线跳动的小狗：

bb1 · 发表于 2006-11-1 12:45:35

怎样才能下载呀

xyp1964 · 发表于 2006-11-1 14:07:29

效果：

lhh71206 · 发表于 2006-11-11 09:17:36

我真是佩服,你们ＣＡＤ玩的真好，学了多少年了？

黄河之水 · 发表于 2006-12-3 11:51:27

这还挺有趣的

cxxq6 · 发表于 2006-12-3 18:29:46

呵好玩谢谢啦

xyp1964 · 发表于 2007-3-31 20:03:01

ttgd(天体轨道)

xyp1964 · 发表于 2007-3-31 20:04:07

命令：ttgd

xyp1964 · 发表于 2007-3-31 20:05:17

jzhx(金猪贺禧)

xyp1964 · 发表于 2007-3-31 20:05:59

jzhx(金猪贺禧)效果：

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