[Bdod]

Всем доброго времени суток!
Посмотрел поисковик ... найти не удалось... решил спросить:
есть чертеж, в модели сам чертеж, в лайёте его конечный вид, рамки видовые экраны и т.д. Вот хочу узнать как сделать так чтобы в нем еще отображалась строчка (желательно знать как ее форматировать по положению, размеру шрифту и т.д.) в которой указывался бы полный или не полный адрес чертежа на жестком диске? как это сделать?

[Геннадий 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) 
)
//

[Krieger]

Пиши текст (_Mtext), в текстовом поле кликаешь правой кнопкой, выбираешь Insert Field (вставить поле) в появившмся окошке выбрать следующие параметры:
Категория - document
Имя - Filename
Остальное - сам выбери по вкусу

Это для версии када, э... когда поля-то появились... с 2005 или 2006... не помню

[Yura]

Дык можна ж в любое место чертежа вставить мтекст, в котором определить поле (field) с именем и адресом файла. Сам этим пользуюсь прямо из шаблона. Смотри на скриншот и сравни то, что показывает поле и адрес файла, что наверху самого окна автокада. По-моему и никаких прог не надо.
[ATTACH]1179984981.JPG[/ATTACH]
PS: 2 Krieger: молодец, печатаешь намного быстрее меня, обошел!!!

[Butenko]

Я пользуюсь плотстамп`ом - в меню печати ставим галочку и настраиваем положение, шрифт, размер, что печатать (у меня - "адрес" + "логин" + "дата"

[Батька Сашка]

только путь -

Код:

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

%<\AcVar Filename \f "%fn1">%

только имя файла -

Код:

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

%<\AcVar Filename \f "%fn6">%

путь и имя файла -

Код:

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

%<\AcVar Filename \f "%fn7">%

в редакторе текста Ctrl+F

[Bdod]

всем спасибо за участие...
мультитекст-поле-и все ОК!

[T-Yoke]

Сообщение от Krieger Пиши текст (_Mtext), в текстовом поле кликаешь правой кнопкой, выбираешь Insert Field (вставить поле) в появившмся окошке выбрать следующие параметры: Категория - document Имя - Filename ...

Для полного адреса надо еще ввести команду Fileprefix
и сложить с значением поля Filename

[Yura]

Сообщение от Bdod мультитекст-поле-и все ОК!

Именно так и больше ничо ненада :idea:

[Vova]

Полезно добавить кто и когда распечатал чертеж

[Хмурый]

Есть такая вещь, как Plot Stamp.
Находится в диал. окне команды _plot
Там можно настроить распечатку имени файла, времени печати и т. д.

[Yura]

Сообщение от Vova Полезно добавить кто и когда распечатал чертеж

А это через што можно зделать? Может через Plot Stamp, о котором писал Хмурый?

[Butenko]

Сообщение от Хмурый Есть такая вещь, как Plot Stamp. Находится в диал. окне команды _plot Там можно настроить распечатку имени файла, времени печати и т. д.

:shock: см. пост №5

[Хмурый]

Сообщение от Butenko Сообщение от Хмурый Есть такая вещь, как Plot Stamp. Находится в диал. окне команды _plot Там можно настроить распечатку имени файла, времени печати и т. д. :shock: см. пост №5

Ага, проморгал...

[Yura]

Дык там (в Plot Stamp) тока, наскока я понял:
имя чертежа,
имя layout-a,
время,
логин,
имя устройства и т.п.
Последние 2 не понял, если кто напишет попроще, зараннее благодарен

[Butenko]

Удалил. (проблеммы с сеткой - продублировал случайно)

[Butenko]

Хмурый [sm206] Butenko

Надо чаще встречаться

[Yura]

Сообщение от Butenko Хмурый [sm206] Butenko Надо чаще встречаться

Тоже вариант, были бы поближе, можно было бы классически, на троих

[Bdod]

хм... у мя проблема вышла... :shock:
вставил поле... все в порядке.. сохранил... закрыл...
опять открыл а там вместо адреса чертежа ироглифы???
[ATTACH]1180008534.JPG[/ATTACH]

[Yura]

Странно, а мой скриншот видел? (сообщ. №4) Там все путем.... Может гуру че посоветуют...
Кстати, а че у тя адрес не на сером фоне, как должно быть поле?

[Bdod]

так вот и мне непонятно почему у меня на половину ироглифы а на половину нормально.... при этом шрифт меняется на какойто SimSam чтоли... которого у мя вообще нету...

[Yura]

А еси зделать по-новому мтекст с полями, а тот удалить?
А еси в другом файле (с другой дислокацией)?

[Bdod]

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

[Bdod]

ну не знаю... для ариала в другом файле вроде все показало....

[Yura]

Может те просто мтекст с полями другим шрифтом сделать (я, напр., пользуюсь romans.shx)? чем черт (автокад) не шутит?

[Батька Сашка]

а может путь слишком длинный, да еще в кирилице

[Yura]

Сообщение от Батька Сашка а может путь слишком длинный, да еще в кирилице

Скорее всего тут дело не в этом

[Батька Сашка]

Сообщение от Yura Сообщение от Батька Сашка а может путь слишком длинный, да еще в кирилице Скорее всего тут дело не в этом

судя по вложению трабла именно там, где начинается длинный путь, ведь 021 отображается. хотя утверждать не буду
Может стоит попробовать сохранить в Z:/Чертежи/Чертеж.dwg и посмотреть что будет

[Yura]

Все равно не в этом, цифры (021) всегда отображаюццо корректно в любом шрифте, а вот для букв я и посоветовал бы сменить шрифт...
Думаю, что не все, даже трутайповские шрифты, корректно отображаюццо через field...
Надо попробовать через шрифт *.shx!!!!
А может интервал не понятен 4,1667?

[CERTILA]

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

[sasha_lif]

CERTILA,
Молодец! FAQ
Filedia
1