[LISP程序]：插入日期及时间

li809

(defun C:inttime()
   (setq pt0 (getpoint "\n请指定插入位置点 :"))
   (setq date0 (menucmd "M=$(edtime,$(getvar,date), DD.MM.YYYY hh:mm:ss)"))
   (command "text" "j" "m" pt0 5.0 0 date0)
   (princ)
)


以上是一插日期及时间的程序
但插入都不是系统当前日期，月份有误
请各位高手赐教
Email:baoshun01@21cn.com

xyp1964

[php]
;;如何在CAD中插入时间和日期?
(defun C:inttime ()
  (setq pt0   (getpoint "\n请指定插入位置点 :")
date0 (menucmd "M=$(edtime,$(getvar,date), YYYY.M.D hh:mm:ss)"))
  (COMMAND "style" "仿宋" "仿宋_GB2312" "400" "1" "0" "" "")
  (command "text" "j" "m" pt0 0 date0)
  (princ))
[/php]

li809

i;;如何在CAD中插入时间和日期?
(defun C:inttime ()
  (setq pt0   (getpoint "\n请指定插入位置点 :")
date0 (menucmd "M=$(edtime,$(getvar,date), DD.MM.YYYY  hh:mm:ss)"))
  (COMMAND "style" "仿宋" "仿宋_GB2312" "400" "1" "0" "" "")
  (command "text" "j" "m" pt0 0 date0)
  (princ))

xyp1964

最初由 li809 发布
[B]i;;如何在CAD中插入时间和日期?
(defun C:inttime ()
  (setq pt0   (getpoint "\n请指定插入位置点 :")
date0 (menucmd "M=$(edtime,$(getvar,date), DD.MM.YYYY  hh:mm:ss)"))
  (COMMAND "style" "仿宋" ... [/B]

不能使用“DD.MM.YYYY ”的格式！
1. 出错。
2. 不符合中文习惯。

li809

是否只能用D.M.YYYY格式，D和M都只能单个吗

ss1025

试试偶的这个
;;插入当前日期
(defun c:rq (/ osm tmp y m d ymd tt t1 y1 y2 y3 pt1)
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  (setq tmp (rtos (getvar "cdate") 2 8))
  (setq        y (substr tmp 1 4)
        m (substr tmp 5 2)
        d (substr tmp 7 2)
  )
  (setq ymd (strcat y "." m "." d))
  (setq tt (entsel "\n请选择参照目标"))
  (setq pt1 (getpoint "\n请选择文字插入点："))
  (setq t1 (entget (car tt)))  
  (if (/= (cdr (assoc 0 t1)) "TEXT")
    (princ "\n目标选择错误，请重新选择。")
    (progn
      (setq y1 (cdr (assoc 7 t1))
            y2
               (cdr (assoc 40 t1))
            y3
               (cdr (assoc 50 t1))
      )
      (setq y3 (/ (* y3 180) pi))
      (command "text" "s" y1 pt1 y2 y3 ymd)
    )
  )
  (setvar "osmode" osm)
)

li809

谢了,我以前下过了
以下源码在插入A选项后,不能用Z命令
请大家修改一下
在2004中用