Avton

Начну тему. Делимся опытом и наработками.
Выкладываю пару своих макросов, плюс пару программок для разнообразия.
Итак:
1. Макрос VBA для подсчета спецификации кабеля по кабельной сети, нарисованной в AutoCAD. (Описание прилагается)
Скачать 39 Кб
2. Макрос VBA для пакетного пересохранения AutoCAD в AutoCAD ранних версий, а также конвертирования файлов DXF в DWG. (Описание прилагается)
Скачать 29 Кб

Делимся своими макросами, полезностями, впечатлениями, комментариями. Все возможно улучшить и развить.



p.s.
И 2 программки, лично мне облегчающие пользование компьютером.
1. Автонажиматель мыши через определенное время. Пригождается когда нужно распечатать документ например на черновике. Обычно делается так:
идем к принтеру, вставляем черновик, идем к компу, нажимаем печать, идем к принтеру, забираем лист.
С программой делается так:
Запускаем программку,нажимаем старт, наводим курсор на кнопку (или пункт меню) "Печать", идем к принтеру, ставим черновик, программа через установленное время сама нажмет кнопку печать, забираем лист, идем к компу. Таким образом хождение к принтеру сокращается в 2 раза.
Скачать 200 Кб
2. Создание горячих клавиш. Можно задать любую комбинацию клавиш и действий клавиатуры на одну клавишу клавиатуры, например последовательность "123{ENTER}{HOME}" на одну кнопку.
Для своего удобства набивания верхушек и низовок на цифровой клавиатуре, я сделал на знак / букву Н, на знак * букву В, теперь не приходится искать по большой клавиатуре эти буквы.
Скачать 213 Кб

Вложения

	KabSet.zip (38.4 Кб, 2294 просмотров)
	SaveAs.zip (28.2 Кб, 972 просмотров)
	AutoClick.zip (199.2 Кб, 721 просмотров)
	Keys.zip (213.0 Кб, 802 просмотров)

kycok

Макрос для подсчета количества приборов. Заточен под Autocad 2008.

Вложения

Pribori.rar (285.0 Кб, 864 просмотров)

Shoorup

Avton, попробовал твой макрос по подсчету кабеля. Очень даже впечатляет. Очень понравилась идея закраски в цвет посчитанных кабелей. Единственное не прикольнуло, что в желтый цвет красит - плохо видно на белом фоне. И то, что в 2010м AutoCAD уже не работает. Просто не грузится.

Вот выкладуваю похожую програмку по подсчету кабеля. Единственное отличие это то, что она считает соединительные муфты еще.
Процедура установки: Копируем файл в папку C:\Program Files\AutoCAD 200Х\Support. Затем создаем кнопку с макросом C^C(if (null C:lcab)(load "lcab"));lcab; Процедура запуска следующая: тыкаем кнопку и на запрос выбрать кабель либо указываем поштучно, либо секущей рамкой выбираем все, ну или Ctrl+Alt. Затем Enter. потом указываем точку вставки таблицы.

По сути проги делают одно и тоже, а вот с посчитаным кабелем и цветом, беру на заметку и щас попробую попросить чтоб сделали похожее.


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

Avton

Shoorup, спасибо за отзыв. Вот обновленная версия, с выбором цвета окраски.
Скачать
Посмотрел твой макрос, надо будет тоже добавить соединительные муфты
А вот это фиг знает. Нет у меня 2010 AutoCAD`а Появится, посмотрю, может там по другому загрузка макросов, незнаю даже.

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

Вложения

KabSet.zip (38.6 Кб, 637 просмотров)

Shoorup

Две по сути одинаковые программы получатся Ну да ладно, кому как нравится. И кстати это не макрос. Это скорее приложение-программа.
Насчет мега полезности не знаю... но что-то в подобной программе есть. База в Exel мне почемуто больше нравится - нагляднее. У меня она немного красивше оформлена, это не просто столбик с перечисленными приборами, но и дополнительная информация - типа розеток и пр. Можно использовать и в справочных целях.

Avton

Имеется ввиду не руками по комплектации считать приборы
Да хоть грибом ее обозвать можно

kycok

Макрос суммирует цифры из выделенных текстовых строк, не содержащих буквенных символов. скачать.

Макрос для поиска "наслоившигося" текста. Актуален, когда в результате ошибочного использования команды "копировать с базовой точкой" возникает ситуация, при которой к одной точке принадлежат два идентичных друг другу текста. скачать.
P.S.Но вообще-то оказывается есть полезная команда _overkill

Макрос формирует из ряда однострочных строк многострочный текст. Аналогичен команде "Convert text to Mtext" из меню Express, но все-таки отличается скачать.

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

Вложения

	cyMMa.rar (16.9 Кб, 682 просмотров)
	delcopy.rar (18.2 Кб, 440 просмотров)
	mtext.rar (9.4 Кб, 638 просмотров)
	one_file.rar (9.0 Кб, 710 просмотров)

Avton

Добавил в макрос по подсчету спецификации кабельных сетей подсчет соединительных муфт.

Вложения

KabSet.zip (37.2 Кб, 539 просмотров)

dimbas

Avton,

Дружище , можешь дополнить автонажиматель повторами? т.е. чтобы он не закрывался, а ещё раз нажимал.

Avton

dimbas, могу. Поподробнее напиши что нужно.

Anton1987

Подскажите пожалуйста как должны быть начерчены кабеля, чтобы программа могла их посчитать. Как я понял обычные линии она не считает?

Avton

Макрос не на линии смотрит, а на текст над ними. Текст должен быть примерно таким:
25-3х2(2)
100-12х1(3)
то есть [длина]-[жильность]([запас])

Anton1987

А ясно. Эта программа хороша если на чертеже не очень много линий и есть возможность размещать подписи. Не подскажите макрос или программку которая или автоматически расставляет длины линий в виде текста, или просто создает таблицу с длинами линий.

Просто при проектировании электрических сетей очень много времени уходит на кабельный журнал и ручное вбивание длин линий. Хочется как-то автоматизировать этот процесс)))

Спасибо за быстрый ответ

Avton

А длины вбивать в текст откуда? Из линий брать? То есть они в масштабе получается? Если да, то в принципе можно, за отдельную плату

SPICE

А нельзя сделать то же самое, только соединительными дать муфты FDM-1(для кабелей до 6 жил включительно) и FDM-2(7+ жил) и с учетом строительной длины(до 16 жил СД 250м, свыше 16ти-300м)? Ну и для полного счастья можно дать расчет количества пачек гермета для них, для одной FDM-1 нужно 250гр. гермета, для FDM-2 нужно 700гр. Упаковки гермета весят либо 250 либо 400грамм, округлять дробь полученных упаковок в сторону большего.