СЕРВИС ПОИСКА И ПОДБОРА ПОСТАВЩИКОВ ДВУТАВРА STEEL-RADAR
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 и выше.

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

Комментарии

Комментарии могут оставлять только зарегистрированные участники
Авторизоваться
Комментарии 1-10 из 20
123 , 14 сентября 2004 в 04:58
#1
Красиво, но сыро...
Влад , 14 сентября 2004 в 06:18
#2
Или я что неправильно делаю или под 2002 ACADом у меня не работает ( файл загружается и все больше никаких результатов) Если я что не так делаю напишите vladkuznetcov@mail.ru
Соколов С.Н, , 14 сентября 2004 в 10:41
#3
Спасибо за участие.
Знаю, что сыровата... Просто уже сам не вижу, что и где стоит подправить.
Чо-то я не понял , 17 ноября 2004 в 23:15
#4
Не, ну вы только гляньте!!!
В описании проги значится "Всё описано в архиве..."
Это как понимать, а? Значит сперва архив надо слить, а потом определиться надо это мне или нет, так чтоли?
Хорошо, у меня выделенка, я слил...
Смотрим "описание в архиве":

"Данная программа написана на VBA и является приложением для AutoCad.
Программа тестировалась на AutoCad 2004. Для установки програмы необходимо
разместить файл -= оформление.dvb =- в любой, потдерживаемой системой
AutoCad папке. Запустить AutoCad и в меню Tools/Macro выбрать Load Project...и загрузить приложение -=оформление.dvb =-. Далее в меню Tools/Macro выбрать строку Macros. В открывшемся окне выбрать макрос с именем, оканчивающимся на -= установка =- и запустить его нажав Run. Либо после того, как файл -= оформление.dvb =- размещён
в видимой системой папке набрать в командной строке: -= _.-vbarun =-, затем нажать ввод, затем ввести: -= установка =-.
Это не конечный вариант программы, она постоянно дописывается, по этой причине некоторые функции пока не доступны.
Часть программы -= Работа с листами =- расчитана на такую организацию файла чертежа: в пространстве модели нахоится модель, чертежи делаются в пространстве листа, и причем, на одном лейауте размещается несколько чертежей. В связи с такой организацией файла некоторые функции в пространстве модели не работают.
Хелп к сожалению пока не написан, но думаю программа интуитивно понятна.
Выкладываю программу с одной целью - узнать замечания и пожелания.
Заранее Спасибо.
Программа разработана Соколовым С.Н.
Все вопросы и пожелания - ssn_ssn@rambler.ru"
Конец цитаты.

Больше никакого описания (кроме вышеприведенного)я не нашел.
Ну что, всем всё "интуитивно понятно"?
А я чо-то до сих пор никак не врубльсь, какие чертежи оформляет эта прога и как именно (наверно потому, что устанавливать её сразу постремался (какое описание - такая и прога)).

Думаю, теперь количество скачиваний проги ощутимо поубавится (по крайней мере до того момента, пока автор не выложит хоть какое-то описание её функционала)
Соколов С.Н. , 27 января 2005 в 18:48
#5
Картинки присоединить к сожалению не получилось...
Посторался ответить на пост товарища "Что то я не понял". изменил описание...
И в добавление к сказанному выше /т.е. в описании/ - я же ничего не навязываю, вы уж простите...
А то получается я вам чуть ли не целых 1.2 метра трафика дожен :)
Max , 01 февраля 2005 в 07:18
#6
Фигня какая-то... Прога из разряда "через жопу к звездам".
Соколов , 01 февраля 2005 в 08:08
#7
ну уж что есть то есть... Мах, а что именно у Вас прошло через это, ну Вы знаете?
Непочатых А.В. , 08 апреля 2005 в 14:44
#8
Под 2005 идёт.Под 2000 i - нет.Если библиотеки поменять то может зарботает?Хотя всё остальное работать не будет...
Соколов С.Н. , 16 апреля 2005 в 13:22
#9
Идёт под 2005? Странно... На сколько я знаю под 2005 не работает больше половины (в том числе печать) функций. Не знаю как это обойти, сам работаю на 2004.
Но вот что могу сказать по этому поводу: при установке 2005 он прописывает свои библиотеки в систему, после деинсталяции 2005 они остаются. И потом программа перестаёт работать и в 2004. Методом сравнения удаляли лишние библиотеки (сравнивали на машине с 2005 и на машине с 2004, потом начинало работать. Я же програмист то ещё тот, програмированием занимался ровно 3 месяца, пока писал это дело... :)
forma , 30 июля 2005 в 04:07
#10
Хочу скачать эту программу. И ничего не получается.
zip

2 МБ

СКАЧАТЬ