Соколов. С.Н.
размещено: 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 и выше.
По прошесвтии времени я нашел множество лиспов в сети интернет от разных разработчиков. Ещё раз благодарю всех их за труд. Их коды я оставил не изменными, просто собрал их всместе.
Свой код я почти не правил, лишь добавил функцию проставления отметок на строительных разрезах. Значёк отметки - динамический блок с атрибутом, значение которого заполняется программой. (примерно как в СПДС)
2 МБ
СКАЧАТЬ
Комментарии
Авторизоваться
Если можешь поделиться каким нибуть хелпом по встроеному бейсику в акад (на русском) ОГРОМНАЯ ПРОСЬБА вышли откуда, как или пришли это добро получить. Ты просто не представляешь как болит голова от английского встроенного хелпа. С уважением Archalex_777@mail.ru !
Программа интересная, буду вникать.
Не понятно как настраивать принтер на формат, скажем А3,
если принтер поддерживает только А4
В хелпе Вашего макроса написано, что нужно создать пользовательский пэйдж сетап с именем "1". Создаю, но когда запускаю Ваш макрос, этот пейдж сетап куда-то из автокада исчезает.
Можно поподробнее написать, начиная от настройки принтера и кончая разбивкой листа на фрагменты.
Возможно у меня не работает все это из-за какого-то несоответствия версий программ. А если бы была подробная инструкция, я бы возможно как-то бы вышел из положения ни смог настроить автокад на печать с помощью Вашего скрипта на моем принтере.
Можно поподробнее написать о настройке принтера. Дать пошаговую инструкцию печати. Думаю, что этот материал был бы многим очень полезен
что бы вопросы не оставались без ответа, лучше их дублировать на адрес info@itp-pro.u
Она сравнивает размер формата из чертежа с размером настроенного формата листа для печати на каждом принтере, если совпадает с каким либо из списка - происходит печать, если в списке такого формата нет - будет предложено настроить для такого формата...
тоесть, если есть какой то нестандартный формат (например 1500х540), то в насройках принтера должен быть такой размер бумаги.
ЕЩЁ:
- При поиске форматок на листе программа ищет наружные рамки. Они лежат на слое 0 и имеют скейл фактор 211175 (полилинии). Все что попадает под это определение по мненю программы - границы печатаемой области. Даже просто прямая линия с такими свойствами иммет границы и будет воспринята как фортатка... Тоесть, внешние границы форматок можно создавать простым копированием.
- На момент написания программы я был жеско уверен, что слой 0 является служебным, по этому на нём ничего не должно быть. На маленьких форматах слой 0 не печатаемый, на больших - печатаемый. связано с границами печати....
http://forum.abok.ru/index.php?showtopic=28075