[现学现用]会动的cad----会走的闹钟!

ljcgq

今天早上，完善了一步，不是从零开始，是从现在开始......打开“表.dwg "文件，然后加载运行...试试看... ;========================
;闹钟
;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" "")
(setq p(getpoint "请选择位置")) (setq date (* (- (getvar "cdate") (fix (getvar "cdate")) ) 1000000))
(setq hh(fix(/ date 10000)))
(if (> hh 12) (setq hh (- hh 12)))
(setq mmm (- (fix (/ date 100)) (* 100 (fix(/ date 10000))) ) )
(setq ss(- (fix date) (* 100 (fix (/ date 100))) ))
(setq hs(fix(* (- date (fix date)) 100)) )
(setq sss(fix(+ ss (/ hs 100.0) 0.5)))

(setq hj0(* (+ (/ hh -6.0) (/ mmm -360.0)) 180 ) )
(setq mj0(* (+ (/ mmm -30.0) (/ sss -1800.0)) 180 ) )
(setq sj0(* (/ sss -30.0) 180 ) ) (setq hj1(* (+ (/ hh -6.0) (/ mmm -360.0)) pi ) )
(setq mj1(* (+ (/ mmm -30.0) (/ sss -1800.0)) pi ) )
(setq sj1(* (/ sss -30.0) pi ) ) (COMMAND "-INSERT" "bp" p "" "" "")
(COMMAND "-INSERT" "H" p "" "" hj0)
(setq H (entget (entlast)))
(COMMAND "-INSERT" "M" p "" "" mj0)
(setq M (entget (entlast)))
(COMMAND "-INSERT" "S" p "" "" sj0)
(setq S (entget (entlast)))
(SETQ N 1 nn 1 nnn 1)
(while t
(SETQ SJ (+ (* (/ n -30.0) pi ) sj1) )
(setq S (subst (cons 50 SJ) (assoc 50 S) S))
(SETQ mJ (+ (* (/ nnn -1800.0) pi ) mj1) )
(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 ) hj1) )
(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)
)

CADghost

ljcgq你把时间调成北京时间吧

ljcgq

不是北京时间，是你机器的系统时间。

ZGJ_GIS

How to save autoCAD as picture active? 谢谢大家!

ljcgq

用屏幕摄像软件呀。

CADghost

不错，不错


顶

suntao008

很棒，活学活用，大家要向你学习，是秘书长文章的启示吧？？？

ldb1420

ljcgq发表于2004-6-16 11:29:00ldb1420：你把表.dwg文件打开，然后加载程序，运行。

不知道为什么，没办法欣赏你的作品，还是会出现那个错误

ljcgq

那我再上传一个给你。

FJQZ456

了不起