1.;;插入系统日期(DEFUN C:wltime()(setq pt0 (getpoint "\n请指定插入位置点 :")) (setq xdate (menucmd "M=$(edtime,$(getvar,date), YYYY.0M.DD.)"))(command "text" "j" "m" pt0 5.0 0 xdate )(princ))2.命令:MODEMACRO然后输入:$(edtime,$(getvar,date), YYYY.0M.DD.)
(DEFUN C:wltime()
(setq pt0 (getpoint "\n请指定插入位置点 :"))
(setq xdate (menucmd "M=$(edtime,$(getvar,date), YYYY.0M.DD.)"))
(command "text" "j" "m" pt0 5.0 0 xdate )
(princ)
)
2.命令:MODEMACRO
然后输入:$(edtime,$(getvar,date), YYYY.0M.DD.)
3.在打印对话框中可以选择是否要打印戳记。
