[Xara]

Всем привет!
Подскажите пожалуйста, как через LISP сделать окно чертежа активным, которое открывается через функцию:

Код:

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

 (vla-open (vla-get-documents (vlax-get-acad-object))
               Item1 ;имя файла
               :vlax-false
               ""
               )

А то открыть-то он открывает, а активный чертеж тот, что уже был открыт...

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

Xara, активация окна другого файла автоматически останавливает выполнение лиспа.

[Xara]

Да, Алексей, это я знаю, а как же быть, если есть задача выполнить ряд действий с несколькими чертежами:
1. Проверить, все ли размеры нужного стиля;
2. Проверить, все ли тексты/мультитексты нужного стиля;
3. Проверить переменные в среде чертежа;
4. Проверить UNITS в каждом чертеже.
Это, стало быть, невозможно?

[hwd]

Возможно. Просто тебе нужно помнить, что LISP работает в контексте чертежа, а соответственно, тебе твой lisp код нужно грузить в каждый открытый документ. Кроме того, тебе наверняка будет не лишним использовать реакторы, уведомляющие об открытии др. чертежей, а так же о создании новых, дабы твой код автоматом обрабатывал и их.

[Psyakrev]

У Кулика на сайте есть заметка, как работать с неактивным документом (сам автор почему-то про нее не вспомнил )
http://autolisp.ru/2010/04/08/procee...tive-document/

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

Psyakrev, на момент моего ответа фразы по обработке неактивного документа еще не было

[Xara]

Спасибо большое, ребята!
Почитаю, постараюсь разобраться!

ps: "тебе твой lisp код нужно грузить в каждый открытый документ" - как это сделать?
Что-то мне подсказывает, что статья Алексея не поможет, там ограниченное количество методов, подходящего не нашел

[gomer]

Сообщение от Xara как это сделать?

Сообщение от Xara 1. Проверить, все ли размеры нужного стиля; 2. Проверить, все ли тексты/мультитексты нужного стиля; 3. Проверить переменные в среде чертежа; 4. Проверить UNITS в каждом чертеже. Это, стало быть, невозможно?

Откройте справку и почитайте внимательно про объектную модель автокада, а если не дойдет то и вынимательно

Сообщение от hwd тебе твой lisp код нужно грузить в каждый открытый документ.

мдаа, НЕ НУЖНО!

зы 100500 Раз говорил уже: научитесь четко формулировать задачу, для этого надо в совершенстве владеть инструментом, с автолиспом это намного проще сделать, чем с другими языками.
зызы Зачем нужны такие телодвижения я так и не понял

[hwd]

Сообщение от Xara - как это сделать?

Есть разные способы... На вскидку могу перечислить такие:

1. Самый простой - добавить твой LISP в автозагрузку через всем известный "чемоданчик" (это очень просто сделать как вручную, так и программно, добавив запись в реестр):



2. Через файл acad.lsp, но нужно установить соответствующую галочку:



3. С помощью плагинов, которые грузятся в AutoCAD в контексте приложения, а не в контексте документа (как это делает Lisp) - т.е. воспользовавшись ObjectARX или .NET. Но думаю, что это не твой вариант, если не привык к подобному.

Судя по этому:

Сообщение от Xara 1. Проверить, все ли размеры нужного стиля; 2. Проверить, все ли тексты/мультитексты нужного стиля; 3. Проверить переменные в среде чертежа; 4. Проверить UNITS в каждом чертеже.

похоже, что ты пишешь что-то вроде модулей нормоконтроля. Полезное занятие

[Do$]

Сообщение от Xara Да, Алексей, это я знаю, а как же быть, если есть задача выполнить ряд действий с несколькими чертежами: 1. Проверить, все ли размеры нужного стиля; 2. Проверить, все ли тексты/мультитексты нужного стиля; 3. Проверить переменные в среде чертежа; 4. Проверить UNITS в каждом чертеже. Это, стало быть, невозможно?

Может достаточно будет делать проверку по стандарту? Я имею в виду файлы dws.

[hwd]

Сообщение от Do$ Может достаточно будет делать проверку по стандарту? Я имею в виду файлы dws.

Данный вариант имеет ряд минусов:

1. Пути к DWS файлам в DWG файлах прописываются в абсолютной форме. Относительная форма и использование в пути системных переменных, например %ProgramFiles%, %AppData% и т.п. не допускаются. К тому же у разных пользователей AutoCAD установлен в разные каталоги (зависит и от разрядности платформы). Отсюда постоянно вылезающие проблемы, что не у всех юзеров AutoCAD находит DWS файлы - порой приходится переназначать пути. Но переназначив под одну машину, автоматом "запортачишь" путь для другой.

2. Те модули нормоконтроля, которые входят в стандартную поставку AutoCAD являются очень ограниченными по возможностям и не имеют возможности конфигурировать их. Например - настроить правила формирования допустимых имён для слоёв чертежа.

3. Отсутствует большое количество необходимых модулей нормоконтроля (например - проверка стилей Таблиц).

4. "Родной " API для написания модулей нормоконтроля отвратительно документирован и качество его реализации оставляет желать лучшего. Можно было бы значительно упростить его и получить при этом гораздо бОльшую гибкость.

[ShaggyDoc]

если есть задача выполнить ряд действий с несколькими чертежами: 1. Проверить, все ли размеры нужного стиля; 2. Проверить, все ли тексты/мультитексты нужного стиля; 3. Проверить переменные в среде чертежа; 4. Проверить UNITS в каждом чертеже. Это, стало быть, невозможно?

Это элементарно.

1. Надо написать функцию, которая это всё делает (или всё, что угодно, требуемое в каждом чертеже). Назвать её, например (defun C:007 ()....)

2. Включить эту функцию в acaddoc.lsp (не в acad.lsp!). Этот файл автоматически загружается в каждый открытый dwg. Никаких "чемоданчиков" тут не нужно.
Можно в acaddoc.lsp не саму функцию записать, а загрузку её из какого-то файла.

3. Если надо эти действия выполнять автоматически, то сделать в acaddoc.lsp вызов этой функции на выполнение в конце файла. В виде (C:007). Если не автоматически - "повесить на кнопку". Или просто вызывать с клавиатуры: Command: 007

[gomer]

Все эт, конечно, потреотично, но в последствии оказывается хламом

[VVA]

Xara, Посмотри Последовательное применение lisp-функции к множеству файлов DWG
К неактивному чертежу можно обратиться с помощью ObjectDBX (п.5 по ссылке выше)

[Xara]

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

Сообщение от hwd похоже, что ты пишешь что-то вроде модулей нормоконтроля. Полезное занятие

Да, именно так! Функция проверки файлов на соответствие стандарту для нормоконтролеров.

Сообщение от Do$ Может достаточно будет делать проверку по стандарту? Я имею в виду файлы dws.

Нет, результаты проверки через DWS не извлечь, а мне нужно на выходе получить отчет по каждому файлу, если в нем есть хоть одно несоответствие, или пометка, что все ОК.

Задача у меня такая - есть, к примеру, 100 чертежей. Необходимо запустить приложение в акаде, которое при указании директории, в которой находятся все 100 чертежей, проверит в каждом файле вышеуказанные пункты последовательно, сформировав отчет, и выведет его, к примеру, в текстовый файл. Мне не нужна автозагрузка в каждый открываемый файл, мне нужно проверить пачку чертежей, и не грузить лисп каждый раз (тут-то все просто было бы), а открывать каждый чертеж, прогонять в нем функцию, записать отчет, закрыть файл и брать следующий...

[hwd]

Я использую своё решение, вместо предлагаемого Автодеском. Мне не нравятся ограничения, и костыли стандартного решения, да и реализовано так, что неудобно пользоваться. Результаты сохраняю в XML, который скармливаю генератору отчётов, а уж из него, в любой формат вывожу.

[Xara]

hwd, Какое конкретно решение? Можно поподробнее?

[hwd]

Сообщение от Xara hwd, Какое конкретно решение? Можно поподробнее?

Оно написано на C#, поэтому, если учитывать что

это не твой вариант

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

[Елпанов Евгений]

используя консольный акад 2013, это можно довольно просто сделать, причем, запуск будет довольно быстрым...

[Xara]

Сообщение от hwd и что тебе это даст?

Век живи - век учись. Почитаю, разберусь, научусь

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

Можно хоть немного конкретики?))