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

zhoufupeng · 发表于 2005-1-22 23:54:09

是LISP程序么？

zxdcad · 发表于 2005-1-23 10:19:50

创意不错!我来跟个贴

这是前段时间贴出来的，可以作通用的平面动画！

http://www.xdcad.net/forum/showt ... 1531794#post1531794

登录/注册后可看大图

程序原理：通过对路径等分点，按点依次移动图块，达到动画效果！

有不明白的请参见上面地址的贴子！

xyp1964 · 发表于 2005-1-23 10:40:02

除块移动外，还要旋转才行。
前帖的“狂想曲”动画与此有点相似，不过是无序的。
该动画的关键估计是使用(vlax-curve-getPointAtDist curve-obj dist)函数。

啵浪鼓 · 发表于 2005-1-30 23:43:30

强,呵呵,CAD动画效果还真有意思

citykunan · 发表于 2005-1-31 14:07:32

http://www.mjtd.com/bbs/dispbbs. ... ;ID=7870&page=1

yubing1019 · 发表于 2005-1-31 14:23:12

怎么做的?能指点一下吗

coolman327 · 发表于 2005-2-2 18:11:56

都是高手！！

xyp1964 · 发表于 2005-2-2 20:53:00

有源码程序，多切磋！

whiteon · 发表于 2005-2-2 21:53:48

这家活真是玩CAD玩出“花”了！

bestgoodbetter · 发表于 2005-2-15 18:23:46

兄弟真是高手这样也能做到!!
真是佩服佩服!!

tsxljj · 发表于 2005-2-15 21:28:17

最初由 citykunan 发布
[B]http://www.mjtd.com/bbs/dispbbs. ... ;ID=7870&page=1 [/B]

好厉害，明经2003年就贴出了几个类似的程序原代码。

xyp1964 · 发表于 2005-3-6 01:45:06

再发个“F1”大赛：随机数与曲线的完美结合！
加载F1.fas，运行F1。

xyp1964 · 发表于 2005-3-6 01:45:40

“F1”大赛：

xyp1964 · 发表于 2005-3-14 00:53:59

图块的旋转：
★注意保存文件！！！
[php]
(defun c:test (/)
  (setq s1 (car (entsel "\n选择图块 : "))
i  -1
  )
  (while t
(setq rad (* (setq i (1+ i)) -0.2 pi))
(sub_upd s1 50 rad)
(princ)
  )
)
(defun sub_upd (ename code #new)
  (setq cc (subst (cons code #new)
   (assoc code (entget ename))
   (entget ename)))
  (entmod cc)
  (entupd ename)
)
[/php]

xyp1964 · 发表于 2005-3-14 00:59:33

效果，别多看，小心伤着眼！

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