想做一个自动运行的提醒程序，希望大家帮助。

Andyhon · 发表于 2011-1-22 13:43:42

回复 chengx2000 的帖子

Search ....
Julian Day/Date

xyp1964 · 发表于 2011-1-22 15:37:33

(if (member (menucmd "M=$(edtime,$(getvar,date),DDDD)")
'("Friday" "星期五")
)
(alert "今天你值日\n\n好好干！")
)

chengx2000 · 发表于 2011-1-22 16:05:01

这段代码超出了我能理解的范围。

AMTONNY · 发表于 2011-1-22 18:52:06

有意思,这个都想得出来

chengx2000 · 发表于 2011-1-22 20:48:01

回复 ZZXXQQ 的帖子

谢谢你，现在我明白了系统变量date的规矩了，真是太谢谢你了！

ZZXXQQ · 发表于 2011-1-22 21:13:53

学习CAD应该有看帮助的习惯。这是帮助中的内容。
DATE 系统变量
概念
（只读）
类型：实数
不被保存
存储当前日期和时间。此值表示为“修改的 Julian 日期”(MJD)，它的格式为 Julian 日期编号加上时间的小数代码：
<Julian 日期编号>.<时间的小数代码>
“修改的 Julian 日期”（通常称为 UT1）是一个全世界的科学性标准，用以指定自公元前 4713 年 1 月 1 日 12:00 a.m. (B.C.E.) 起的天数。按照此系统，1997 年 7 月 4 日 2:29:58 p.m. 表示为 2450634.60387736，而 1998 年 1 月 1 日正午 12:00 则相应为 2450815.50000000。

xhq1954425 · 发表于 2011-1-23 06:34:20

(if (= (rem(fix(getvar"DATE")) 7) 4) (alert "今天你值日\n好好干哟！"))
ZZXXQQ版主经常是高深莫测，

我也没看明白，但没敢说……
我也想知道这个与星期5中的5怎么跟上式中的7和4发生关系的？

chengx2000 · 发表于 2011-1-23 07:12:51

你在论坛上搜索“date”，有一条比较老的帖子上说明了“date”记录时间的规则。

efan2000 · 发表于 2011-1-24 11:14:28

对于Lisp，可以在acad.lsp、acaddoc.lsp中加载，或者菜单的mnl文件中加载。
对于Net，可以在注册表中登记。

wuxuloveguo · 发表于 2011-1-24 15:35:26

楼上的斑竹,是不是网络问题,发了那么多回复,多看看CAD帮助对你会有启发的!

账号		自动登录	找回密码
密码			注册

想做一个自动运行的提醒程序，希望大家帮助。

点评