Schöck
Показать сообщение отдельно
Непрочитано 08.02.2017, 17:06 1 | #1
LISP. Автоматическая маркировка кабельных линий и составление КЖ
valerik88
 
Регистрация: 02.07.2016
Сообщений: 191

Программка имеет следующие функции:
cableObject - добавить область в которую будут заводится кабели (выполняет роль шкафов, потребителей, всего что связывается кабелем. Область не выводится на печать)
cableObjectRename - переименование области
cable - задать параметры кабеля для полилинии
cableMark - промаркеровать кабели на плане
cableJ - выбрать кабели и составить на их основе кабельный журнал.
cableObjectScheme - отрисовка однолинейной схемы для объекта cableObject
cableReactor - включить реакторы, для редактирования системы через однолинейную схему
cableReactorOff - выключить реакторы

При изменении маркировки кабеля, все маркировки на плане обновляются автоматически.

Демонстрация работы на видео:
https://youtu.be/9I_4Io_HvZs

Размеры ячеек кабельного журнала - не по ГОСТу, из личных соображений (в гостовские размеры надписи не влазят), кому нужно, отредактируйте в коде размеры ячеек.


Добавил функцию отрисовки однолинейной схемы
https://youtu.be/DnnqxkNkSKU
Для работы этой функции необходимо, что бы в файле присутствовали мои блоки, файл с блоками прикладываю. Для работы, нужно скопировать однолинейку из моего файла в Ваш чертёж, тогда все нужные блоки будут в чертеже.
Заменить их на свои блоки будет проблематично, поэтому однолинейка будет выглядеть именно так, как я её всегда рисую, если вы рисуете по своему, возможно вам эта функция не поможет.

Выкладываю новую версию скрипта.
Сделал возможность редактирования кабелей через однолинейную схему. Демонстрация на видео
https://youtu.be/Z1kiSPiydDM

Для этого использую реакторы, т.е. реакция автокада на определённые действия пользователя, в частности на редактирование текста.
Для включения реактора - команда cableReactor для выключения - cableReactorOff

Протестировано на Autocad 2016.

У кого старый автокад - не качайте, работать не будет. Старая версия без функции отрисовки однолинейки есть в 23 посте http://forum.dwg.ru/showpost.php?p=1617136&postcount=23, она должна работать на старом автокаде.

Вложения
Тип файла: lsp cable.lsp (75.6 Кб, 452 просмотров)
Тип файла: dwg cable-блоки для однолинейки.dwg (70.0 Кб, 546 просмотров)


Последний раз редактировалось valerik88, 13.03.2017 в 16:18.
Просмотров: 27767
 
Размещение рекламы