Инженерные консультации
VetCAD

Пограмка на VBA для оформления чертежей

    0 оценок

Соколов. С.Н.

размещено: 27 Января 2005
обновлено: 15 Апреля 2013
Данная програмка написана на VBA. Код программы открыт.

при следовнии инструкции и удачном стечении обстоятельств програмка создаст несколько тулбаров с наборами команд.

Программа может, вернее конечно можете Вы при помощи программы... /это как раз моё творчество, остальные команды заимствованы у товарищей по цеху/:

Кнопочка 1. проставление обозначений сварных соединений по ЕСКД (с набором типов сварок основных ГОСТов). Обозначение получается из простого набора примитивов

Кнопочка 2. работа с листами. создание форматок и их дальнейшая распечатка. вычисление массы детали (при наличии 3Д модели конечно...) Применён не очень стандартный подход, но мне нравится...

Кнопочка 3. блок маленьких дополнений:
3.1 проставление позиций
3.2 вычисление основных харрактеристик сечений W, J (при расчётах всякого рода на прочность, короче просто конструктор сечений без выхода из Акада)
3.3 функция переопределения свойств примитивов на значения (ленотип скейл=1; цвет, толщина, ленотип - по слою) Бывает необходимо при экпорте объектов из других приложений, например оттисков из Инвентора.
3.4 проставление осей между любыми линиями (двумя) и центров на окружностях с выведением линий осей за края окружности (окружности можно выбирать не по одному, а маской) Ничего нового, реализовано много где...
3.5 построение аксонометрической диметральной проекции (для энергетиков) при наличии 3Д разводки осей трубопроводов

программа не претендует ни на какие звания и регалии и вполне возможно не оправдает ваших надежд! :)
В момент начала её написания я только начал изучать VBA и скорее всего знающий человек найдёт реализацию алгоритмов отвратительной. Тем не менее, программа рабочая я больших косяков за ней замечено не было...

Спасибо.

ЗЫ: То чего программа точно не сможет сделать - каким либо образом навредить. 100%.

Что добавлено?

Сейчас программа ставится на автокад 2006 и выше.

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

Комментарии

Комментарии могут оставлять только зарегистрированные участники
Авторизоваться
Комментарии 11-20 из 20
nemo , 24 марта 2006 в 22:44
#11
К автору.
Если можешь поделиться каким нибуть хелпом по встроеному бейсику в акад (на русском) ОГРОМНАЯ ПРОСЬБА вышли откуда, как или пришли это добро получить. Ты просто не представляешь как болит голова от английского встроенного хелпа. С уважением Archalex_777@mail.ru !
Соколов С.Н. , 27 февраля 2007 в 10:59
#12
если кому нужна данная программа для 2006 акада - пишите, вышлю....
Clinri , 26 апреля 2011 в 00:06
#13
а как удалить панельки программы, которые загрузились после установки?
Clinri , 26 апреля 2011 в 00:12
#14
нашёл.. Вид-панели-Адаптации и все файлы НПИ-частичные файлы НПИ-SSN - выгрузить
Программа интересная, буду вникать.
alexfarm2@yandex.ru , 15 февраля 2012 в 12:46
#15
Вопрос такой. У меня автокад 2008. Ваш макрос я установил. Он запускается. Мне нужно печатать чертежи формата большего, чем А4 на принтере А4. Т.е. печатать отдельные фрагменты, а потом склеивать.
Не понятно как настраивать принтер на формат, скажем А3,
если принтер поддерживает только А4
В хелпе Вашего макроса написано, что нужно создать пользовательский пэйдж сетап с именем "1". Создаю, но когда запускаю Ваш макрос, этот пейдж сетап куда-то из автокада исчезает.
Можно поподробнее написать, начиная от настройки принтера и кончая разбивкой листа на фрагменты.
Возможно у меня не работает все это из-за какого-то несоответствия версий программ. А если бы была подробная инструкция, я бы возможно как-то бы вышел из положения ни смог настроить автокад на печать с помощью Вашего скрипта на моем принтере.
alexfarm2 , 15 февраля 2012 в 12:58
#16
У меня Автокад 2008. скачал макрос. Большое спасибо. Но не получается настроить принтер. У меня принтер А4, как можно выбрать для принтера А4 формат большего размера.
Можно поподробнее написать о настройке принтера. Дать пошаговую инструкцию печати. Думаю, что этот материал был бы многим очень полезен
alexfarm2@yandex.ru , 17 февраля 2012 в 18:59
#17
Частично разобрался. Все работает, только печатать большие форматы на маленьком принтере можно через PDF-Viewer. Устанавливается бесплатная программа do_PDF. В результате в автокаде в пэйдж-сетапе появляется виртуальные принтер do_PDF. Выводим лист хоть 24-го формата на этот принтер, т.е. по существу сохраняем документ листа в формате PDF. Открываем этот документ бесплатной программой PDF-Viewer. А эта программа уже умеет печатать с разбивкой большого формата на маленькие листочки. Почему-то автокад этого делать не умеет. Может кто-то еще как-то прокомментирует мой пост. Буду с интересом ждать.
ssn , 15 апреля 2013 в 09:05
#18
давно сюда не заходил. вижу кому то интересно. это радует.
что бы вопросы не оставались без ответа, лучше их дублировать на адрес info@itp-pro.u
ssn , 15 апреля 2013 в 09:10
#19
в моей программе привязывается не какой то конктретный чертёж к принтеру, а конкретный размер форматки к принтеру. Т.е. в настойках задаём что печатаем А4 на принтер 1, А3 на принтер 2 и так далее. Потом программа ищет по наружным рамкам все форматы, и по их размеру определяет тип формата.
Она сравнивает размер формата из чертежа с размером настроенного формата листа для печати на каждом принтере, если совпадает с каким либо из списка - происходит печать, если в списке такого формата нет - будет предложено настроить для такого формата...
тоесть, если есть какой то нестандартный формат (например 1500х540), то в насройках принтера должен быть такой размер бумаги.
ЕЩЁ:
- При поиске форматок на листе программа ищет наружные рамки. Они лежат на слое 0 и имеют скейл фактор 211175 (полилинии). Все что попадает под это определение по мненю программы - границы печатаемой области. Даже просто прямая линия с такими свойствами иммет границы и будет воспринята как фортатка... Тоесть, внешние границы форматок можно создавать простым копированием.
- На момент написания программы я был жеско уверен, что слой 0 является служебным, по этому на нём ничего не должно быть. На маленьких форматах слой 0 не печатаемый, на больших - печатаемый. связано с границами печати....
ssn , 15 апреля 2013 в 09:12
#20
вот тут есть мультик по работе программы
http://forum.abok.ru/index.php?showtopic=28075
zip

2 МБ

СКАЧАТЬ