我想在執行一個打印程序時. 放一分鐘的音樂來聽, 不知哪個大俠可以幫我做好.

BDYCAD

前幾天寫的程序. 我需要完美化一點. 因為這個程序執行打印時要停下來工作一下. 而停下來了我想用這個程序自動打開一個小音樂來聽. 不知怎麼寫才好所以再次貼到這里. 希望大俠幫我做做. 至於要什麼音樂就由你們去定了. 呵呵...

;;rogram by BAOLISP
;;;   1.  由於每人的打印要求不同. 所我沒法知道你的設置是什麼樣的. 所以為了這個程序可以通用少少
;;;       我對我很久以前開發的程序修改過了.
;;;   2.  這樣用戶首先要對自己的打印系統先自行設定好,
;;;   3.  之后你可以用這個程序自動全部打印完你這些綠色的圖框.
;;;  程序開發---BAOLISP
;;;                    DATA: 2003-10-15
(defun c:autoplot()
  (setvar "cmdecho" 0)
  (setq os(getvar "osmode" ))
  (setvar "osmode" 0)
  (setq a (ssget "x" '((0 . "LWPOLYLINE") (62 . 3))))
  (IF (= a nil)
   (progn (ALERT "當前沒有你要打印的圖紙, 請把綠色打印圖框加上......
   \n本訊息由系統自動提示.") (exit))
    )
  (SETQ AA (SSLENGTH A))
  (setq nu 0)
  (REPEAT AA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;打印循環
    (SETQ AC (entget (SSNAME A nu)))
    (setq n 0)
    (repeat (length ac)
      (setq qend (nth n ac))
      (if (= (car qend) 10)
        (setq one (cdr qend))
        (setq n (1+ n))))
    (setq trhee (cdr (nth (+ n 8) ac)))
  (plot_bdy)
  (setq nu (+ nu 1))
    )
  (setvar "cmdecho" 1) (setvar "osmode" os)
  (princ))
(defun plot_bdy()
  (command "-plot" "y" "" "" "" "m" "L" "N" "w" one trhee
    "1=1" "C" "" "" "" "N" "N" "Y" ""))
(PRINC "\n程序加載成功, 用autoplot啟動自動打印.")