又有一个问题

王咣生

(setq str_date (menucmd "M=$(edtime,$(getvar,date),MO/DD/YYYY)"))
   return value:
"07/01/2003"

blackeyes

谢谢斑竹,我对以后充满了信心!!!!

EPISODE

一个太阳年等于365.2425个太阳日，这是历法问题。

SWAYWOOD

11楼的斑竹，在LISP中能不能让程序在一天中的某一时间（如：上午9点）去执行一段代码

sieben

能不能详细解说一下“儒略日”，我曾经对那些数字连哄带骗也搞不明白日期是怎么转换的！也查过“儒略日”而无任何收获！谢谢！！！

luoyaya

系统变量里有一个cdate不是吗?不就是当前日期还有时间吗?

xyp1964

楼上说得对： (defun c:riqi (/ tmp y m d txt pt1)
(setq tmp (rtos (getvar "cdate") 2 8))
(setq y (rtos (atof (substr tmp 1 4)) 2 0))
(setq m (rtos (atof (substr tmp 5 2)) 2 0))
(setq d (rtos (atof (substr tmp 7 2)) 2 0))
(setq txt (strcat "今天是：" y "年" m "月" d "日"))
(alert txt)
(princ)
)

yefeiwolaile

一般画图结束最后需写上日期，用text命令，然后输入xx（年）.xx（月）.xx（日）

非常麻烦。

可以在命令行输入vlisp,即可进入CAD的VLISP编辑框，只要新建一个crq.lisp文件，

文件内容：

(DEFUN C:crq()
(command "mtext" pause pause (menucmd "M=$(edtime,$(getvar,date),YY.M.D)") "")
)

保存后，然后在CAD菜单栏，工具，加载程序选择crq.lisp即可。

以后只要在CAD命令行中输入crq,用鼠标选择一个点，然后一拉，即可出现日期。

cabinsummer

儒略日，按公元前4713年1月1日格林威治时间12：00开始计算的天数。天文上所用。这个在深空探测和星际旅行中很有用