[LISP函数]：[分享]会动的闹钟

amoyhst

把源代码贴给大家，不过这个思路是从高手那里学来的.....为了讨论，也只好借花现佛....附件是lsp运行的cad图形。打开图形加载程序输入"bb"侧从零开始转起.....希望高手改进.....不要每次都总是从零开始转起....

;========================
;从零开始的闹钟
;ljc 2004.6.15
;========================
(defun c:BB ()
  (command "ucs" "w")
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)                     
  (setq ho (getvar "cmdecho"))
  (setvar "CMDECHO" 0)
  (command "erase" "all" "")
  (COMMAND "-INSERT" "bp" (LIST 0 0 0) "" "" "")
  (COMMAND "-INSERT" "H" (LIST 0 0 10) "" "" "")
  (setq H (entget (entlast)))
  (COMMAND "-INSERT" "M" (LIST 0 0 20) "" "" "")
  (setq M (entget (entlast)))                  
  (COMMAND "-INSERT" "S" (LIST 0 0 30) "" "" "")
  (setq S (entget (entlast)))
  (SETQ N 1 nn 1 nnn 1)
   (while t
    (SETQ SJ  (* (/ n -30.0) pi ) )
    (setq S (subst (cons 50 SJ) (assoc 50 S) S))
    (SETQ mJ  (* (/ nnn -1800.0) pi ) )
    (setq m (subst (cons 50 mJ) (assoc 50 m) m))
    (entmod S)(entmod m)
    (COMMAND "DELAY" "1000")
    (if (= n 60)
          (progn
               (setq n 1)
               (SETQ hJ  (* (/ nn -360.0) pi ) )
               (setq h (subst (cons 50 hJ) (assoc 50 h) h))  
               (COMMAND "DELAY" "0")
               (entmod h)
               (setq nn (+ nn 1))            
          )
                 (SETQ N (+ N 1))
    );if
    (setq nnn (+ nnn 1))
    (if (= nnn 3600) (setq nnn 1))
  );while
  
  (setvar "osmode" os)
  (setvar "cmdecho" ho)      
)

zxdcad

你在插入块时，给出指定的初始值，时钟不就不从零开始了吗？当然，你程序中的n,nn,nnn三个变量也得跟着变才行！
利用Cdate函数可得到当前系统时间，改进你这个程序，可实现真正的CAD时钟！

dczms

为什么我加载后输入bb，提示未知命令？

ercheng

好玩

spbgxb

提示错误，楼主再看看。

qiankun88

不能用。

自由的鱼

这个东东倒挺好玩的~`我也做一个~