又有一个问题

djunhua · 发表于 2003-6-8 22:15:00

VisualLisp中的时间是怎样记录的
我读取的DATE这个系统变量的时候，出现一窜奇怪的数字，这是怎么一回事

meflying · 发表于 2003-6-9 08:35:00

(defun c:gettime(/ stime h m s)
  (setq stime (getvar"date"))
  (setq stime (* 86400.0 (- stime (fix stime))))
  (setq h (fix (/ stime 3600)))
  (setq m (fix (/ (- stime (* h 3600)) 60)))
  (setq s (fix (- stime (* m 60) (* h 3600))))
  (princ (strcat "现在时间为:" (rtos h) ":" (rtos m) ":" (rtos s)))
  (princ)
  )

前生 · 发表于 2003-6-9 10:01:00

(DEFUN setDATE ()
  (SETQ TXT1 (rtos (GETVAR "CDATE")))
  (SETQ TXT1 (SUBSTR TXT1 1 8))
  (SETQ       #T1  (SUBSTR TXT1 1 4)
      #T2  (SUBSTR TXT1 5 2)
      #T3  (SUBSTR TXT1 7 2)
      TXT1 (STRCAT "---------"          #T1             "年-"
                  #T2       "月-"          #T3             "日"
                  "---------"
                  )
  )
  (setq       #t1 nil
      #t2 nil
      #t3 nil
  )
(setq txt1 nil)
)

meflying · 发表于 2003-6-9 11:19:00

这个参数返回的是儒略日，具体我也没弄很清楚。下面是我从一个MATLAB转换过来的。用前生的可能比较方便些[br](defun ju(j / BC j0 dd n1 n2 n3 year0 year month day round ceil)
  (defun round(num1 / b)
(setq b (fix num1))
(if (> (- num1 b) 0.5)
   (setq b (1+ b))
   b)
  )
  (defun ceil(num / b)
(setq b (fix num))
(1+ b)
  )
  (if ( month 12)
(progn
   (setq month (- month 12))
   (setq year (1+ year))
)
  )
  (setq year (- year BC))
  (princ "今天是:")
  (princ year)
  (princ "年")
  (princ month)
  (princ "月")
  (princ day)
  (princ "日")
  (princ)
)

djunhua · 发表于 2003-6-9 14:33:00

30.6，365.23我基本上还能猜得出是什么，但是36524.25，32083之类的我实在不明白是什么

mccad · 发表于 2003-6-9 20:26:00

Sub dd()
Debug.Print ThisDrawing.GetVariable("date")
Debug.Print ConvertJulianDate(ThisDrawing.GetVariable("DATE"))
End Sub
Public Function ConvertJulianDate(julianDate As Double) As Date
ConvertJulianDate = julianDate - 2415019
End Function

e2002 · 发表于 2003-6-12 18:02:00

参考一下ExpressTools中的julian.lsp,很有帮助的
当然简单一点的可以用DODLib中的相关函数

又有一个问题

发表回复

精选推荐