[分享]：时钟显示小程序

williamydp

我刚学viual lisp 不久，晓东论坛给我提供了很好的学习和交流的场所，大家都这么热心那我也凑凑热闹，提供一个简单的时钟显示程序，还望多多指教！！
;timdsp
;显示当前时间！！

(defun c:timdis()
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq cen (getpoint "\n中心点: ")
        rr (* (getdist cen "\n半径: ") 2)
  )
  (pdis)
  (tdis)
)
  (setvar "osmode" os)
)
;----------------------------------绘制时钟子程序*
(defun pdis()
  (setvar "cecolor" "3")
  (command ".donut" (/ (* rr 39) 40.0) rr cen "")
  (setvar "cecolor" "1")
  (setq pp_12 (polar cen (/ pi 2) (/ rr 2))
        pp_3  (polar cen 0 (/ rr 2))
        pp_6  (polar cen (* pi 1.5) (/ rr 2))
        pp_9  (polar cen pi (/ rr 2))
  )
  (command ".donut" 0 (/ rr 12.0) pp_12 pp_3 pp_6 pp_9 "")
  (setvar "cecolor" "7")
  (command ".pline" cen "w" (/ rr 50.0) "" cen (polar cen (/ pi 2) (* (/ rr 20.0) 7)) "")
  (setq en3  (entlast))
  (setvar "cecolor" "4")
  (command ".pline" cen "w" (/ rr 50.0) ""  cen (polar cen (/ pi 2) (* (/ rr 20.0) 9)) "")
  (setq en1 (entlast))
  (setvar "cecolor" "5")
  (command ".pline" cen "w" 0 0 cen (polar cen (/ pi 2) (* (/ rr 20.0) 9)) "")
  (setq en2 (entlast))
  (setvar "cecolor" "bylayer")
  (setq ti (rtos (getvar "cdate") 2 6))   ;取得系统当前时间
  (setq tt (substr ti 10 2)               ;取得"时"
        dd (substr ti 12 2)               ;取得"分"
        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 mm) -0.5))
)
;---------------------------------绘制时钟文字程序

(defun tdis()
  (setq txt_12 (polar pp_12 (* pi 1.5) (/ rr 10.0))
        txt_3 (polar pp_3 pi (/ rr 10.0))
        txt_6 (polar pp_6 (/ pi 2) (/ rr 10.0))
        txt_9 (polar pp_9 0 (/ rr 10.0))
  )
  (command ".text" "m" txt_12 (/ rr 12.0) 0 "12")
  (command ".text" "m" txt_3  (/ rr 12.0) 0 "3")
  (command ".text" "m" txt_6  (/ rr 12.0) 0 "6")
  (command ".text" "m" txt_9  (/ rr 12.0) 0 "9")
)
(princ "\n------------------->>c:lsp_22<<------------------")
(prin1)

hyx_lyn

这是”AutoLISP&dcl基础篇“这本书里的吧

改程序也在彻底一些，最后的那个屏幕提示语名没有改

williamydp

没错啊！本人旨在共享和交流别无它意！

hyx_lyn

既是这样也没必要把函数名称都改了吧

如果想交流的话，把自己的程序或者经验发上来不是更好吗？

我们到这来的目的不都是来学习和提供给别人学习的机会吗，你说对吗。

saltxf

hyx_lyn ，不要对人家太苛刻了吧！人家也是说“提供一个简单的时钟显示程序，还望多多指教！！”

urljit

也好，毕竟不是所有的人都能看到那本书

hyx_lyn

感谢5楼对我的批评指正以后不会再出现同样的情况

知错能还是好同志

aobian

cad2002中好象用不了，怎么回事