[sasha_lif]

Подскажите, пожалуйста, как при нажатии кнопки печать, автоматически добавить на чертеж имя файла и текущую дату?
заранее спасибо всем

[Кулик Алексей aka kpblc]

Штамп печати
---
Добавлено:
Ну или поле: Дата и время - дата печати.

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

а можно используя эту прогу

Код:

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

;;------------> Программа записи имени файла и даты на чертеж <-----------
;;
;;          ©  PG Single Soft  
;;     E-mail: gepos@mail.ru
;;   G.I.G.O. - Garbage In, Garbage Out
;;                                       Last Modify: 14.05.99
;;       02.08.2001 замечена особенность программа не работает (пишет "0")
;;     если в текстовом стиле стоит фиксированная высота текта
;;
;;------------> WNDATE <--------------------------------------------------
(defun c:wndate( / nam  dat tday tmon tyer strok1 strok2 pt old_cmd)

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

 (setq dat (itoa (fix(getvar "CDATE")))
       nam (getvar "DWGNAME")
     nam (strcat (getvar "DWGPREFIX")(getvar "DWGNAME"))
      tday (substr dat 7 2)
      tmon (substr dat 5 2)
      tyer (substr dat 1 4) 
    strok1 (strcat "File name:" nam "  Дата:" tday "-" tmon "-" tyer "г")

  strok1 (strcat "File name: " nam )
  strok2 (strcat "Дата: " tday "-" tmon "-" tyer "г")
        pt (getpoint "\nТочка вставки текста: ")
 )
 (COMMAND "TEXT" pt 2.0 0 strok1)
 
 (setq pt (list (car pt) (-(cadr pt) 3.)))
 (COMMAND "TEXT" pt 2.0 0 strok2)
 (setvar "CMDECHO" old_cmd)
 (princ)
)
;;------------> END of CODE <---------------------------------------------

(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) 
)

[sasha_lif]

>Кулик Алексей aka kpblc
Sorry, забыл сказать, что автокад 2004, а там, по-моему нет таблиц (или что имеется ввиду под словом поле?)и штамп печати plese, более подробно

>Геннадий aka PG. Спасибо. Дойду до автокада помотрю. Спасибо еще раз за Lisp

[Bull]

Сообщение от Кулик Алексей aka kpblc Штамп печати --- Добавлено: Ну или поле: Дата и время - дата печати.

Лучше полем. А то просто галочка на "stamp plot on" приводит к тому, что надо чертеж пересматривать для того, чтобы инфа его не перекрывала. Ну или настраивать долго размещение инфы.

Про штамп: В окне печати АвтоКАД посмотри. Там должна быть строчка такая "stamp plot on" Когда нажата, справа появляется кнопка настройки штампа.

Про поле: В меню INSERT выбери "FIELD" и настрой.

[Andi55]

Только поле (field)
Вставишь, куда хочешь, почти все, что в голову взбредет, настроишь свой любимый стиль текста - в результате получишь 100% визивиг. Не надо программиррования на лиспе, чем проще - тем оно надежнее.

[Кулик Алексей aka kpblc]

Bull, Andi55, в 2004-м нет еще полей. Поэтому либо штамп печати, либо (если есть Express Tools) можно попробовать RTEXT (но я с ним почти не работал).

[Bull]

kpblc, я вижу, что у тебя все АКАД установлены... Как ты в таком количестве версий не путаешься? (вопрос риторический)

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

Сообщение от Bull kpblc, я вижу, что у тебя все АКАД установлены... Как ты в таком количестве версий не путаешься? (вопрос риторический)

У него для каждой версии свой комп! (я так думаю)

[Bull]

Ааааа.... Студент у него набирается опыта на 14-м, выпускник на 2000-м, с годом стажа - на 2000i , два года - на 2002-м и т.д. )))))

[Хмурый]

Он, Kpblc, то-есть, вообще в AutoCAD'е не работает.
(это справочная информация)

[Кулик Алексей aka kpblc]

Bull, путаюсь не я, путается комп обычно
Геннадий aka PG, почти. На критичных вещах VMWare рулит
Хмурый, ну вот... Все тайны выдал

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

Сообщение от Кулик Алексей aka kpblc VMWare рулит

У него еще и персональный водительша В.М.Варя !!!!
Везет же

[Кулик Алексей aka kpblc]

Ага, как увезет, так "туши свет, сливай воду"

[Alan]

Сообщение от sasha_lif Подскажите, пожалуйста, как при нажатии кнопки печать, автоматически добавить на чертеж имя файла и текущую дату? заранее спасибо всем

Насчет "Штемпель Вкл" это понятно.
Вставлю свои 5 (пять) копеек.
Я у себя в проге ставлю имя файла при открытии чертежа с координатами +1,+1мм от левого нижнего угла изображений.
И при выполнении команды штамп с координатами +1,+1мм от левого нижнего угла внешней рамки.
Не спрашивая пользователя. Очень потом помогает при поисках, так как документооборота до сих пор нет.

[sasha_lif]

(А 2004) а как можно вставить значение даты и имени файла в АТРИБУТ БЛОКА (ну, например date_file )?

попробовал написать свой вариант простановки даты, исправив неувязку , если уже задана фиксированная высота текста. Для этого ввел переменную h_ , а ее значение задаю из другого Лиспа, определяющего размеры необходимой высоты

Код:

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

;;------------> Программа записи имени файла и даты на чертеж <-----------

(defun c:date()

(setq old_cmd  (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(Command "-Style"  "standard"  ""  "0"  ""  ""  ""  ""  "" )
(setq dat (getvar "CDATE"))
(setq nam (getvar "DWGNAME"))

;(setq nam (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")))
(setq nam (getvar "DWGNAME"))

(setq mon1  (fix  (/ dat 100)))
(setq mon2 (* (fix (/ mon1 100)) 100))
(setq tmon (itoa (- mon1 mon2)))		; получение месяца

(setq day1  (fix  (/ dat 1)))
(setq day2 (* (fix (/ day1 100)) 100))
(setq tday (itoa (- day1 day2)))		; получение дня

(setq tyer (itoa (fix (/ dat 10000))))		; получение года

(setq strok1 (strcat "File:" nam "  Дата:" tday"-" tmon "-" tyer "г"))
(setq pt (getpoint "\nТочка вставки текста: "))

(COMMAND "TEXT" pt h_ 90 strok1)

(Command "-Style"  "standard"  ""  h_  ""  ""  ""  ""  "" )
(setvar "CMDECHO" old_cmd)
(princ)
)

Извиняююсь, что-то у меня не срабатывает тег "CODE" для преобразования в код этого лиспа.

И все-таки как поместить в атрибут дату с возможностью обновления?

[Кулик Алексей aka kpblc]

Код:

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

(defun c:ins-date (/ pt txt_height dat)
  (vl-load-com)
  (if
    (and
      (=
        (type (setq
                pt (vl-catch-all-apply
                     '(lambda () (getpoint "\nТочка вставки текста <Отмена> : "))
                     ) ;_ end of vl-catch-all-apply
                ) ;_ end of setq
              ) ;_ end of type
        'list
        ) ;_ end of =
      (member (type (setq txt_height
                           (vl-catch-all-apply
                             '(lambda (/ def)
                                (setq def
                                       (if (= (cdr (assoc 40
                                                          (entget (tblobjname
                                                                    "style"
                                                                    (getvar "textstyle")
                                                                    ) ;_ end of TBLOBJNAME
                                                                  ) ;_ end of entget
                                                          ) ;_ end of assoc
                                                   ) ;_ end of cdr
                                              0.
                                              ) ;_ end of =
                                         (getvar "textsize")
                                         (cdr
                                           (assoc
                                             40
                                             (entget
                                               (tblobjname "style" (getvar "textstyle"))
                                               ) ;_ end of entget
                                             ) ;_ end of assoc
                                           ) ;_ end of cdr
                                         ) ;_ end of if
                                      ) ;_ end of setq
                                (cond
                                  ((getdist (strcat "\nВысота текста <"
                                                    (rtos def)
                                                    "> :"
                                                    ) ;_ end of strcat
                                            ) ;_ end of getdist
                                   )
                                  (t def)
                                  ) ;_ end of cond
                                ) ;_ end of lambda
                             ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              (list 'real 'int)
              ) ;_ end of member
      ) ;_ end of and
     (progn
       (setq date (itoa (fix (getvar "cdate")))
             date (strcat (substr date 7)
                          "-"
                          (substr date 5 2)
                          "-"
                          (substr date 1 4)
                          " г"
                          ) ;_ end of strcat
             ) ;_ end of setq
       (entmakex (list '(0 . "TEXT")
                       '(100 . "AcDbEntity")
                       '(100 . "AcDbText")
                       (cons 10 pt)
                       (cons 40 txt_height)
                       (cons 1 date)
                       (cons 50 (/ pi 2.0))
                       (cons 7 (getvar "textstyle"))
                       ) ;_ end of list
                 ) ;_ end of entmakex
       ) ;_ end of progn
     ) ;_ end of if
  ) ;_ end of defun

2004-го нет, так что проверка на твоей совести. Автоматически обновлять - только если через rtext, но я DIESEL уже не помню совсем

[sasha_lif]

>Кулик Алексей aka kpblc
>Alan
А как выглядит lisp для простановки даты в АТРИБУТ БЛОКА?
Без указания точек вставки и высоты текста.
Где-то здесь брал программу по автоматической нумерации листов с простановкой порядкового номера через атрибут,
хотелось-бы чего-нибудь подобного:select-all, автоматом находит блоки в пространстве model и прооставляет имя файла в атрибут блока

(полностью согласен Alan что пользователя ничего не должны спрашивать)
Подскажите пожалуйста, как сделать этот lisp.

[Кулик Алексей aka kpblc]

Да в общем-то точно так же. Получаешь указатель на атрибут и меняешь ему либо TextString, либо группу 1 (для варианта DXF и entmod). Подробности зависят от того метода, который ты изберешь.

[PL]

Вот такои штамп:
$(getvar, "dwgprefix")$(getvar, "dwgname") $(edtime, 0, MON DD"," YYYY - H:MMam/pm) $(getvar, "loginname")
Все было нормально, теперь в 2004 каде вижу только крест вместо штампа, в 2009 вроде нормально...
В чем может быть дело?

[Кулик Алексей aka kpblc]

А "штамп" - это поле или RTEXT?

[PL]

Сообщение от Кулик Алексей aka kpblc А "штамп" - это поле или RTEXT?

сделано давно для acad2004- rtext

[PL]

Не поиму, все заработало вроде (не работало пару месяцев). запустил команду ртехт, крест превратился в нормальный штамп.
Глюки какие то.

[PL]

у меня какие то проблемы (у всех в офисе) , при перезагрузке автокада, строчка rtext не видна, виден только прямоугольник с перекрестием вместо него. запускаешь команду rtext-идет запрос "enter an option" - в этот момент прямоугольник с перекрестием превращается в нормальный техт, нажимаю escape-выхожу из команды. не знаю от чего это происходит, но простейшее решение есть-запустить и прервать команду rtext при старте автокада. Т.е в acad.lsp записать строчку типа (c:rtext), но как прервать команду и выйти?

[Кулик Алексей aka kpblc]

demandload чему равно?
Вариант acad.lsp:

Код:

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

;Старый код

(defun start-rtext()
(command "rtext")
(command)
)

(start-rtext)

Код не гонял на корректность.

[PL]

rtext Unknown command "RTEXT"

у меня комманды expresstools не запускаются лиспом если так:
(command "rtext")
вот так запускаются:
(c:rtext)
но как прервать эту команду?
demandload 3, какие-нибудь рекомендации? буду рад любым рекомендациям

[Кулик Алексей aka kpblc]

Сейчас посмотрел rtext.lsp... Попробуй в acaddoc.lsp (или acad.lsp) прописать

Код:

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

(AcetRText:appload)

[PL]

пишет:
Regenerating model.
AutoCAD Express Tools Copyright © 2002-2003 Autodesk, Inc.
; error: no function definition: ACETRTEXT:APPLOAD
AutoCAD menu utilities loaded.
интересно что с самого начала, год назад все было нормально, потом что то случилось. да и весь автокад (2004) стал нестабильный (переставлял, без эффекта), раза 3 в день зависает намертво когда открываешь рамку например в комаде strech . Может есть связь.

[Кулик Алексей aka kpblc]

Я уже не помню, что и как там было в 2004-м... Попробуй переустановить только ExpressTools.
---
Добавлено: можно попробовать их перезагрузить: сначала выгрузить меню, потом загрузить снова, как описано в справке.