[LISP程序]：修改别人的插入当前时间段!

jeepsheep

(defun c:rq (/ tmp cy cm cd txt txt1 pt1)
  (setq tmp (rtos (getvar "cdate") 2 16))
  (setq cy (rtos (atof (substr tmp 1 4)) 2 0)
cm (rtos (atof (substr tmp 5 2)) 2 0)
cd (rtos (atof (substr tmp 7 2)) 2 0)
)
  (cond ((= cm "1")(setq cm "Jan"))
       ((= cm "2")(setq cm "Feb"))
       ((= cm "3")(setq cm "Mar"))
       ((= cm "4")(setq cm "Apr"))
       ((= cm "5")(setq cm "May"))
       ((= cm "6")(setq cm "Jun"))
       ((= cm "7")(setq cm "Jul"))
       ((= cm "8")(setq cm "Aug"))
       ((= cm "9")(setq cm "Sep"))
       ((= cm "10")(setq cm "Oct"))
       ((= cm "11")(setq cm "Nov"))
       ((= cm "12")(setq cm "Dec"))
  );cond              
  (setq txt (strcat "现在是：" cd "," cm "," cy " ")
txt1 (strcat cd "," cm "," cy " ")
)
  (COMMAND "style" "宋体" "宋体" "300" "1" "0" "" "")
  (alert txt)
  (setq pt1(getpoint"\n\t放置点 : "))
  (command "text" "j" "mc" pt1 "0" txt1)
  (princ)
)


哪位大侠帮忙修改一下,使之变为点选文字使之内容变为当前时间!
恨自己不懂LISP的编写,只会照猫画虎.

xyp1964

重新生成就可以了！
[php]
(defun c:rq (/ tmp cy cm cd hh mm ss ms txt pt1)
  (setq tmp (rtos (getvar "cdate") 2 16));系统当前时间
  (setq       
        cy (rtos (atof (substr tmp 1 4)) 2 0);年
        cm (rtos (atof (substr tmp 5 2)) 2 0);月
        cd (rtos (atof (substr tmp 7 2)) 2 0);日
        hh (rtos (atof (substr tmp 10 2)) 2 0);时
        mm (rtos (atof (substr tmp 12 2)) 2 0);分
        ss (rtos (atof (substr tmp 14 2)) 2 0);秒
        ms(rtos (atof (substr tmp 16 2)) 2 0);毫秒
  )
  (setq txt (strcat "现在是：" cy "年"cm "月" cd "日" hh"时" mm "分" ss "秒" ms "毫秒"))
  (COMMAND "style" "宋体" "宋体" "300" "1" "0" "" "")
  (setq pt1 (getpoint "\n\t放置点 : "))
  (alert txt)
  (command "text" "j" "mc" pt1 "0" txt)
  (princ)
)

[/php]

zk_hisen

这下时间就特别精确了。不过还是弹出对话框比较酷哦。

jeepsheep

我这是为了方便在标题栏写时间的,一般我们只写年月日,不用到时分.
我只会照猫画虎,不会自己编,所以没法满足4楼主的要求,等好心的高手帮忙改吧!

狂刀

最初由 xyp1964 发布
[B]重新生成就可以了！
[php]
(defun c:rq (/ tmp cy cm cd hh mm ss ms txt pt1)
  (setq tmp (rtos (getvar "cdate") 2 16))
  (setq        cy (rtos (atof (substr tmp 1 4)) 2 0)
        cm (rtos (atof (substr tmp 5 2))... [/php][/B]

[php]
(defun c:cd ( / da lst)
  (setq da (rtos(getvar "cdate")2 8)
        lst(mapcar '(lambda(x)(substr da (car x) (cadr x))) '((1 4) (5 2) (7 2) (10 2)(12 2)(14 2)(16 2))))
  (COMMAND "style" "宋体" "宋体" "300" "1" "0" "" "")
  (setq pt1 (getpoint "\n\t放置点 : "))
  (vl-cmdf ".text" "j" "mc" pt1 "0"
  (apply 'strcat (mapcar '(lambda(x y)(strcat x y)) lst '("年" "月" "日" "时" "分" "秒" "毫秒")))
)
    (princ)
)
[/php]

xyp1964

最初由 狂刀 发布
[B][QUOTE]最初由 xyp1964 发布
[B]重新生成就可以了！
[php]
(defun c:rq (/ tmp cy cm cd hh mm ss ms txt pt1)
  (setq tmp (rtos (getvar "cdate") 2 16))
  (setq        cy (rtos (atof (substr tmp 1 4)) 2... [/B]

（100-2）×（100＋2）＝9604
是不是说应该写成：
98×102＝9604

狂刀

什么意思？？不明白

andyhua5240

高手们，能整理一下么？不太明白呀？
谢谢！

yb0642

我也很想学学LISP,一直不得入门,高手们能指条路吗?或者发点基础的教学资料上来?

nore

高手们，能整理一下么？不太明白呀？
谢谢！
CAD中系统时间是用一串数字表示的，找出其规律就能提出当前时间来

to yb0642，注意看看吧，论坛里其实很多基础教程的
如下
http://www.xdcad.net/forum/showthread.php?s=&threadid=316324

yefeng1860

学习一下