[LISP程序]：本人编写的写图签日期程序,巨实用

hc1975

(defun c:rq(/ entn entl text high)
(setq entn (car (entsel "选择加年月日的文字")))
(setq entl (entget entn))
(setq ti (rtos (getvar "cdate") 2 6))
(setq yy (substr ti 1 4))
(setq mm (substr ti 5 2))
(setq mm (atoi mm))
(setq mm (itoa mm))
(setq dd (substr ti 7 2))
(setq dd (atoi dd))
(setq dd (itoa dd))
(setq text (strcat yy "." mm "." dd))
(setq entl (subst (cons 1 text) (assoc 1 entl) entl))
(entmod entl)
(princ)
)

画图画得晕乎乎的时候不用去想日期，呵呵

自由的鱼

确实是巨实用，呵呵

xgwl

呵呵~~~还有很多完善的地方啊！ 看看我的！

andyhua5240

最初由 xgwl 发布
[B]呵呵~~~还有很多完善的地方啊！ 看看我的！ [/B]

斑竹，能将您的那个日期程序上传么？
谢谢！

coolyxw

是啊,都做演示了就把程序放出来把

自由的鱼

3楼的功能更加强大啊，在哪里下载代码？

xxxyzxx

哇，斑竹的那个功能好强，是自动读取系统的日期吧？厉害

xgwl

不好意思~~~~ 发完这个贴子后，有事耽搁了一下，没能上传附件！后来，竟忘了这贴子发在哪了~~呵呵~~~ 今天不得不求助于搜索才找到这！
     这个程序是我刚学lisp的第四个程序吧，由于转用了一位网友的最初代码，就象楼主的！未经同意的改了下，加了很多自己觉得有必要的东西,也加了些出错处理！所以代码很乱，这儿就不好意思贴出来了！：）
     启动命令： xg_rq  和xg_rqq   

         还是那句话，为了不和一些网友的简化命令冲突，启动命令名长了点！就请大家在acad.pgp里自定义简化命令吧！

andyhua5240

谢谢斑竹，程序非常的实用好用，能不能加上选文字样式呀？
谢谢！

xyp1964

也发一个源码程序：
[php]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; rq.lsp 写日期
(DEFUN C:RQ (/ tmp y m d txt pt1)
  (@cmdla0)
  (setq        tmp (rtos (getvar "cdate") 2 8)
        y   (substr tmp 1 4)
        m   (substr tmp 5 2)
        d   (substr tmp 7 2)
        t1  (strcat y "   " m "   " d)
        t2  (strcat y "年" m "月" d "日")
  )
  (while (setq pt1 (getpoint "\n\t起点："))
    (setq txt6
           (@ukword
             1
             "A B C D E"
             "\n请选择处理方式：A-年月日/B-年/C-月/D-日/E-2004年11月18日"
             txt6
           )
    )
    (command "text"
             "j"
             "ml"
             pt1
             "350"
             "0"
             (cond
               ((= txt6 "A") t1)
               ((= txt6 "B") y)
               ((= txt6 "C") m)
               ((= txt6 "D") d)
               ((= txt6 "E") t2)
             )
    )
  )
  (@cmdla1)
)
(defun @CMDLA0 ()
  (setq cmdech (getvar "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setq rmode (getvar "regenmode"))
  (setq pw (getvar "plinewid"))
  (setvar "regenmode" 0)
  (setvar "CMDECHO" 0)
  (princ)
)

(defun @CMDLA1 ()
  (setvar "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" rmode)
  (setvar "plinewid" pw)
  (princ)
)

(defun @ukword (bit kwd msg def / inp)
  (if (and def (/= def ""))
    (setq msg (strcat "\n" msg "<" def ">:")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ":"))
  )
  (initget bit kwd)
  (setq inp (getkword msg))
  (if inp
    inp
    def
  )
)
(DEFUN PXYP (TXT1)
  (SETQ        TXT1 (STRCAT "\n\r      程序命令: "
                     TXT1
             )
  )
  (PRINC TXT1)
  (Princ)
)
(pxyp "RQ  (日期)")
(princ)
[/php]

xgwl

最初由 andyhua5240 发布
[B]谢谢斑竹，程序非常的实用好用，能不能加上选文字样式呀？
谢谢！ [/B]

加是可以加！但我编程序的观点就是方便、实用为主！ 本来这个小程在画图中就不是很常用的，所以只是自己用用的！看到有那么多网友对此兴趣，才发上来的！而且大多数情况下，小程序是用来修改日期用的，直接写入文字机会很小！就象"dtext"命令一样，启动后也没有要求选择字体样式啊！ 只是个人关点~~~ 如果大家都认为要加上的话，我也可改良这个小程序~~~

jchang

有没有用vba代码编的啊

hc1975

一个小小的程序斑竹想的这么仔细,厉害啊

zk_hisen

要不人家怎么说也是版主啊。呵呵。佩服！

cy956

doslib

dos_date        (dos_date [date])   返回或设定当前系统时间
  Examples
    (dos_date)
    (dos_date "1-1-2000")
--------------------
dos_time        (dos_time [time])  返回或改变当前系统时间
  Examples
    (dos_time)                "11:57:43a"
    (dos_time "17:00")
--------------------
*dos_cdate,(dos_cdate format)
  系统时间的返回格式
  %a 简短星期  %A 星期
  %b 简短月  %B 月
  %c 当地的日期和时间
  %d 一月内的日期(01 – 31)
  %H 24小时（00 – 23)
  %I 12小时(01 – 12)
  %j 一年内的日期(001 – 366)
  %m 一年内的月份(01 – 12)
  %M 一小时内的分钟(00 – 59)
  %p 现在时间 A.M./P.M. 12小时制
  %S 一分钟内的秒(00 – 59)
  %U 一年内的星期(00 – 53) ，以星期天为头
  %W 一年内的星期(00 – 53)，以星期一为头
  %w 一星期内的第几天(0 – 6; Sunday is 0)
  %x 当地日期
  %X 当地时间
  %y 两位年份(00 – 99)
  %Y 四位年份
  %z or %Z 时区全称或简写; no characters if time zone is unknown
  %% 百分数

  %#a, %#A, %#b, %#B, %#p, %#X, %#z, %#Z, %#%
                # flag is ignored.
  %#c         Long date and time representation, appropriate for current locale.
                For example: “Tuesday, March 14, 1995, 12:41:29”.
  %#x         Long date representation, appropriate to current locale.
              For example: “Tuesday, March 14, 1995”.
  %#d, %#H, %#I, %#j, %#m, %#M, %#S, %#U, %#w, %#W, %#y, %#Y
              Remove leading
  (dos_cdate "%m/%d/%y")－－》"01/09/02"
  (dos_cdate "%A, %B %d, %Y")－－》"Wednesday, January 09, 2002"
  (dos_cdate "Today is %A, day %d of %B in the year %Y.")
    －－》"Today is Wednesday, day 09 of January in the year 2002."