[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 ... У тебя там текстовых стилей мама не горюй...

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

[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]

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

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

Существует. Называется "нормоконтроль" (команда такая в AutoCAD), в девичестве - _.checkstandards

[VVA]

А так же для всех _etransmit

[Podv_Oh]

С LISP не знаком. Первые шаги.
Статью http://dwg.ru/art/8 прочитал.
Сохранил файл http://forum.dwg.ru/showpost.php?p=498090&postcount=31 назвал его "ZAPROS.LSP".
Загрузка ZAPROS.LSP прошла успешно.

"В описании практически любого кода есть такая строка, как (defun … "

В данном коде defun нет. Как мне вызвать команду (или это функция)? В командной строке писать: ZAPROS, (ZAPROS), еще как то?
На ввод "(vl-load-com)" никакой реакции.

[VVA]

Сообщение от Podv_Oh Статью http://dwg.ru/art/8 прочитал. Сохранил файл http://forum.dwg.ru/showpost.php?p=498090&postcount=31 назвал его "ZAPROS.LSP". Загрузка ZAPROS.LSP прошла успешно.

Это не код, а листинг. Сохраняй этот код В остальном действуешь правильно

[Podv_Oh]

Спасибо, Владимир. Все получилось.
Код прописывается в самом файле чертежа? При переносе чертежа на другой ПК проблем с запросом на файл форм уже не будет?

[VVA]

Сообщение от Podv_Oh Код прописывается в самом файле чертежа?

Код не прописывается, а заменяет не найденный файл шрифта файлом ltypeshp.shx

Сообщение от Podv_Oh При переносе чертежа на другой ПК проблем с запросом на файл форм уже не будет

Гарантированно на твоем ПК запроса не будет. Если используешь стандартные шрифты/файлы форм то и при переносе не будет.

[Sphinx114]

Скопировал в файл чертежа какую-то хрень и появился запрос на файл форм. Я удалил эту хрень, но запрос остался. Тогда я положил spec.shx (копия ltypeshp.shx) рядом с чертежом и запрос исчез. Но неужели невозможно удалить ссылку на файл форм в самом чертеже? Поковырял _.checkstandards и _etransmit, перетыкал там все кнопки, но ничего не изменилось. И код, который в #3 не сработал, вроде правильно сделал всё и в автозагрузку добавил... AutoCAD 2007 у меня.

Добавлено: Сегодня препод открывал мой чертёж в своём 2010 акаде и вылезла какая-то ошибка при открытии (не на что не повлияло), значит способ подкладывания копии ltypeshp.shx не универсален.

[dim5678]

Не работает команда Rshx. Прошу извинения подскажите что я не так делаю.
Я выделил код лиспа с поста #3. Вставил в блокнот и собственно сохранил в формате lsp. Потом подгрузил его через приложения (2011 акад). Так вот при вводе в командную строку команду Rshx ничего не происходит((((. Где я протупил?

подгрузил проблемный файл.

[sertor]

dim5678, прикрепите проблемный файл (если возможно).

[lara]

С топосъемкой дали шрифты topo.shx и др. и файл линий lin-500.lin. Нет исходного отображения этих линии, как и раньше (например, пунктир вместо линии электросети), а при открытии через программу Project StudioCS, все нормально. Попросила коллег открыть (у них только Акад 2010) - то же самое. Выбрала одну из линий, посмотрела её описание в файле lin-500.lin, этот тип линии использует шрифт topo.shx. Забросила шрифты прожекта в папку фонтс акада - ничего. Что можно сделать? Смежникам надо отдать, а у них нет Project StudioCS.
Акад 2010, есть Project StudioCS, Geonics 2013. Система Windows 7x64
Прикрепила архив: шрифт, тип линии, акадовский файл с 2 проблемными линиями. При необходимости, прикреплю исходный файл.
После редактирования вопроса, поняла, что не совсем в той теме задала, как перенести в другую тему?

[merkur1y]

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

[Alan]

Сообщение от merkur1y подскажите пожалуйста как возвратить это окно и выбрать другой пункт

Почитать эту тему с начала.
Понять и следовать рекомендациям.

[Александр Ривилис]

Сообщение от merkur1y выбрал пункт "задать файл замены...." и поставил галочку "всегда следовать..." теперь при каждой загрузке приходится жать ESC на каждый отсутствующий файл формы подскажите пожалуйста как возвратить это окно и выбрать другой пункт