lzg8877 发表于 2014-9-29 12:55:17

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

那位朋友帮个大忙输出日期两个左右距离为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 发表于 2014-9-29 14:16:09

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

lzg8877 发表于 2014-9-29 17:51:47

能帮忙写一下吗我不太会

lzg8877 发表于 2014-9-30 06:28:10

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

ZZXXQQ 发表于 2014-9-30 07:59:12

(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" pt0 "" 0 date0)
(command "_.TEXT" (polar pt0 0 26) "" 0 date0)
(setvar "textsize" wzgd)
(princ)
)
页: [1]
查看完整版本: 请问怎么改才能输出两个日期