王咣生 发表于 2003-7-1 13:34:00

旧事重提

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

blackeyes 发表于 2003-11-13 10:54:00

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

EPISODE 发表于 2003-11-13 12:43:00

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

SWAYWOOD 发表于 2003-12-21 14:30:00

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

sieben 发表于 2003-12-21 20:01:00

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

luoyaya 发表于 2003-12-22 13:35:00

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

xyp1964 发表于 2004-7-31 21:26:00

本帖最后由 作者 于 2004-8-1 0:43:09 编辑 <br /><br /> 楼上说得对：



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




yefeiwolaile 发表于 2008-5-29 21:49:00

<p>一般画图结束最后需写上日期，用text命令，然后输入xx（年）.xx（月）.xx（日）</p><p>非常麻烦。</p><p>可以在命令行输入vlisp,即可进入CAD的VLISP编辑框，只要新建一个crq.lisp文件，</p><p>文件内容：</p><p>(DEFUN C:crq() <br/>(command "mtext" pause pause (menucmd "M=$(edtime,$(getvar,date),YY.M.D)") "")<br/>)</p><p>保存后，然后在CAD菜单栏，工具，加载程序选择crq.lisp即可。</p><p>以后只要在CAD命令行中输入crq,用鼠标选择一个点，然后一拉，即可出现日期。</p>

cabinsummer 发表于 2012-4-15 13:43:35

儒略日，按公元前4713年1月1日格林威治时间12：00开始计算的天数。天文上所用。这个在深空探测和星际旅行中很有用
页: 1 [2]
查看完整版本: 又有一个问题