[ViolentOr]

Доброго времени суток.

Имеется небольшой парк машин с установленным AutoCAD 2008. При открытии проектов выдается консоль с запросом, что де не найден файл форм "WR_forms.shx" (причем в той же консоли выше показывает, что он так же не нашел и некоторые шрифты, но сам их заменил на свои) и просит либо указать новое имя файла либо игнорировать. Файла нет, где взять -- никто не знает, но работе его отсутствие никак не мешает... Казалось бы все нормально, но пользователей данное окно вгоняет в священный ужас и администраторам приходится бегать и жать на enter, что является весьма неприятным фактором.
Отсюда вытекает вопрос -- можно ли как-то указать, что де при отсутствии файла форм просто игнорировать сие обстоятельство и открывать файл as is. Объяснить прошу попроще, ибо AutoCAD не входит в список ПО, которое мне известно досконально, или вообще хоть сколь-либо известно =)

Заранее спасибо за ответ.

[Profan]

Попробуйте такую программу:

Код:

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

 
; Удаление ссылок на .shx (формы)
(Apply '(lambda ()
  (vlax-for item
     (vla-get-textstyles
       (vla-get-ActiveDocument (vlax-get-acad-object))
     )
    (if
      (not
  (vl-filename-extension (setq fname (vla-get-fontfile item)))
      )
       (setq fname (strcat fname ".shx"))
    )
    (if
      (not (findfile fname))
       (vla-put-fontfile item "ltypeshp.shx")
    )
  )
)
'()
)

Автор программы - см. следующее сообщение.

[VVA]

Вариант А
1. Берешь любой файл ФОРМ (см. #5 ) и переименовываешь КОПИЮ в "WR_forms.shx"
2. Кладешь в папку C:\Program Files\AutoCAD 200X\Fonts\
Вариант Б.
1. Убедить пользователя в необходимости нажать ENTER
2. В чертеже выполнить лисп (команда Rshx)

Код:

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

(defun C:RSHX (/ fname ext)
  (vl-load-com)
;;;Загрузить лисп и набрать в командной строке RSHX
;;;Remove missing SHX
;;;Отключения запроса на выбор несуществующего файла форм  
;;;Эдуард Смолянка shx
;;;http://www.caduser.ru/forum/index.php?PAGE_NAME=message&FID=30&TID=16401&PAGEN_1=2
;;;http://www.caduser.ru/forum/index.php?PAGE_NAME=message&FID=4&TID=40408&MID=227420#message227420
;;;http://forum.dwg.ru/showthread.php?t=30595
;;; gile http://www.theswamp.org/index.php?topic=28096.0
  (vlax-for item
                 (vla-get-textstyles
                   (vla-get-activedocument (vlax-get-acad-object))
                 ) ;_ end of vla-get-textstyles
     (setq fname (vla-get-fontfile item))
     (setq fname (vl-string-trim "\" \t\n" fname))
    (if (not
          (vl-filename-extension fname) ;_ end of vl-filename-extension
        ) ;_ end of not
      (setq fname (strcat fname ".shx"))
    ) ;_ end of if
    (if (and
          (setq ext (vl-filename-extension fname))
          (= (strcase ext) ".SHX")
          (= 1
           (logand (cdr (assoc 70 (entget(vlax-vla-object->ename item)))) 1)
          ) ;_ end of =
          (not (findfile fname))
        ) ;_ end of and
      (progn
        (vla-put-fontfile item "ltypeshp.shx")
        (princ "\nChange ")
        (princ fname)
        (princ " on ltypeshp.shx")
      ) ;_ end of princ
    ) ;_ end of if
  ) ;_ end of vlax-for
  (princ)
)
(princ "\nType RSHX in command line to remove missing shape referens")

[ViolentOr]

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


З.Ы. подстановку фонта пробовал (первое, собсно, решение, после того как в консоли увидел мессаги о замене других файлов), но автокад обиделся и заявил, что нех вместо файла форм совать файл шрифта.

[VVA]

ViolentOr, В варианте А необходимо уточнение: Не любой shx, а файл форм, а не шрифта. Поищи на машине "ltypeshp.shx" и переименовывай его КОПИЮ.
Находится примерно здесь
C:\Documents and Settings\Пользователь\Application Data\Autodesk\AutoCAD 200X\RXXX\RUS или EN\Support\

[Profan]

VVA, надо бы уточнить: не просто переименовать сам файл ltypeshp.shx, а переименовать его копию.

[VVA]

Думаю это очевидно, но всякие в жизни встречаются. Дополнил #5

[Hans667]

а вопрос к пользователям PROFAN u VVA, соответственно к постам 2 и 3.От не посвященного:В первом случае вообще не понял какой командой вызывается лисп, а во втором этой? -
change-shape-referens

[VVA]

Hans667, (change-shape-referens) Изменил #3. Теперь там команда RSHX

[Hans667]

В общем все равно не работает
в командной строке пишет что нет описания функции VLAX-GET-ACAD-OBJECT

[vasilyis]

Hans667, Ты загрузил файл лиспа в АКАД, прежде чем этой командой пользоваться.

[VVA]

Попробуй еще раз #3 Добавил (vl-load-com)

[Hans667]

я не понимаю,что у меня одного не рабботает чтоли? теперь написано NIL в комстроке.формы как были так и остались

[VVA]

Hans667, Код удаляет ссылки на ОТСУТСВУЮЩИЕ файлы форм (shx). При открытии файла должен появляться диалог на отсутствующий файл shx.
Обновил №3. Теперь будет печататься какая форма заменена. Код рабочий. Только что еще раз проверил.

[Hans667]

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

[aledan]

Всё работает. И первый лисп и второй, но...
- в первом случае после команд rshx и regenall исчезает весь текст Arial
- во втором исчезает сразу после команды rshx.

Скажите что нужно сделать, чтобы свой шрифт (в данном случае Arial) не исчезал?
Вариант А отпадает, т.к. доступ в папку Program Files ограничен - записать что-нить без ведома админа нельзя.
Заранее спасибо.

[VVA]

aledan, Отредактируй текстовый стиль. А лучше покажи файлик или фрагмент

[aledan]

VVA! как оперативно!

файл был здесь.
уже удалил

[VVA]

aledan, Исправил код в #3. Добавил пoиск ttf шрифтов в папке Windows. У тебя там текстовых стилей мама не горюй. Советую воспользоваться после RSHX еще и этим : LISP. Замена текстового стиля

[aledan]

Сообщение от VVA ... У тебя там текстовых стилей мама не горюй...

Это не всё моё. Хотя.., раз файл уже мой
Спасибо ещё раз.