让我们共同走进CAD的动画世界！新增-->时钟

xazhji

不敢,我从来不动别人的东西,我很尊重别人的版权,虽然,这儿是个论坛~


用 (getvar "cdate") 将会得到日期时间啊,再试吧

ljcgq

谢谢！！！我会尽力去完善的...哈哈..但我还是希望有捷足前来帮忙......

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)
)

xazhji

最大的弊病在于 需要打开你的特定文件!像你的图形,不复杂啊,干嘛不在程序中加上自动绘图呢?在任何图形中加载程序,就可以看到时钟.小小建议,希望更好!

spring

ljcgq发表于2004-6-16 11:32:00今天在上，完善了一步，不是从零开始，是从现在开始......打开“表.dwg \"文件，然后加载运行...试试看... ;========================;闹钟;ljc 2004....

不错，如果再加上个停靠对话框那就更好了。 (COMMAND "-INSERT" "bp" p "" "" "")
这里应该是 (COMMAND "-INSERT" "Q" p "" "" "") 吧，还有图块 Q 需要重新定义

xazhji

这个贴子挺能顶的,坚强哦~

ljcgq

不好意思，这两天出差，没能看到你们的贴子，你们的建议震得很好，我回去再改改.....

petty

cad 世界真是奥妙无穷,博大精生啊!

llccadd

太奇妙了

ljcgq

摇头扇