[Владимир М]

Программа для вставки текущей даты в форматку

Код:

[Выделить все]

(defun c:date_MV( / dat tday tmon tyer strok pt pt1 old_cmd)

 (setq old_cmd  (getvar "CMDECHO"))
 (setvar "CMDECHO" 0)

 (setq dat (itoa (fix(getvar "CDATE")))
      tday (substr dat 7 2)
      tmon (substr dat 5 2)
      tyer (substr dat 3 2) 
    strok (strcat "" tday "." tmon "." tyer "")
        pt (getpoint "\nТочка вставки текста: ")
 )
 (setq pt (list (+(car pt) 1.) (+(cadr pt) 1.)))
 (setq pt1 (list (+(car pt) 8.) (+(cadr pt) 0.)))
 (COMMAND "_TEXT" "_f" pt pt1 3.0 strok)
 (setvar "CMDECHO" old_cmd)
 (princ)
)

особенность программы не работает (пишет "0"), если в текстовом стиле стоит фиксированная высота текта

[Владимир М]

Форматку можете взять у Дениса Флюстикова (ЕСКД) или у меня (СПДС) с http://www.autocad.ru/cgi-bin/f1/board.cgi?t=26477ox

[Геннадий aka PG]

А где ты эту программу взял?

[favorite]

А зачем она нужна программа. Можно Field использовать и начертеже будет дата печати листа??? Очень удобно.

[gest]

Да исправьте же название темы :)

[Владимир М]

Геннадий aka PG А где ты эту программу взял?

Припоминаю, вроде с вашего сайта и называлась эта программа wndate.lsp
Эта программа вставляла на чертеж текущее время и расположение данного файла на компьютере. А мне нужно было, только текущая дата в другой интерпретации для вставки в таблицу форматки даты вот пришлось на базе wndate.lsp сделать что-то иное. Спасибо Геннадию Поспелову!

favorite А зачем она нужна программа. Можно Field использовать и начертеже будет дата печати листа??? Очень удобно.

Наверно уже понятно, чтобы вписалась в 10-ти мм рамку таблицы

[Димас]

Сообщение от favorite А зачем она нужна программа. Можно Field использовать и начертеже будет дата печати листа??? Очень удобно.

может для людей со старой версией автокада? где еще нет поддержки полей?

[VVA]

особенность программы не работает (пишет "0"), если в текстовом стиле стоит фиксированная высота текта

Лишилась этой особенности. Приобрела новые - корректно обрабатывается OSMODE, высота текстса всегда 3 ед, независимо от того, что там фиксированно выставили

Код:

[Выделить все]

(defun c:date_MV( / dat tday tmon tyer strok pt pt1 old_cmd osm *error*)
 (defun *error* (msg)(princ msg)(setvar "OSMODE" osm))
 (setq old_cmd  (getvar "CMDECHO")
           osm  (getvar "OSMODE")) 
 (setvar "CMDECHO" 0)
  
 (setq dat (itoa (fix(getvar "CDATE"))) 
      tday (substr dat 7 2) 
      tmon (substr dat 5 2) 
      tyer (substr dat 3 2) 
    strok (strcat "" tday "." tmon "." tyer "") 
        pt (getpoint "\nТочка вставки текста: ") 
 ) 
 (setq pt (list (+(car pt) 1.) (+(cadr pt) 1.))) 
 (setq pt1 (list (+(car pt) 8.) (+(cadr pt) 0.)))
 (setvar "OSMODE" 0) 
(if (zerop (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))))
     ;; нулевая высота текста
      (COMMAND "_TEXT" "_f" pt pt1 3.0 strok)
     ;; фиксированнная высота
      (COMMAND "_TEXT" "_f" pt pt1 strok))
 ;;;Высота 3 =====
 (setq strok (entget(entlast))) 
 (setq strok (subst (cons 40 3.0)(assoc 40 strok) strok))
 (entmod strok)
 ;;;======  
 (setvar "CMDECHO" old_cmd) 
 (setvar "OSMODE" osm) 
 (princ) 
)

[Геннадий aka PG]

Сообщение от Владимир М Геннадий aka PG А где ты эту программу взял? Припоминаю, вроде с вашего сайта и называлась эта программа wndate.lsp Эта программа вставляла на чертеж текущее время и расположение данного файла на компьютере. А мне нужно было, только текущая дата в другой интерпретации для вставки в таблицу форматки даты вот пришлось на базе wndate.lsp сделать что-то иное. Спасибо Геннадию Поспелову!

Я почему спросил- Сам тут делал подобную, выкидывая из wndate "лишнее" и никуда не выкладывал. И очень удивился, когда увидел почти анаалогичную, совпадение % 95 !!!
Даже и подумать не мог что старую прогу кто-то еще использует
Спасибо!

[Владимир М]

Проверь код, VVA, что-то он не хочет работать
Проверь кусок

Код:

[Выделить все]

(if (zerop (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))) 
     ;; нулевая высота текста 
      (COMMAND "_TEXT" "_f" pt pt1 3.0 strok) 
     ;; фиксированнная высота 
      (COMMAND "_TEXT" "_f" pt pt1 strok))

Что то нехватает или что-то не то?
Но все равно спасибо!

[VVA]

У меня работает. Попробуй кусок заменить на

Код:

[Выделить все]

(if (zerop (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))))
  (COMMAND "_TEXT" "_j" "_f" pt pt1 3.0 strok) ;_ нулевая высота текста Будет запрос высоты
  (COMMAND "_TEXT" "_j" "_f" pt pt1 strok)     ;_ фиксированнная высота Запроса не будет
  );_end of if

[Эдуард]

Код:

[Выделить все]

(defun insert_data ()
  (if
    (setq txtpoint (getpoint "\n Введите точку вставки текста:"))
     (progn
       (setq
	 txt (vla-addtext
	       (vla-get-block
		 (vla-get-ActiveLayout
		   (vla-get-ActiveDocument (vlax-get-acad-object))
		 )
	       )
	       (menucmd "M=$(edtime,$(getvar,date),DD\".\"MO\".\"YY)")
	       (vlax-3d-point txtpoint)
	       3

	     )
       )
       (vla-put-alignment txt acalignmentfit)
       (vla-put-TextAlignmentPoint
	 txt
	 (vlax-3d-point (mapcar '+ '(8 0 0) txtpoint))
       )
     )
  )
  (princ)
)

[Владимир М]

VVA
Вот теперь другое дело – просто супер, все получается!

Код:

[Выделить все]

(defun c:date_MV( / dat tday tmon tyer strok pt pt1 old_cmd osm *error*) 
 (defun *error* (msg)(princ msg)(setvar "OSMODE" osm)) 
 (setq old_cmd  (getvar "CMDECHO") 
           osm  (getvar "OSMODE")) 
 (setvar "CMDECHO" 0) 
  
 (setq dat (itoa (fix(getvar "CDATE"))) 
      tday (substr dat 7 2) 
      tmon (substr dat 5 2) 
      tyer (substr dat 3 2) 
    strok (strcat "" tday "." tmon "." tyer "") 
        pt (getpoint "\nТочка вставки текста: ") 
 ) 
 (setq pt (list (+(car pt) 1.) (+(cadr pt) 1.))) 
 (setq pt1 (list (+(car pt) 8.) (+(cadr pt) 0.))) 
 (setvar "OSMODE" 0) 
(if (zerop (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))) 
  (COMMAND "_TEXT" "_j" "_f" pt pt1 3.0 strok) ;_ нулевая высота текста Будет запрос высоты 
  (COMMAND "_TEXT" "_j" "_f" pt pt1 strok)     ;_ фиксированнная высота Запроса не будет 
  );_end of if
 ;;;Высота 3 ===== 
 (setq strok (entget(entlast))) 
 (setq strok (subst (cons 40 3.0)(assoc 40 strok) strok)) 
 (entmod strok) 
 ;;;======  
 (setvar "CMDECHO" old_cmd) 
 (setvar "OSMODE" osm) 
 (princ) 
)

И не забудьте макрос кнопки ^C^C^P(progn(if (= C:date_MV nil)(load "date_MV")));date_MV;
Спасибо VVA – просто супер!

[Владимир М]

Эдуард
Интересное начало

Код:

[Выделить все]

 (defun insert_data () 
  (if 
    (setq txtpoint (getpoint "\n Введите точку вставки текста:"))

AutoCAD ругается и говорит, что не знает такой команды

[Startrek]

Для тех у кого престарелый акад (до 2006/2007) но наличие EXPRESS TOOLS обязательно скачайте с моего сайта за номером 42, все основано на REMOTE TEXT
http://home.pacifier.com/~nemi

[VVA]

>Владимир М

AutoCAD ругается и говорит, что не знает такой команды

Автокад прав :!: Такой команды нет, есть функция и ее нужно вызывать (insert_data). Если хочешь команду, то объяви так

Код:

[Выделить все]

(defun C:insert_data () 
(vl-load-com)
  (if 
    (setq txtpoint (getpoint "\n Введите точку вставки текста:"))
...

Обязательно добавь (vl-load-com) для загрузки vla-* функций

[p_sh]

offtop
в аллплане есть атрибут дата и время (изменяется в реальном времени), который можно вставить в чертеж (типа как текст)

[VVA]

>p_shИменно это и предложил Startrek. В экспрессах есть RTEXT, который понимает DIESEL язык.

[Олег К.]

Возник тут вопросик один, вроде в тему.
Необходимо программно (LISP) проверять дату создания чертежа. Есть команда TIME, но как из нее достать нужные данные? Может есть какая vla-функция, перерыл все книги и хелп - ничего похожего не обнаружил.
Поскольку это нужно грузить из acad.lsp, то (command "_time" "") уже не работает.

[p_sh]

можно попробовать использовать API функции операционной системы - тама обязательно должно быть

или
на vba

c = VBA.FileSystem.FileDateTime