669423907 发表于 2017-10-3 12:07:02

帮忙看一下有关于时间差的程序，运行不了

我想要 (if (< time 6) 为判断条件，但是 (setq time (- time2 time1)) 不知道为什么不行，麻烦大师们帮看一下，谢谢了

(defun timea()
(setq time1 (menucmd "M=$(edtime,$(getvar,date),YYMODDhhmmss)") ))

(defun timeb()
(setq time2 (menucmd "M=$(edtime,$(getvar,date),YYMODDhhmmss)"))
(setq time (- time2 time1)) )

(defun xgbzzg()(timeb)
(if (< time 6)(progn
(setq ss (ssadd))
(setq ss (ssadd (entlast) ss))
(command "Select" ss "")
(setq dim (ssget "p" '((0 . "dimension"))))
(if (/= dim nil)(progn (sssetfirst nil dim)(bzzg) ))
(if (= dim nil)(bz0) ))
(bz0) ) )

(defun bz0()(weizhi)
(command "dimlinear" o o o)
(setq dim (ssadd))
(setq dim (ssadd (entlast) dim))
(sssetfirst nil dim)(bzzg) )

xiang19751218 发表于 2017-10-3 12:07:03

(defun timea( )
(setq time1 (menucmd "M=$(edtime,$(getvar,date),YYMODDhhmmss)") )
(setq time1 (atof time1))
)

(defun timeb( )
(setq time2 (menucmd "M=$(edtime,$(getvar,date),YYMODDhhmmss)"))
(setq time2 (atof time2))
(setq time (- time2 time1))
)

669423907 发表于 2017-10-3 15:54:45

xiang19751218 发表于 2017-10-3 12:07
(defun timea( )
(setq time1 (menucmd "M=$(edtime,$(getvar,date),YYMODDhhmmss)") )
(setq time1 (ato ...

非常感谢你，方便解释一下 atof 吗？

669423907 发表于 2017-10-3 15:57:28

字窜符转实数
页: [1]
查看完整版本: 帮忙看一下有关于时间差的程序，运行不了