[Mikka]

Доброго времени суток уважаемые, хочу предстваить бето версию своей программы под АВТОКАД на VBA!
- Программа позволяет чертить профеля металлопроката в трехмерке, и легко их изменять!
- Дополнительная утилита позволяет создаваь спецификацию металлопроката по построенному объекту!
- Прога написана целиком на VBA

Для установки скопируйте содержимое архива в папку
D:\work\aCAD_mini_2
и перетащите файл setup.scr на окно акада!
Жду отзывов и предложений!

Выложил открытые файлы!
Очень жду вашей критики и предложений по поводу кода!
З.Ы. я не профессионал, а только любитель

+ исправил некоторые глюки с прорисовкой профиля
+ добавил новый диалог "изменить свойства"
+ добавил справку

Залил новую версию программы
+ исправил некоторые глюки с прорисовкой профиля
+ добавил пластины

Залил новую версию программы
+ исправил некоторые глюки
+ теперь программа при отрисовке пластин учитывает направление обхода полилинии. Т.е. пластина выдавливается независимо от текущей системы координат.
+ включил галочку "зеркальный" для пластин. Т.е. теперь можно изменять направление выдавливания пластины.

+ переписал часть кода
+ теперь 2 клик по объекту работает и в 2008 автокаде
- есть идея хранить данные профиля не в xdata а словаре связанном с объектом(скорее всего предыдущие чертежи будут не изменяемы).
Нужен ли конвертор старых чертежей?

18.10.09
Сортамент версия 502
Возможности
+ добавил команду разнести по слоям и режиме рисования по слоям
+ добавил привязку к пластинам (теперь пластины не только зеркалятся, но еще могут выдавливаться так, чтоб базовая линия была по центру)
+ добавил возможность задать любому твердому телу данные профиля, с последующим учетом в спецификации (может понадобится для фигурных, не стандартных деталей, например гнутого листа)
+ теперь программа пытается автоматически определять ширину и длину описанного вокруг пластины прямоугольника, и выводит эти параметры в обозначении пластины, а также для составления спецификации элементов
Ошибки
+ исправил глюки с 2 кликом (добавил настроку в acadMini2.ini для отключения 2 щелчка мышью)
нуждается в тестировании, т.к это может привести к вылету автокада
+ исправил глюки с кистью (свойство пластины нельзя перенести на свойства профиля)

Модуль спецификации версия 232
Возможности
+ добавлена спецификация элементов (настройки смотри в файле table.ini радздел tab2)
+ добавил возможность выбора объектов для составления спецификаций
Ошибки
+ исправлена ошибка возникающая при попытки составить спецификацию металлопроката в пустом чертеже
+ исправлена ошибка определения ширины записи в столбце таблицы при заполнении спецификации

Модуль слои версия 11
Ошибки
+ исправлена ошибка возникающая при отмене выбора

з.ы. исправил ошибку определения ширины пластины...

Народ, отпишитесь, с какой детальностью рисовать метизы...

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

Поиск по словам "Василий Кондрат".

[Mikka]

Моя программа лучше
Программа точно идет под 2006 автокадом, тестировалась под 2008(могут быть траблы со спецификацией)!
Так же прога позволяет создоваь свои профили, причем как сплошные так и полые!
Базы профилей хранятся в текстовых файлах!(формат *.csv)

Также в комплект воходит:
- панелька для работы со слоями (удаление слоев, и копирование объектов чертежа из старых слоев в новые по шаблону)

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

Ты для начала сообщи, в какой версии разработку вел. И где и как хранятся данные. И как их дополнять. Если есть в архиве - тогда молчу (не качал, только вечером буду смотреть. И то, если не забуду). Если нету такого описания - надо бы сделать...

[Mikka]

Программа точно идет под 2006 автокадом, тестировалась под 2008(могут быть траблы со спецификацией)!

[REDS]

Отличная штука... немного потестировал...
Что-то не работают вкладки КАРКАС ВИДЫ НАСТРОЙКА
Ещё бы добавить отрисовку пластин - было-б ЧУДО
Кстати... как добавлять свой профиль?....есть ли такая кнопочка?
Спецификация глючит иногда

[Mikka]

Свой профиль добавляеться вручную, смотри папочку D:\work\aCAD_mini_2\BASES\acadMini2

[Гобар]

Вопрос такой. Нету у меня диска D. Так как ее юзать?

[Mikka]

тебе нужно подправить 2 файлика:
1. Cmd.Lsp в папке bin
изменить все пути типа "D:\\work\\aCAD_mini_2\\bin\\aCadMini3d.dvb"
на ту папку куда у вас поставлена программа
не забудь про двойной слэш!
2. файл setup.scr
в строчке
(setq d_support ";D:\\work\\aCAD_mini_2\\interfase\\menu\\images\\;D:\\work\\aCAD_mini_2\\interfase\\menu\\;D:\\work\\aCAD_mini_2\\bin\\")
изменить пути, на нужные тебе!

[Гобар]

Спасибо. Все работает. Только сделай на будущее хелп, чтоб другим было понятно.

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

А еще лучше - сделать нормальный инсталлер. И справку. И сделать отдельную форму / команду для добавления пользовательского профиля.
P.S. Код не посмотреть, поэтому и критиковать / предлагать улучшать бесполезно.

[S_konstr]

При установке программы проблема такая же как с пресловутой Filedia, через путь предлагает выбрать файл, при чем открытие и сохранение опять предлагается через строку и смена Filedia=1 ничего не меняет. Пока не перезапускаю Acad.

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

Offtop:

Сообщение от S_konstr При установке программы проблема такая же как с пресловутой Filedia, через путь предлагает выбрать файл, при чем открытие и сохранение опять предлагается через строку и смена Filedia=1 ничего не меняет. Пока не перезапускаю Acad.

Одна из многих причин, по которым лично я стараюсь зашифрованные файлы не загружать и не тестировать.

[Mikka]

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

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

Mikka, лучше сними пароль и по новой выложи. Это будет дешевле.

[Павлов Андрей]

Здравствуйте .
Mikka , у меня почему-то невозможно выбрать базу профиля и профиль из существующих . Пути поддержки проверил и прописал вручную , даже в *.ini - все равно не выбирает из существующих . Просто не видит ни баз , ни профилей в окошке выбора .

[Mikka]

Странно, вы все проавильно сделали?
Попробуйте заного установить!

[Павлов Андрей]

В Acad2008 не работает : в setup.scr какая-то ошибка (где-то) скобки неправильно расставлены , и в менюшках *.csv в упор не видит . Где-то , видно , синтаксическая ошибка ...

[Mikka]

странно, у меня под 2008 ставился!
1. Нужно скопировать программу в D:\work\aCAD_mini_2
2. либо запустить файлик setup.scr, либо
Прописать 3 пути
D:\work\aCAD_mini_2\bin
D:\work\aCAD_mini_2\interfase\menu
D:\work\aCAD_mini_2\interfase\menu\images
при помощи команды _menuload подгрузить меню acmMnu.mnu
можно пользоваться!

[AlexV]

А под 2009 не идет?
Профиля 3d solid-ами чертятся? Где данные хранятся о типе профиля, длине и т.д.? Если, к примеру, профиль программно вставить, а потом средствами автокада удлинить/укоротить, это в спецификации учтется?

[Mikka]

Хороший вопрос!
1. Профиль чертися 3d solid - ом!
AlexV Обрати внимание на линию которая находится внутри солида, это базовая линия, и при изменении этой линии меняется солид!
2. Все данные хранятся в xdata профиля и линиии, основные параметры храняться в базовой линии, и при ее удалении изменить профиль больше не получится!
3. Данные о типе профиля, его длине, и массе вносятся в солид в момент создания изменения профиля! по этому если вы измените профиль, изменения в спецификации не отразятся!

з.ы. под 2009 акадом не пробовал!

[AlexV]

Mikka, пока одним глазом глянул (в 2008), впечатления самые наилучшие. (Спецификация, правда, не работает... Если ж ее до ума довести, да чтоб по ГОСТам нашенским создавалась, ) Интерфейс - очень удобный, вообще напоминает работу с профилями Structural Detailing . Может, только форму сделать немодальной? Ввод текста с клавы здесь только для угла поворота, можно его осуществлять через inputbox по щелчку на фрейме, к примеру.. Теоретически можно еще настройки кое-какие добавить (соответствие категории элемента слою, например; или задавать тип стали для категории профиля, т.е. сменил категорию, автоматом тип стали поменялся, и тоже в настройках возможность пользовательских изменений предусмотреть. Да и, может, еще задание категорий профиля и материала пользователем с возможностью сохранения в текущем файле...
Конечно, идеально было бы изменение солида при изменении линии, с ним связанной, но это уже, наверное, на VBA с примитивами автокада нереально... Отследить событие, определить примитив, убить старый солид, считав тип профиля предварительно и прочие данные, создать новый... Да в общем-то, решение тоже неплохое: линию изменил (к полилинии, например, даже можно добавить участки новые), запустил редактирование - получил отредактированный профиль. К каждому профилю гиперссылка цепляется со всеми данными (профиль, масса, длина), после редактирования - меняется, красота!
Пластины - согласен, неплохо было б добавить.
Вобщем, прога - на отлично (по первым впечатлениям), стоит дорабатывать... Мы в Detailing сейчас работаем, но для голого Акада хорошая вещь. Тот же Detailing при всех преимуществах довольно глючен (у меня за день вылетов бывает больше, чем у Покрышкина в разгар ВОВ )..
Идей, которые еще можно реализовать, масса . К примеру, для профиля функция: продлить или обрезать по линии (выбираем отрезок или двумя кликами задаем плоскость, продляем до нее (или обрезаем) "профилеобразующую" линию, убиваем старый солид, создаем новый, обрезаем по плоскости, заданной отрезком...)

[gipro]

щас попробую тоже... Я тут у кого-то уже встречал интересную программку с 3D профилями, но в упор не помню названия. Не знаю, развивается ли она сейчас...

Посмотрел - понравилось. Видно что человек старался. Интерфейс, я, кстати, где то уже видел. Был какой-то справочник электронный с сортаментами... Интерфейс несколько топорный, но разве это кого останавливало?? В принципе все грамотно и понятно.
Пожелания... Ну присоединяюсь к задумке о пластинах. кругляк не вышло у меня намулювать... Хотелось бы использовать не только для КМ, но и для КМД, т.е. сделать интерфейс для создания своих таблиц...
Ну что еще... Сварка, присвоение марок, метизы - такая вот штука бы пригодилась. Макро как в дитэйлинге никто не просит
P.S. В ACAD 2010 не работает вообще, а так - пятерка!! Развивай! Может сделаешь качественный продукт.

[Mikka]

Сообщение от AlexV Конечно, идеально было бы изменение солида при изменении линии, с ним связанной, но это уже, наверное, на VBA с примитивами автокада нереально... Отследить событие, определить примитив, убить старый солид, считав тип профиля предварительно и прочие данные, создать новый... Да в общем-то, решение тоже неплохое: линию изменил (к полилинии, например, даже можно добавить участки новые), запустил редактирование - получил отредактированный профиль. К каждому профилю гиперссылка цепляется со всеми данными (профиль, масса, длина), после редактирования - меняется, красота!

1. Под 2006 и 2008 акадом, при изменении линии меняется и солид, процесс не очень стабильный но вообщем мне удалось это сделать! (но если эта функция не работает, есть команда перерисовать профиль. Удлиняеш линию, и перерисовываеш профиль...)
В папке help в дирректории программы, есть еще не доделанная справка от предыдущей версии...

2. Гдето через неделю, может быть и раньше выложу открытые исходники программы в этой теме!

3. Про метизы только думал, пока еще ничего не сделал

4. Пластины удастся реализовать малой кровью, все необходимые заделки есть!

5. Спецификации собираются по ГОСТ 21.502-2007

[stas_org]

Уважаемые форумчане! Все это давно реализованно в Autocad Arhitecture, ну если даже вам, по каким-либо причинам, не по душе объекты АА, можете использовать только функционал голово Акада.

[gipro]

2. Гдето через неделю, может быть и раньше выложу открытые исходники программы в этой теме!

Это хорошо. Уж не знаю, есть ли будущее у VBA, но многие заинтересуются. Возможно получится интересная и очень функциональная приблуда. 3D прокат Кондрата как-то не пошел, может тут что толковое выйдет.

Спецификации собираются по ГОСТ 21.502-2007

Ну не все работают по ГОСТу... Есть еще всякие "временные инструкции", "предлагаемые формы" и т.п.

Все это давно реализованно в Autocad Arhitecture

Аркитекча солидами моделирует?? Да и что теперь из-за профильков переплачивать за аркитекчу?
А еще это реализовано в адванс стиле и автокад стракчарал дитэйлинге... И что с того??

[AlexV]

Да, заметил, после "перерисовать профиль" солид изменяется при изменении линии (но не наоборот, солид двигаешь - линия остается). Круть! Еще пара идей (по образцу ASD, но, возможно, реализуемые в Акаде):
-перемещение и копирование только в заданном направлении (т.е. определяешь базовую точку и точку перемещения по привязкам, а перемещение производится только по координате , заданной пользователем - x, y, xy и т.д. В Акаде есть, конечно, фильтры координат, но они не очень удобны).
-отключение видимости объектов не по слою, а по состоянию свойства Visible примитива. При работе в 3d бывает нужно отключить несколько объектов на некоторое время. Ну и соответственно включение видимости всех...
-"менеджер объектов". Немодальная форма, в которой структурированно отображать списки созданных программой профилей.. Отсортированные по категории, типу профиля и т.д. И что бы можно было выделив что либо в списке, получить выбор этих объектов в модели... Или включить - отключить видимость по категориям, или изменить свойства для списка объектов "за раз"...

[Mikka]

Исправил модуль спецификации, теперь она правильно строится

[AlexV]

Чего-то ругаитси.. (A2008) на этой строчке:


...Закомментил вызов процедуры создания табличного стиля, заработало...
... Небольшой баг: при отрисовке профилей по точкам начало "резиновой" линии определяется не правильно при ПСК, отличной от мировой..

[Mikka]

Странно, видимо у вас не корректно установлен Акад, потому как я тестировал прогу на 2 разных компах с2008 автокадом, и такой ошибки не возникало! Такое ощущение, что какято стандартная библиотека не поставилась...

А на какой именно строчке вылетает программа?

[AlexV]

Сообщение от Mikka Странно, видимо у вас не корректно установлен Акад, потому как я тестировал прогу на 2 разных компах с2008 автокадом, и такой ошибки не возникало! Такое ощущение, что какято стандартная библиотека не поставилась... А на какой именно строчке вылетает программа?

На подчеркнутой в скрине в предыдущем посте...

[Mikka]

х.м. странно, код совершенно рабочий! пример приведен сдесь
http://forum.dwg.ru/showthread.php?t=24482

[Mak]

Классная программа, порадовало то, что бызы можно дописать самому!
И спецификация автоматически строиться...
И даже исходники открыты!
Молодец Mikka!

[AlexV]

Сообщение от Mak Классная программа, порадовало то, что бызы можно дописать самому! И спецификация автоматически строиться... И даже исходники открыты! Молодец Mikka!

Еще раз присоединюсь и поаплодирую...
Мы прикалываемся: Mikka в одиночку Автодеск переплюнул с его "фатал еррор структурал детэйлингом"... ... Местами..
Правда, недоработки кой-какие есть. К примеру, если скопировать вставленный профиль, потом перерисовать осевую линию, то после редактирования некоторые глюки проявляются (новый профиль прорисовывается, а старый не удаляется)

[Mak]

К слову, хорошобы добавить пластины...

[Mikka]

Это не глюки, это недостаток основной концепции программы и исправлению не подлежит....
Копировать нужно только базовую линию, а потом перерисовывать профиль...

Залил новую версию программы
+ исправил некоторые глюки с прорисовкой профиля
+ добавил новый диалог "изменить свойства"
+ добавил справку

[gomer]

Програмы должны устанавливатья в c:\Program Files\<AppName>
Всеостальное от лукавого

[wetr]

Сообщение от AlexV ...обрезаем по плоскости, заданной отрезком...)

режет слух

[Mikka]

Доброго времени суток уважаемые, подправил свою прогу, выгреб много глюков, добавил пластины
Среди прочего, нашел интересный глюк Acad2008, при удалении выделенного объекта програмным путем, гдето со 2 раза, акад вылетатает с критической ошибкой, как лечить не заню, пользуйтесь кнопкой редактировать...
зы: обновленную прогу выкладываю в заголовке темы...

[kshatriy]

из справки:
"2. Изменить свойства профиля можно командой Редактировать профиль или 2 шелчком левой кнопки мыши про профилю (работает не всегда)",

"2 шелчком левой кнопки мыши" свойства профиля открываются нормально ...при редактировании выдает "Фатальную ошибку"(как можно это исправить?)
командой "редактировать профиль" редактируется без проблем.
(AutoCAD 2009+SPDS5)

[Mikka]

Среди прочего, нашел интересный глюк Acad2008, при удалении выделенного объекта програмным путем, гдето со 2 раза, акад вылетатает с критической ошибкой, как лечить не заню, пользуйтесь кнопкой редактировать...

Я писал про этот глюк в предыдущем посте. Все дело в том, что профиль при редактировании каждый раз удаляется и рисуется заного В 2006 автокаде все работает без запинки, а вот в 2008 происходит ошибка.
Как устранить ее пока не знаю!
з.ы. Если кто то разбирается в программирование на vba пишите в личку, возможно совместно удасться что то сделать...
з.з.ы. Очень рад, что моя прога работает на 2009 акаде

[Mak]

Дабл клик действительно работает !
Классная прога.
З.Ы. Конвертор делать....

[beholder]

Программа однозначно очень понравилась, вот только чтобы добавить базу профилей какую-нибудь свою, нужно будет попотеть с координатами узлов сечения насколько я понял (если неправильно понял, поправьте). Хорошо бы какой-нибудь такой лиспик написать чтоб сам эти координаты выводил в таблицу, которую уже потом можно было бы и в эксель импортировать. А так то прога достаточно интересная, даже очень, я бы сказал. Mikka молодец однозначно. P.S. Явно нуждается в доработке по части сварки и метизов.

[Mikka]

beholder ты немного не понял посмотри файлы в папке: aCAD_mini_2\BASES\acadMini2\src ...
я делал так:
Забивал сортамент в Exel, а потом для одного профиля задавал формулами координаты, и "РАСТЯГИВАЛ" на все профиля...

З.Ы. Если по поводу метизов, у меня есть идеи, то про сварку идей нет...
Если можно покажите аналог ...

[beholder]

Насчет добавления профилей буду разбираться. А вот сварку можно было бы сделать следующим образом. Рисовать такие стерженьки по линии пересечения деталий (по углу шва) соответственно будет видна только часть такого стержня, которая и будет похожа на сварной шов. Можно также сделать разные цвета (слои) для монтажных и заводских швов. Условно обозначать швы не вижу необходимости, потом все-равно для рабочих узлов в 2d их нужно будет дорисовывать вручную. Но есть недостаток: количество солидов в файле будет громадным что будет приводить к "подвисанию" акада. Прошу сильно не критиковать, это мое виденье решения. Мне тоже интересно как обозначают сварные швы в HyperSteel/StruCAD/Structural Detailing, так как не работал ни с одной из этих программ.

[Mikka]

Ну я примерно так и думал...
Вообще изначально программа разрабатывалась для прорисовки основного конструктива. Т.е. один каркас, без узлов... В планах на будующее есть метизы... и узлы... (последние скрее всего будут реализованны после перехода на платформу NET)

[gipro]

Сообщение от beholder интересно как обозначают сварные швы в HyperSteel/StruCAD/Structural Detailing, так как не работал ни с одной из этих программ.

Ну Hyper (он же Advance) Steel и Structural detailing не используют солиды как таковые, а используют свои объекты. Сварные швы же там играют роль информатора для разработки КМД. Есть 2 основных типа швов - "монтажный" и "заводской". Те уже разделяются по толщине и типу сварки (да кому я все это рассказываю ) Смысл заводского и монтажного - давать программе понятие "сборки" для получения КМД спецификаций. Если детали соединены заводским швом - >это одна отправочная марка.

[AlexV]

Сообщение от gipro Ну Hyper (он же Advance) Steel и Structural detailing не используют солиды как таковые, а используют свои объекты. Сварные швы же там играют роль информатора для разработки КМД. Есть 2 основных типа швов - "монтажный" и "заводской". Те уже разделяются по толщине и типу сварки (да кому я все это рассказываю ) Смысл заводского и монтажного - давать программе понятие "сборки" для получения КМД спецификаций. Если детали соединены заводским швом - >это одна отправочная марка.

...Причем в ASD 2009 steel сварка (как и болтовые соединения) добавляют немало глюков.. К примеру, выделяешь рамкой сборку, перемещаешь _move, - все элементы перемещаются, а сварка (или болты) остаются на том же месте..

[beholder]

Сообщение от Mikka В планах на будующее есть метизы... и узлы...

Планы у Вас просто чудесные, так как в основном сейчас есть необходимость в прорисовке сложных узлов в 3d скорее, чем делать весь каркас в нем. Так что, Mikka, дорабатывайте программу и, думаю, сможете занять свое место на рынке ПО

[Mikka]

Смысл заводского и монтажного - давать программе понятие "сборки" для получения КМД спецификаций. Если детали соединены заводским швом - >это одна отправочная марка.

- понятно , средствами VBA это довольно сложно сделать(если вообще возможно). Я предлагаю реализовать сварку круглым солидом, который будет выдавливаться по полилинии.

Идеи про сварку:
1) задание прирывистого и непрерывного шва по линии(несколькими солидами возможно с обьединением командой логического сложения);
2) цветовой маркировкой шва, монтажный, заводской;
3) возможно будет команда сварить по контуру(т.е. будет вычислятся траектория пересечения 2 солидов)
4) --//-- команда вычисления общей длины свархны швов...

Еще идеи
5) команда вычисления массы выделенных объектов
6) видимость объектов с менеджером видимости (отдельный скрипт)

зы. скорее всего сварка будет носить чисто декоративный характер...
ззы. скажите что из этого необходимо, а что нет, и в какую очередь...
зззы. Так получилось, что по роду своей деятельности я занимался только КМ, а КМД даже в глаза не видел(я только учусь на строителя), по этому если есть идеи по поводу КМД пишите постораю рассмотреть...

[AlexV]

..видимость объектов с менеджером видимости (отдельный скрипт)..

- полезная штука, и реализуется довольно легко.
Сварка в 3d - не знаю, насколько это реально необходимо.. В ASD мы с ней поначалу поигрались, теперь, по моему, никто не использует в нашей конторе (правда, делаем только КМ). Хотя, если это будет менее глючно и не будет перегружать/подвешивать автокад, то почему бы и не попробовать..
Еще полезные, возможно, функции были бы:
-перемещение и копирование объектов с фильтром по одной или 2-м координатам (автокадовские фильтры неудобны, а функция такая при моделировании не помешает.. Когда, например, надо скопировать объекты, пользуясь привязками, но что бы они остались в одном уровне)
-проверка "коллизий" - взаимопересечений
-"отправочные марки-сборки" - мне кажется, для создания сборок лучше обычные блоки использовать, чем объединять через сварные швы.. В ASD создашь, к примеру, через сборку (или группу) колонну; ее можно скопировать. Но нет инструмента, который бы "синхронизировал" их, - т.е. добавил/удалил/изменил деталь в одной сборки, а остальные с тем же именем - не поменялись..

[gipro]

Сообщение от Mikka зы. скорее всего сварка будет носить чисто декоративный характер...

нет смысла. только загрузит модель. Можно использовать обычный 3d polyline для подсчета длин сварных швов. Только вот свойства ей не присвоишь...

Сообщение от AlexV -"отправочные марки-сборки" - мне кажется, для создания сборок лучше обычные блоки использовать, чем объединять через сварные швы..

Не согласен. Сварные швы объединяют сборки не для копирования, а для составления спецификаций "на марку".
Думается мне, что разработку КМД таким путем очень сложно решить, поэтому дал бы совет не заморачиваться сильно по этому поводу.
- Хотелось бы иметь возможность составления спецификаций для выбранных элементов (номер профиля, стандарт, длина и вес) и идентификацию одинаковых элементов.

[AlexV]

Не согласен. Сварные швы объединяют сборки не для копирования, а для составления спецификаций "на марку".

-Ну так и составить спецификацию "на марку" можно, считав данные с примитивов, входящих в состав блока..

[beholder]

Сообщение от gipro идентификацию одинаковых элементов.

Мне кажется, такое реализовать будет достаточно сложно, так как при сложных геом. формах всегда будут небольшие отклонения геометрии и потому элементы, которые должны теоретически быть точно одинаковыми, такими не будут. Если конечно, не сделать это с учетом допуска на такую неточность, скажем до 1 или 2-х мм.

[Sleekka]

Мне кажется, такое реализовать будет достаточно сложно, так как при сложных геом. формах всегда будут небольшие отклонения геометрии и потому элементы, которые должны теоретически быть точно одинаковыми, такими не будут. Если конечно, не сделать это с учетом допуска на такую неточность, скажем до 1 или 2-х мм.

Вам кажется, а люди берут и делают - AD_analiz например.
Mikka - так держать

[Mikka]

gipro А что имелось в виду, под идентификацией одинаковых элементов?
Поиск всех одинаковых элементов?
Учет одинаковых элементов при составлении спецификации?
Или что то иное?

[gipro]

Сообщение от Mikka Поиск всех одинаковых элементов?

именно. Поиск одинаковых элементов. Вплоть до отверстия под болт.
И учет при составлении спецификации тоже.

[Mikka]

gipro Я могу реализовать:
+ поиск всех одинаковых элементов;
+ учет при составлении спецификации(добавлю обычную спецификацию, как в чертежах АС) тоже могу ;
- но вот про отверстия моя программа ничего не знает, и скорее всего в нынешней своей эпостаси узнать не сможет

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

[beholder]

Тут бы понять в чем "нынешняя философия" заключается ... Тогда бы и идея какие-то пришли в голову. Тупиковое решение, типа, отверстия тоже сделать солидами отдельными чтобы хоть как-то фиксировать их количество опять же приведет к "подвисанию" как и в случае с метизами. А просто "вырезая" отверстия в элементах вы, конечно же, их количество и, тем более, взаимное расположение никак не зафиксируете... А жаль, действительно, с КМД будет намного сложнее...

[Mikka]

Философия простая:
- солид строится вокруг базовой линии;
- базовая линия содержит все необходимые данные для построения солида, и знает о "своем" солиде;
- солид содержит в себе все данные для построения спецификации, и том к какому типу спецификации он может относится. И также "знает" о базовой линии;

По поводу метизов:
- отверстий я делать не собирался. Можно конечно попытаться записать данные о том какие отверстия и где они должны быть расположены в базовую линию. Это возможно, но довольно сложно сделать т.к. возникает целый ряд нюансов с анализом формы профиля, а прогрмма их не анализирует...
- метизы будут строится как профиля, т.е. солидами вокруг базовой линии.
- база метизов будет описывать почти полную их конфигурацию, уже придумал как...
- скорее всего сделаю возможность создать сразу пакет, т.е болт, шайба, гайка...

Менеджер видимости (сейчас в разработке)
- выбираться будут только солиды -> которые будут ссылаться на базовую линию -> линия будет заноситься в базу видимости -> скрываться будет линия и солид на который она ссылается...
- постараюсь сделать более меннее удобный интерфейс (это вам не delphi ) И немодальную форму.

[beholder]

Сообщение от Mikka метизы будут строится как профиля, т.е. солидами вокруг базовой линии.

В принципе философия понятна. Вот только расположение этой базовой линии относительно самого сечения, мне кажется, не везде сделано правильным. Если для двутавров, труб и гнуто-сварных профилей все ОК, то для швеллеров и уголков, она у Вас расположена посредине габаритов сечения, а в работе будет удобнее, если она будет проходить у швеллера по внешней грани стенки по ее средине, а у уголка либо по оси инерции, либо по обушку. А лучше всего сделать возможным выбор привязки этой линии к сечению, так как в разных случаях при построении удобной будет разная привязка элемента. Это, конечно, если существует в принципе возможность этот параметр изменить. P.S. А насчет отверстий и, то наверное, их необходимость не такая большая если программа будет использоваться для разработки чертежей КМ, потому сильно заморачиваться с ними не стоит. По метизах идея вполне приемлема (имхо).

[Mikka]

beholder спасибо, по поводу базовой линии смотри Раздел 3.1 пункт 6 файла 3SrtHelp.doc.

[beholder]

Это тебе спасибо, Mikka, это я не разобрался с программой, а уже замечания пишу Там все неплохо сделано в этом плане...

[beholder]

Пришла в голову одна идея. Mikka, думаю, было бы намного лучше, если бы в Вашей программке элементы выделялись цветом не по виду профиля, а по типу конструкций, который учитывается в спецификации, то есть, если бы для колонн был свой слой, для балок свой, для связей свой и т. д. Так будет намного удобнее при деталировке сложных узлов, так как иногда нужно будет отключать отображение некоторых конструкций для удобства и хорошей видимости, а делать это если они будут все на одном слое не будет возможным. Кроме того назначение слоя дает свободу пользователю в том, каким цветом у него будут отображаться те, или иные элементы, это очень практично. Думаю, и "гуру" меня в этом поддержат. Удачи в вашем непростом деле

[AlexV]

Сообщение от beholder ... Так будет намного удобнее при деталировке сложных узлов, так как иногда нужно будет отключать отображение некоторых конструкций для удобства и хорошей видимости, а делать это если они будут все на одном слое не будет возможным....

На самом деле, вполне можно реализовать программно отключение видимости объектов не зависимо от слоя.. Выделил какие-либо объекты, и все остальные "выключились" (или наоборот, выбранные выключились); ну и соответственно команда/кнопка для включения видимости всех. Вообще, может даже возможно реализовать нечто вроде "инспектора объектов", - немодальную форму , в которой будут отображаться отсортированные сведения о свойствах объектов-профилей, с помощью которой можно будет их выбирать/изменять .. (выбрал, к примеру, все двутавры из состава колонн, и можешь изменить N профиля..)

[beholder]

Сообщение от AlexV На самом деле, вполне можно реализовать программно отключение видимости объектов не зависимо от слоя..

Вообще то программно можно реализовать много чего, все зависит от средств, которые использует наш автор. Я к сожалению не могу оценить, возможно ли такое используя VBA, да и вообще я не программист, а автору темы совет может быть полезным.

[Mikka]

Сообщение от beholder Пришла в голову одна идея. Mikka, думаю, было бы намного лучше, если бы в Вашей программке элементы выделялись цветом не по виду профиля, а по типу конструкций, который учитывается в спецификации, то есть, если бы для колонн был свой слой, для балок свой, для связей свой и т. д.

- хорошая идея, мне она тоже приходила в голову, но на работе поддержку не нашла.
- будет режим черчения по слоям (все настройки как всегда смотри в acadMini2.ini)
- и команда раскидать по слоям.

Вопрос такой нужна ли команда для обратного действия или нет? (я думаю что нет, потому как прим помощи команды _filter это легко делается вручную )

[AlexV]

Если кроме этой программы загружены и включены другие макросы, то имеют место быть глюки.. Иногда. То базы не находятся, то ошибки вылетают.. Наверное, это связано с использованием ThisDrawing.Application.VBE.ActiveVBProject.FileName; т.к. активным может быть и другой проект..

[Mikka]

Спасибо, подправлю в новой ревизии
--
Проверил свой код(писал давно, не помню), нынешняя версия программы способна отличать относительный путь от абсолютного!
Т.е. если путь начинатеся с "..\" он задан относительно пути запуска макроса...
Достаточно заменить все пути на абсолютные:

BasesDir= D:\work\aCAD_mini_2\bases\acadMini2
BaseImgDir= D:\work\aCAD_mini_2\bases\acadMini2\Images
--
Добавил новую версию программы...

[Mak]

Если я правильно понял Mikkа вы пишите прогу метизы:

Народ, отпишитесь, с какой детальностью рисовать метизы...

Я думаю детальность метизов нужно делать по минимому

[REDS]

Согласен... детальность метизов - по минимуму... главное габариты показать... главное, чтобы можно было их потом в спецификацию посчитать с указанием длины диаметра и кол-ва... так же шайбы и гайки.
А если бы подбиралась длина автоматом по толщине пакета и кол-ву гаек - так это была бы совсем красота

[LSN]

На 2010 Acad'е не загружает базу профилей. Само меню загружается, загружается форма, но список пуст. При загрузке через ярлык в Acad'е выводит следующее:

Command: _filedia
Enter new value for FILEDIA <1>: 0
Enter BACKSPACE to interrupt script.

Command: (gc)
nil

Command: (gc)
nil

Command: (gc)
nil

Command: (setq d_support
";D:\\work\\aCAD_mini_2\\interfase\\menu\\images\\;D:\\work\\aCAD_mini_2\\interf
ase\\menu\\;D:\\work\\aCAD_mini_2\\bin\\")
";D:\\work\\aCAD_mini_2\\interfase\\menu\\images\\;D:\\work\\aCAD_mini_2\\interf
ase\\menu\\;D:\\work\\aCAD_mini_2\\bin\\"

Command: _delay Enter delay time (in milliseconds): 50

Command: (vl-load-com)

Command: (setq pref_obj (vla-get-Files (vla-get-Preferences
(vlax-get-acad-object))))
#<VLA-OBJECT IAcadPreferencesFiles 119d6178>

Command: (setq old_support (vla-get-SupportPath pref_obj))
"C:\\Users\\Сергей\\AppData\\Roaming\\Autodesk\\AutoCAD
2010\\R18.0\\enu\\support;C:\\Program Files\\AutoCAD 2010\\support;C:\\Program
Files\\AutoCAD 2010\\fonts;C:\\Program Files\\AutoCAD 2010\\help;C:\\Program
Files\\AutoCAD 2010\\express;C:\\Program Files\\AutoCAD
2010\\support\\color;D:\\acad\\lisp\\pltools;D:\\acad\\lisp\\spec;D:\\acad\\lisp
\\прокат;C:\\Program Files\\AutoCAD
2010\\g_tools;D:\\acad\\lisp\\blts;D:\\Acad\\LISP\\math;D:\\work\\aCAD_mini_2\\i
nterfase\\menu\\images\\;D:\\work\\aCAD_mini_2\\interfase\\menu\\;D:\\work\\aCAD
_mini_2\\bin\\"

Command: (setq new_support (strcat old_support d_support))
"C:\\Users\\Сергей\\AppData\\Roaming\\Autodesk\\AutoCAD
2010\\R18.0\\enu\\support;C:\\Program Files\\AutoCAD 2010\\support;C:\\Program
Files\\AutoCAD 2010\\fonts;C:\\Program Files\\AutoCAD 2010\\help;C:\\Program
Files\\AutoCAD 2010\\express;C:\\Program Files\\AutoCAD
2010\\support\\color;D:\\acad\\lisp\\pltools;D:\\acad\\lisp\\spec;D:\\acad\\lisp
\\прокат;C:\\Program Files\\AutoCAD
2010\\g_tools;D:\\acad\\lisp\\blts;D:\\Acad\\LISP\\math;D:\\work\\aCAD_mini_2\\i
nterfase\\menu\\images\\;D:\\work\\aCAD_mini_2\\interfase\\menu\\;D:\\work\\aCAD
_mini_2\\bin\\;D:\\work\\aCAD_mini_2\\interfase\\menu\\images\\;D:\\work\\aCAD_m
ini_2\\interfase\\menu\\;D:\\work\\aCAD_mini_2\\bin\\"

Command: _delay Enter delay time (in milliseconds): 50

Command: (vla-put-SupportPath pref_obj new_support)
nil

Command: _delay Enter delay time (in milliseconds): 50

Command: (if (menugroup "ACM") (command "_menuunload" "ACM"))
_menuunload
Enter the name of a Customization Group to unload:ACM
Customization file unloaded successfully. Customization Group: ACM

Command: nil

Command: _menuload
Enter name of customization file to load: acmMnu.cui

Customization file loaded successfully. Customization Group: ACM

Command: (if (menugroup "ACM")
(_> (progn
((_> (setq menu_pos (- (vla-get-Count (vla-get-MenuBar (vlax-get-acad-object)))
1))
((_> (vlax-for menu_bar (vla-get-Menus (vla-item (vla-get-MenuGroups
(vlax-get-acad-object)) "ACM"))
(((_> (vla-InsertInMenuBar menu_bar menu_pos)))))
; error: extra right paren on input

Command: (gc)
nil

Command: (gc)
nil

Command: (gc)
nil

Command: _filedia
Enter new value for FILEDIA <0>: 1

Command: _attdia
Enter new value for ATTDIA <1>: 1

Command: (setvar "fullplotpath" 0)
0

Может знает кто как это можно исправить?

[Mikka]

Ты пробовал в файле acadMini2.ini в секции [bases] поменять относительные пути на абсолютные?
Под рукой нет 2010 автокада, проверить не могу....
з.ы если прога грузится не с сетевого диска, то в ярлык ничего пропсывать не нужно, а достаточно однократно запустить файл setup.scr
з.з.ы с команой строкой на первый взгляд все нормально, это отрабатывает setup.scr

[LSN]

Там уже стояли абсолютные пути. (они совпадают с реальным расположением)

[aloha1978]

Я так понимаю, что программа ориентирована на строительные специальности. А вот я, по роду своей деятельности, занимаюсь черчением технологических трубопроводов в 3D. В связи с этим вопрос: планируется ли добавление в программу отводов труб, переходов с одного сечения на другое, фланцев? Если нет, то может кто-нибудь подскажет, на простом языке (для не очень опытного программиста LISP) как это можно реализовать и подключить к этой программе?

[Mikka]

Уважаемый LSN к сожалению у меня нет возможности в ближайшее время протестировать прогу под 2010 акадом! Возможно только после нового года...
По поводу технологической части, мы только планируем ... работы начноутся опять же после нового года... Что это будет пока не ясно, либо какие то прибомбасы под КадВоркс, либо самостоятельная прога на движке 3d сортамета...
З.ы. следующая версия самого сортамента выйдет не раньше конца января...

[angel-fear]

Проект умер? Автор жив?
Глюк с исчезновением баз можно вылечить?

[_mikka]

Проект умер!, автор жив!
Опишите пожалуйста глюк, и версию автокада, постараюсь помочь!

[_mikka]

Вот последняя версия программы (ей около года)

Теперь на счет установки:
1. в ini пропиши полный путь к сортаментам
2. и еще , глянь в СЕРВИС -> НАСТРОЙКА (закладка файлы, на ней "Пути доступа к вспомогательным файлам), там должны быть абсолютные пути к программе !

Если программа переставлялась в новое место, то удалите старые пути!

На всякий пожарный привожу список путей, которые должны быть прописаны (есть в setup.scr)
...\aCAD_mini_2\interfase\menu\images\
...\aCAD_mini_2\interfase\menu\
...\aCAD_mini_2\bin\

соответственно вместо '...' нужно подставить полный путь...

з.ы. Желаю всем удачи!
З.З.Ы Разработка проекта с моей стороны прекращена! Буду рад если кто нибудь займется моей програмулиной
з.з.з.ы если возникнут вопросы по установке, или будут досаждать какие нибудь глюки, пишите, постараюсь помочь!

Исправил глюк с ошибкой при старте, см. приложение

[angel-fear]

Вот пример файла. Насколько я понимаю, проблема связана с тем, что я удалил базовые линии солидов. Но даже если создать в этом файле новые солиды, спецификация их не обрабатывает. Имеем пустые таблицы и окошко с надписью "Ключ не найден".

[_mikka]

Нет, базовые линии не влияют на составление спецификации, насколько я помню, спецификация собирается именно по солидам!

[angel-fear]

Ну тогда непонятно почему она их не находит )

[_mikka]

Исправил еще часть глюков, дело было в том, что спецификация по умолчанию (см. файл TableIni.ini) вставляется в слой OFORMLENIE, которого в вашем чертеже не было ! Теперь слой будет создаваться, а при невозможности создать будет вставляется в текущий (кстати если в файле TableIni.ini оставить пустую надпись вместо имени слоя, то вставляться будет в текущий слой), или в слой 0, при невозможности вставить в текущий!
Исправил также настройки высоты шрифтов в таблице!
з.ы. вообще советую смотреть инишники, там много чего можно настроить!

[angel-fear]

А в последнем вложении #83 aCadMini3d.dvb нужный или заменить на тот что в 79 посте выложен?
Просто они уж очень разные по размерам почему-то...

Кстати, квадратная труба все равно в спецификации отсутствует

[_mikka]

Нет, я полностью перепаковал!
Странно, у меня все есть , в старых версиях квадратная труба была ?
Ошибки не выдавал ?

[angel-fear]

Нет все работает без ошибок сейчас.
Вот файл со вставленной спецухой

[_mikka]

Странно, спецификация открылась с глюками, может быть из за того, что у меня 2008 ?
Попробуйте сортаменты с гнутыми профилями взять из старой версии... но у меня все работает, ничего чет не пойму...

[angel-fear]

Да ладно и хрен бы с ним ) главное сейчас вроде все заработало.
Может дело в установленных модулях (ModPlus, VetCAD, G-tools там), а может я просто что-то натворил с этими трубами уже...

Хм. Странно. Создал новый файл, в нем спецификация действительно стала вставляться как-то криво... своенравный софт )))
(см. приложение)

[_mikka]

Она просто не тестировалась на 2010.
Я писал ее для 2006. А в 2008 она уже корректно с таблицами не работала, пришлось дописывать... может и здесь тоже

[angel-fear]

Ат факинспэниш... ну ладно, главное есть конструкции в 3D, что уже доставляет. Спецуху доработаем напильником значит, благо я всего лишь электрик )))

Загрузил aCadMini3d.dvb бОльшего размера. Получил error при первом использовании, но зато потом нормальная спецуха. Может какие-то траблы со шрифтами?

[_mikka]

Вот, попробуйте заменить этот файл настроек...
Траблы со шрифтами могут быть, все это настраивается через ini файл

[angel-fear]

Заменил ) Вот результат:




А чертеж нормальный.

С каждым запуском автокада работает по-разному...
То есть эта ошибка, то нет. То нормальная таблица, то "Удлиненная" и в какой-то окраске "детско-неожиданных" тонов вставляется...

[_mikka]

Вы меня все больше и больше радуете, видимо это очередные изменения в модели VBA...
Сейчас проверить это не смогу, просто не автокада 2010, в ближайшие несколько дней постараюсь поставить и глянуть, что там происходит...

[angel-fear]

Палюбасу! Поставил на 2006 - как часы, нет ошибок, таблицы идеальны, все работает.

[_mikka]

Offtop: Вот спасибо, бальзам надушу!

[Astartes]

Кто-нибудь смог подключить данную прогу на 2011 Автокад.
У меня появляются панельки, но при вызове любой команды для профилей вылазить ошибка
; ошибка: Ошибка Automation. Проблемы при загрузке DVB-файла

Тему прочитал, пути где надо изменил. Для 2011 не рабочая, или я гдето что то забыл сделать?

[_mikka]

Залезь еще в
D:\work\aCAD_mini_2\bin\Cmd.Lsp

Скорее всего полноценно работать не будет, т.к. под 2010 проблемы есть...

[Вовочка]

Что только не делал, но 2008 КАД баз не видит.

[_@leCs_]

А может кто оптимизировать код под Автокад 2015 64 бит. Очень нужно в программировании ноль.