以前的一个小的趣味程序

前生

(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;   
              }