Обсуждение видеоуроков AutoCAD VBA

[Khasan Mamaev]

Приветствую друзья! Пишу скрипт для печати списка листов, код такой:

Код: [Выделить]

objPlot.SetLayoutsToPlot(layNames)
objPlot.PlotToDevice('Adobe PDF')
для каждого листа открывается окошко и нужно вручную нажимать кнопку "Сохранить". Возможно ли исключить эту ручную операцию?

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

введение в код строчки
Код - Visual Basic [Выбрать]

    backgroundplot = 0

не решило проблему

И не должно было. Проблему должно было бы решить вот это:

Код - Visual Basic [Выбрать]

1. ThisDrawing.SetVariable "backgroundplot", 0

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

для каждого листа открывается окошко и нужно вручную нажимать кнопку "Сохранить".

Какое окошко? С запросом сохранения чертежа? Тогда сохрани его сам до запуска печати.

Код - Visual Basic [Выбрать]

1. ThisDrawing.Save

[Khasan Mamaev]

Какое окошко? С запросом сохранения чертежа? Тогда сохрани его сам до запуска печати.
Код - Visual Basic [Выбрать]

Сохранять печатаемый pdf файл

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

Сохранять печатаемый pdf файл

А вот это сообщение вряд ли можно убрать - его выдаёт драйвер печати. Если конечно это не сообщение о том, что такой файл уже существует. В этом случае его достаточно удалить до печати.

[Khasan Mamaev]

Сохранять печатаемый pdf файл

А вот это сообщение вряд ли можно убрать - его выдаёт драйвер печати. Если конечно это не сообщение о том, что такой файл уже существует. В этом случае его достаточно удалить до печати.

задача решается редактированием реестра https://stackoverflow.com/questions/2075104/bypass-adobe-pdf-printer-savefileas-prompt

[AskarZ]

Здравствуйте! Еще раз хочу попросить о помощи. Имеется код по пакетной печати:

Извините, вам запрещён просмотр содержимого спойлеров.

В чертежах форматы листов разные (A4, A3, A2x4 и тд), рамки форматов у меня из дин. блока с выбором размера формата. Что нужно прописать вместо EffectiveName = "A1", чтобы указывалось не имя блока, а значение выбора. Спасибо за помощь!

[Владимир Шу]

В чертежах форматы листов разные (A4, A3, A2x4 и тд), рамки форматов у меня из дин. блока с выбором размера формата. Что нужно прописать вместо EffectiveName = "A1", чтобы указывалось не имя блока, а значение выбора.

Т.к. вопрос абстрактный, то и ответ будет таким же.
Можно открыть справку по VBA и посмотреть раздел посвященный объекту BlockReference (ActiveX), с удивлением обнаружить там свойство IsDynamicBlock (ActiveX) и метод GetDynamicBlockProperties (ActiveX) и поработать с ними.

З.Ы.
Хотя я так и не понял, каким образом Ваш вопрос соотносится с темой обсуждения видеоуроков, т.к. очевидно, что Вы решаете какие то свои задачи.

[AskarZ]

Владимир Шу, Код взят из 16-ого видео урока по пакетной печати. Спасибо за наводку про метод GetDynamicBlockProperties.  Нашел на др. форуме такой вот код:

Извините, вам запрещён просмотр содержимого спойлеров.

Но так как я незнаю vba, я не могу привязать этот код в свой.

[Владимир Шу]

16 урок посвящен пакетной печати, работа с дин. блоками приведена в 17 уроке. Нда...

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

Но так как я незнаю vba, я не могу привязать этот код в свой.

Так дело не пойдёт. Если не знаешь VBA, то изучи его.

[wavaw]

AskarZ, как один из вариантов "подгона для себя" можете мой код глянуть. тоже из 16 урока переделывал и с общей помощью "допилил" до работающего варианта.

Извините, вам запрещён просмотр содержимого спойлеров.

[moland]

Здравствуйте. Подскажите пож-та как лучше всего делать параметрические чертежи. Но данные брать из экселя.
Вообще подскажите как быстрее всего чертить однотипные чертежи но с разными размерами.
Как  скажем построить треугольник по 2 сторонам и углу между ними посредство VBA. Есть ли в видеоуроках такое. Это будет VBA  или автокад позволяет брать данные из внешних файлов.
В примере меняем размер d1 перестраивается весь чертеж.

[Владимир Шу]

Вообще подскажите как быстрее всего чертить однотипные чертежи но с разными размерами.

Использовать динамические блоки.

Как  скажем построить треугольник по 2 сторонам и углу между ними посредство VBA.

Вспомнить школьные уроки по тригонометрии и по векторной алгебре.

Есть ли в видеоуроках такое.

Посмотрите уроки...

Это будет VBA  или автокад позволяет брать данные из внешних файлов.

Вообще не понятно про что это предложение.

[moland]

 ОК СПАСИБО.  ПЕРЕИНАЧУ ВОПРОС.  НАЗОВИТЕ САМЫЙ БЫСТРЫЙ СПОСОБ ВЫВОДА НА ЭКРАн 12ти угольника.  Есть таблица в экселе с 100 видами 12 ти угольников.  Стороны 12ти угольников рассчитываются.   Может можно и без экселя обойтись.  Подскажите как,  дайте направление.