[LISP程序]：怎么能程序运行的更快？

kkilvdong

(defun c:lsp22()
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq time (getint "\n输入显示时间（秒）:"))
  (setq cen (getpoint "\n中心点:"))
  (setq rr (* (getdist cen "\n半径:") 2))
  (lsp22a)
  (lsp22b)
  (lsp22c)
  (setvar "osmode" os )
  (princ)
  )
;;;绘制时钟子程序
(defun lsp22a()
  (setvar "cecolor" "3")
  (command "donut" (/ (* rr 39) 40) rr cen "")
  (setvar "cecolor" "1")
  (setq pp_12 (polar cen (/ pi 2) (/ rr 2)))
  (setq pp_3 (polar cen 0 (/ rr 2)))
  (setq pp_6 (polar cen (* pi 1.5) (/ rr 2)))
  (setq pp_9 (polar cen pi (/ rr 2)))
  (command "donut" 0 (/ rr 12) pp_12 pp_3 pp_6 pp_9 "")
  (setvar "cecolor" "7")
  (command "pline" cen "w" (/ rr 40) "" cen (polar cen (/ pi 2) (* (/ rr 20) 7)) "")
  (setq en3 (entlast))
  (setvar "cecolor" "4")
  (command "pline" cen "w" (/ rr 50) "" cen (polar cen (/ pi 2) (* (/ rr 20) 8)) "")
  (setq en1 (entlast))
  (setvar "cecolor" "5")
  (command "pline" cen "w" 0 0 cen (polar cen (/ pi 2) (* (/ rr 20) 9)) "")
  (setq en2 (entlast))
  (setvar "cecolor" "bylayer"))
;;;时钟运转程序
(defun lsp22c()
  (setq x 0)
  (setq ti (rtos (getvar "cdate") 2 6))
  (setq tt (substr ti 10 2))
  (setq dd (substr ti 12 2))
  (setq mm (substr ti 14 2))
  (command "rotate" en3 "" cen (* (atoi tt) -30))
  (command "rotate" en2 "" cen (* (atoi mm) -6))
  (command "rotate" en1 "" cen (* (atoi dd) -6))
  (command "rotate" en3 "" cen (* (atoi dd) -0.5))
  (while (/= x time)
    (setq ff dd ss mm)
    (setq ti (rtos (getvar "cdate") 2 6))
    (setq dd (substr ti 12 2))
    (setq mm (substr ti 14 2))
    (if (/= ss mm)
        (progn
        (command "rotate" en2 "" cen  -6)
        (setq x (1+ x))
        ))
    (if (/= ff dd)
        (progn
        (command "rotate" en1 "" cen  -6)
        (command "rotate" en3 "" cen  -0.5))))
  (princ)
  )
;;;绘制时钟文字子程序
(defun lsp22b()
  (setq txt_12 (polar pp_12 (* pi 1.5) (/ rr 10)))
  (setq txt_3 (polar pp_3 pi (/ rr 10)))
  (setq txt_6 (polar pp_6 (/ pi 2)(/ rr 10)))
  (setq txt_9 (polar pp_9 0 (/ rr 10)))
  (command "text" "m" txt_12 (/ rr 12) 0 "12")
  (command "text" "m" txt_3 (/ rr 12) 0 "3")
  (command "text" "m" txt_6 (/ rr 12) 0 "6")
  (command "text" "m" txt_9 (/ rr 12) 0 "9")
  )
(princ "\n*********************<<lsp22>>*******************")
(princ)

狂刀

要是运行快了，你的时钟走快了怎么办？哈哈
反正你运行这个，其它的事情也干不了，快一点慢一点无所谓啦，

kkilvdong

如何解决

aeo

最初由 kkilvdong 发布
[B]如何解决 [/B]

windows其实是处理排好了队的事情.
我们编程的目的 是给windows安排我们要求它做的事情，要求它去排队,轮到才能做.

cad在干着一样事情的时候，不可能去干其他事情，除非加入一个另外的进程，所以你的要求lisp恐怕不行(lisp没有时间反映器)，除非c++或vb等能够处理更高级别的编程工具.

kkilvdong

谢谢了！