[ViolentOr]

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

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

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

[romkeris]

А можно ето делать автоматически, со всеми фаилами, пакетно?

[Alan]

Сообщение от romkeris А можно ето делать автоматически, со всеми фаилами, пакетно?

Надо просто взять за правило (и требовать этого от смежников!) передавать файлы с помощью команды _ETRANSMIT
ЯТД

[romkeris]

Alan, да, но уже пост-факт это

[VVA]

romkeris, Вариант Alan, предпочтительнее. Остальные предложения здесь

[kserg]

> VVA

1. Взял один в один код из #3. Запустил, сработало и сообщило:
Change E:\Folder\2-New\BBB.SHX on ltypeshp.shx; ошибка: неверный
тип аргумента: FILE "\nChange "
Что может быть?

ПыСы. Ага, ачепятка (вместо princ следует поставить progn):

Код:

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

(defun C:RSHX (/ fname ext)
  (vl-load-com)
;;;Загрузить лисп и набрать в командной строке RSHX
;;;Remove missing SHX
;;;Отключения запроса на выбор несуществующего файла форм  
;;;Эдуард Смолянка shx
;;;http://www.autocad.ru/cgi-bin/f1/board.cgi?t=16309Wg&page=1
;;;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
    (if (not
          (vl-filename-extension
            (setq fname (vla-get-fontfile item))
          ) ;_ 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
             (cdr (assoc 70 (tblsearch "STYLE" (vla-get-name item))))
          ) ;_ 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 progn
    ) ;_ end of if
  ) ;_ end of vlax-for
  (princ)
) ;_ end of defun
(princ "\nType RSHX in command line to remove missing shape referens")

2. Извиняюсь, не в тему. Выслал Вам (VVA) "личное сообщение" (3 попытки) в ответ на полученное от Вас. Дошло ли оно? Спрашиваю здесь, т.к. то ли комп., то ли Inet глючил (глючит)........

[VVA]

kserg, Спасибо, исправил #3.
Offtop: Ответил в личку

[mig84]

Здравствуйте!
Попытался применить код из #3 к нескольким файлам - все прошло успешно, и запрос файла формы больше не возникает при открытии чертежа, но с некоторыми файлами код к сожалению ничего не может сделать, после команды rshx отсутствующие формы не исчезают.

[VVA]

mig84, У тебя кто-то программно сформировал пустой стиль с хитрым именем файла.

$ (vlax-dump-Object item t) ; IAcadTextStyle: Именованный и сохраненный набор параметров, определяющий внешний вид текстовых символов. ; Значения свойств: ; Application (RO) = #<VLA-OBJECT IAcadApplication 00c2eb8c> ; BigFontFile = "" ; Document (RO) = #<VLA-OBJECT IAcadDocument 0cb27b14> ; fontFile = "\"GK_forms.shx\"" ; Handle (RO) = "ED38" ; HasExtensionDictionary (RO) = 0 ; Height = 0.0 ; LastHeight = 0.2 ; Name (RO) = "" ; ObjectID (RO) = 2130462848 ; ObjectName (RO) = "AcDbTextStyleTableRecord" ; ObliqueAngle = 0.0 ; OwnerID (RO) = 2122968088 ; TextGenerationFlag = 0 ; Width = 1.0 ; Поддерживаемые методы: ; Delete () ; GetExtensionDictionary () ; GetFont (5) ; GetXData (3) ; SetFont (5) ; SetXData (2) T

Обновил код в #3

[mig84]

Сообщение от VVA mig84, У тебя кто-то программно сформировал пустой стиль с хитрым именем файла.

Большое спасибо за ответ! Жаль только, что не выяснить кто и зачем этот пустой стиль добавил - исходные данные не местные. За код из #3 большое спасибо - полезная вещь, а то создавать копии стандартной формы уже надоело.

[mig84]

Еще возник вопрос на эту же тему - есть файл, в котором внешние ссылки на другие dwg в которых есть эти пустые стили. почистил их - все сработало, но в "головном" файле, как и прежде эти запросы появляются. Пробовал обновлять ссылки - не помогло. Выгружал ссылки - тоже самое. Также не работает и rshx. Если ссылки удалить, то запросы исчезают, но этот способ не подходит. В лиспе, к сожалению, я не силен, так бы хоть в пошаговом режиме посмотреть, что это скрипт делает...

[VVA]

Обновил код в #3
Это глюк какой-то. У тебя остался стиль с внешней ссылки. Ися ссылки SHAPE, имя стиля в ней REF.

Код:

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

_$ (vlax-dump-Object ts t)

; IAcadTextStyle: Именованный и сохраненный набор параметров, определяющий внешний вид текстовых символов.
; Значения свойств:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00c2eb8c>
;   BigFontFile = ""
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0c93b334>
;   fontFile = "OTVOD.SHX"
;   Handle (RO) = "EFC70"
;   HasExtensionDictionary (RO) = 0
;   Height = 0.0
;   LastHeight = 0.5
;   Name (RO) = "SHAPE|REF"
;   ObjectID (RO) = 2126332928
;   ObjectName (RO) = "AcDbTextStyleTableRecord"
;   ObliqueAngle = 0.0
;   OwnerID (RO) = 2130680856
;   TextGenerationFlag = 0
;   Width = 1.0
; Поддерживаемые методы:
;   Delete ()
;   GetExtensionDictionary ()
;   GetFont (5)
;   GetXData (3)
;   SetFont (5)
;   SetXData (2)
T
_$ 
_$

[mig84]

Сообщение от VVA Обновил код в #3 Это глюк какой-то. У тебя остался стиль с внешней ссылки. Ися ссылки SHAPE, имя стиля в ней REF.

Большое спасибо за помощь! Теперь все работает

[Vova]

Сообщение от ViolentOr При открытии проектов выдается консоль с запросом,

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

[dextron3]

у меня не сработало:

Command: _appload RSHX.lsp successfully loaded.


Command:
Type RSHX in command line to remove missing shape referens
Command:
Command: RSHX

Command:

[VVA]

dextron3, Выкладывай файл

[dextron3]

Вот он:

[Хмурый]

dextron3, в текстовых стилях убери Big Font корейский. (просто снять галку)

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

dextron3, я ж тебе отвечал уже: http://forum.dwg.ru/showthread.php?t=54132

[dextron3]

Кулик Алексей aka kpblc, Хмурый, да програмно хотелось, это к примеру этот файл с этим шрифтом, а их постоянно разных много...


но ваш метод помог спасибо!

[Electra]

а более простой метод существует без всяких лиспов и танцев с бубном?