请问怎么改才能输出两个日期

lzg8877

  那位朋友帮个大忙  输出日期两个左右距离为26
      (defun C:rt( / date0 pt0)    (setq pt0 (getpoint "\n请指定插入位置点 :")
          wzgd (getvar "textsize"))
    (setvar "textsize" 2.7)
         (setq date0 (menucmd "M=$(edtime,$(getvar,date),YYYY\".\"M\".\"DD\" \")"))
    (command "text" "j" "bl"  pt0 "" 0 date0)
    (setvar "textsize" wzgd)
    (princ)
)


同时再问一下如何可以让程序先显示0.0 再拉出线条 要个预显位置的效果
(defun c:qw ()
(setvar "CMDECHO" 0) (setq p1 (getpoint "\nStart point :")      
p2 (getpoint p1 "\nEnd point :"))
(command "_.line" p1 p2 ^C "_.TEXT" "M" (polar p2 (angle p1 p2) 2) 2.3 0 "0.0") (setvar "CMDECHO" 1)
(princ)
)   ;LEADER

Andyhon

这样可以吗?
Copy 13.10.30 至右方26定点
更改成新的字串值

lzg8877

能帮忙写一下吗  我不太会

lzg8877

请问有没有例子 来一个我可以学着改

ZZXXQQ

2. (defun C:rt( / date0 pt0)
   
3. (setq pt0 (getpoint "\n请指定插入位置点 :")
   
4.        wzgd (getvar "textsize"))
   
5. (setvar "textsize" 2.7)
   
6. (setq date0 (menucmd "M=$$(edtime,$$(getvar,date),YYYY"."M"."DD" ")"))
   
7. (command "_.TEXT" pt0 "" 0 date0)
   
8. (command "_.TEXT" (polar pt0 0 26) "" 0 date0)
   
9. (setvar "textsize" wzgd)
   
10. (princ)
    
11. )
    

(defun C:rt( / date0 pt0)<br /> (setq pt0 (getpoint "\n请指定插入位置点 :")<br />        wzgd (getvar "textsize"))<br /> (setvar "textsize" 2.7)<br /> (setq date0 (menucmd "M=$$(edtime,$$(getvar,date),YYYY"."M"."DD" ")"))<br /> (command "_.TEXT" pt0 "" 0 date0)<br /> (command "_.TEXT" (polar pt0 0 26) "" 0 date0)<br /> (setvar "textsize" wzgd)<br /> (princ)<br /> )<br />