让我们共同走进CAD的动画世界！新增-->时钟

ljcgq

源代码见http://bbs.mjtd.com/forum.php?mod=viewthread&tid=23912

xyp1964

坐飞机看奥运： dispbbs.asp?boardID=2&ID=24802&page=2

wwzh

高手,高手,我一直想搞个施工组织过程动画片的软件,这下有方向了

xazhji

用cad做动画，恐怕你走错了地方啊~

asdfasdf

用ACAD作动画……你们好无聊啊！

xazhji

asdfasdf发表于2004-9-20 13:06:00用ACAD作动画……你们好无聊啊！

？？？

llc021

不错

雪山飞狐

感觉好好玩的样子

前生

一个很久很久以前贴过的东西。 (defun c:jg1 (/ dh done)
;;;----------------------------------------
(defun done (/ n m)
(mode_tile "accept" 1)
(mode_tile "cancel" 1)
(start_image "t2")
(fill_image 0 0 (dimx_tile "t2") (dimy_tile "t2") 5)
(end_image)
(setq n 1)
(repeat 100
(setq m 0)
(repeat 8500 ;修改该值控制进度条的速度.前生
(setq m (1+ m))
)
(set_tile "t1"
(strcat "已经进行了 " (vl-princ-to-string n) " % ")
)
(start_image "t2")
(fill_image
0
0
(fix (* n (/ (dimx_tile "t2") 100.0)))
(dimy_tile "t2")
1
)
(end_image)
(setq n (1+ n))
)
(mode_tile "accept" 0)
(mode_tile "cancel" 0)
)
;;;----------------------------------------
(setq t1 " ☆☆☆☆☆ ")
(setq dh nil)
(SETQ dh (LOAD_DIALOG "ourscad.DCL"))
(if (new_dialog "setup" dh)
(progn
(mode_tile "cancel" 1)
(set_tile "t1" t1)
(action_tile "cancel" "(done_dialog 0)")
(action_tile "accept" "(done)")
(setq do_next (start_dialog))
(cond
)
)
)
(unload_dialog dh)
(setq t1 nil
done nil
do_next nil
)
) ourscad.dcl的内容 setup:dialog{label="___________☆☆ 安 装 进 度 ☆☆______________";
alignment=centered;
spacer_1;
:row{
:text{label=" Ours CAD 疯狂设计工具软件环境初始化";}
:text{label=" %%% ";key="t1";}
}
: image_button {color=5;key="t2";width=90;height=0.6;}
spacer_1;
ok_cancel;
}

arling33

楼上朋友，你做的是什么？怎么不能用。