• VADIK
  • Восстановленный участник
  • На форуме с 8 ноября 2003г.
  • Сообщений: 186
  • Спасибо: 0

Тема: Как правильно описать и вставить дату при помощи DIESEL?

Как правильно описать и вставить дату при помощи DIESEL?

  • VADIK
  • Восстановленный участник
  • На форуме с 8 ноября 2003г.
  • Сообщений: 186
  • Спасибо: 0

Re: Как правильно описать и вставить дату при помощи DIESEL?

> VADIK
$(edtime, 00, DD.MO.YY"-"HH":"MM)

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как правильно описать и вставить дату при помощи DIESEL?

Как вариант:

(defun kpblc-text-plus-date (startmsg endmsg / _cdate_ _year_ _month_ _day_)
  (setq    _cdate_    (itoa (fix (getvar "cdate")))
    _year_    (substr _cdate_ 1 4)
    _month_    (substr _cdate_ 5 2)
    _day_    (substr _cdate_ 7 2)
    ) ;_ end of setq
  (strcat startmsg _day_ "." _month_ "." _year_ " " endmsg)
  ) ;_defun
(defun c:kpblc-text (/ text_height)
  (if (= (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))) 0.0)
    (setq text_height "\nВведите высоту текста : <Выход> ")
    (setq text_height (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))))
    ) ;_ end of if
  (cond
    ((= text_height nil) (princ))
    ((= text_height 0.0) (princ "\nНе указана высота текста. Выход "))
    (t
     (command "_.text"
          "_j"
          "_mc"
          pause
          text_height
          0.0
          (kpblc-text-plus-date "" "")
          ) ;_ end of command
     )
    ) ;_ end of cond
  (princ)
  ) ;_ end of defun

Для Diesel вариант не очень - текстовый стиль может иметь 0 высоту, и тогда надо будет делать отдельный макрос на этот вариант (один дополнительный запрос)
---
ИМХО

  • Откуда: Москва
  • На форуме с 2 июля 2004г.
  • Сообщений: 2,538
  • Спасибо: 10

Re: Как правильно описать и вставить дату при помощи DIESEL?

> VADIK
Попробуй так:

^C^Ctext \\ $M=$(edtime,$(getvar,date),DD.MON.YYYY);

Это макрос на кнопку...