以前的一个小的趣味程序

前生 · 发表于 2003-3-27 20:34:00

(defun c:jg1 (/ dh)
  (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 4500
      (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 "atcad.DCL"))
  (if (new_dialog "setup" dh)
(progn
   (set_tile "t1" t1)
   (action_tile "cancel" "(done_dialog 0)")
   (action_tile "accept" "(done)")
   (setq do_next (start_dialog))
   (cond
;;;       ((= 2 do_next) (atcad1))
   )
)
  )
  (unload_dialog dh)
  (setq       t1 nil
      done nil
      do_next       nil
  )
)ATCAD.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=1;}
   spacer_1;
//    ok_only;
   ok_cancel;
            }

以前的一个小的趣味程序

发表回复

精选推荐