我想在執行一個打印程序時. 放一分鐘的音樂來聽, 不知哪個大俠可以幫我做好.
前幾天寫的程序. 我需要完美化一點. 因為這個程序執行打印時要停下來工作一下. 而停下來了我想用這個程序自動打開一個小音樂來聽. 不知怎麼寫才好所以再次貼到這里. 希望大俠幫我做做. 至於要什麼音樂就由你們去定了. 呵呵...;;;Program 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啟動自動打印.")
页:
[1]