[Соня]

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

[niko]

Есть два поля пользователя в настройках печати. Можно внести в них любую информацию.

Сообщение от niko Есть два поля пользователя в настройках печати. Можно внести в них любую информацию.

а как это делается? точнее для чего нужны эти поля? мне надо ставить дату, могут ли эти поля меняться? автоматически?

[niko]

> Соня
""Файл параметров штемпеля
Сохранение параметров штемпеля в файле с расширением .pss. Один и тот же файл может быть одновременно использован несколькими пользователями, что позволяет стандартизовать штемпели в рамках предприятия.

AutoCAD поставляется с двумя файлами PSS — Mm.pss и Inches.pss,
расположенными в папке Support. Имя исходного файла параметров штемпеля, используемого по умолчанию, зависит от региональных установок операционной системы в момент установки AutoCAD. "


>Гость
Автоматически -нет. Поля предназнчены для внесения допинформации.
Подробно - в справке.

[Torino]

http://www.autokad.ru/forum/viewtopic.php?t=565

[Grinzaid]

Я себе написал лиспик, вставляющий путь+имя или только имя или дату как текст. И только потом я нешёл в ToolPack 5.0 (инсталляшка которого покоится на этом же сайте) ToolPack/Block/Plot Stamp/Insert или Update. Полезная штука.

Код:

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

(defun c:path ()
(setq name (getvar "dwgname"))
(setq prefix (getvar "dwgprefix"))
(setq path (strcat prefix name))
(setq inspointext (getpoint "\Pick an insertion point of string: "))
(command "cmdecho" "1" "")
(command "-style" "Stamp" "txt" "0" "1" "0" "n" "n" "n")
(command "text" inspointext pause  pause path))

(defun c:name ()
(setq name (getvar "dwgname"))
(setq inspointext (getpoint "\Pick an insertion point of string: "))
(command "cmdecho" "1" "")
(command "-style" "Stamp" "txt" "0" "1" "0" "n" "n" "n")
(command "text" inspointext pause pause name))

(load "C:/Program Files/ACAD2000/EXPRESS/julian.lsp")
(defun c:dat (/ j c cdate m d y hh mm ss msec)
(setq inspointext (getpoint "\Pick an insertion point of string: "))
   (setq cdate (jtod (setq j (getvar "date")))
         c (fix cdate)
         y (/ c 10000)              ; Get year
         m (rem (/ c 100) 100)      ; Ger month
         d (rem c 100)              ; Get day
         c (- cdate (fix cdate))    ; Strip date from date/time
         c (fix (* c 1000000000))   ; Scale time to get HHMMSSmmm integer
         hh (/ c 10000000)          ; Get hours
         mm (rem (/ c 100000) 100)  ; Get minutes
         ss (rem (/ c 1000) 100)    ; Get seconds
         msec (rem c 1000)          ; Get milliseconds
   )

   ; Print the day of the week

   ;(princ (nth (jtow j) '("Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat")))
   ;(princ " ")

   ; Print the date.  YYYY/M/D

   (setq attr (strcat (itoa d) "." (itoa m) "." (itoa y)))

(command "cmdecho" "1" "")
(command "-style" "Stamp" "txt" "0" "1" "0" "n" "n" "n")
(command "text" inspointext pause pause attr))


 ; Print the time.  HH:MM:SS.msec

   ;(princ (strcat " " (if (> hh 9) "" "0") (itoa hh)))
   ;(princ (strcat ":" (if (> mm 9) "" "0") (itoa mm)))
   ;(princ (strcat ":" (if (> ss 9) "" "0") (itoa ss)))
   ;(princ (cond ((> msec 99) "."  )
    ;            ((> msec 9)  ".0" )
     ;           (T           ".00")
      ;    )
  ; )
   ;(princ msec)
   ;(terpri)
   ;(princ)
)

[Startrek]

Скачай с моей странички Но.26 или Но.42 если Р2004 (или 2002 с Экспресс Тулс)
http://home.pacifier.com/~nemi