[valerik88]

Программка имеет следующие функции:
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, она должна работать на старом автокаде.

[Nike]

valerik88, функции getpropertyvalue нету и прога не работает

[valerik88]

Почему нету? Это же стандартная функция
https://knowledge.autodesk.com/searc...2E899-htm.html

[Nike]

А што у мене рухаесе

Команда: cable Выберите Полилинию
Выберите объекты:
; ошибка: no function definition: GETPROPERTYVALUE

----- добавлено через ~1 мин. -----
ЗЫ у мене 2011

[valerik88]

Напишу в первом посте, что протестировано на Autocad 2016

[zamtmn]

Имеется возможность "множественного" редактирования? т.е. выделил несколько полилиний и задал им свойства за раз?

Есть похожее кино https://youtu.be/ZvgW7uB2R30

[valerik88]

Сделаю

[Boxa]

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

[kp+]

Сообщение от valerik88 Почему нету? Это же стандартная функция https://knowledge.autodesk.com/searc...2E899-htm.html

Сообщение от valerik88 На 2011 не работает.

GETPROPERTYVALUE появилась с 2015. На старых версиях можно заменить на (vlax-get-property (vlax-ename->vla-object n) "Length") или просто (vla-get-Length (vlax-ename->vla-object n)). Чуть позже опробую и отпишусь.

[valerik88]

Сообщение от Boxa Еще предложение, начало и конец полилинии находятся внутри блоков щитков, соответственно программа сама может заполнить поля начала и конца кабеля в форме.

Уже обдумываю как это лучше сделать

[zamtmn]

>>Уже обдумываю как это лучше сделать
А еще надо возможность "разрывов" кабельной линни - для черчения одной кл на разных планах с разными масштабаими, "вертикальные" участки...
Имхо на лиспе такое не сделать удобным

[skkkk]

Сообщение от Nike GETPROPERTYVALUE

Несколько удивился тому, что в лиспе что-то еще появляется (слышал только про command-s).
Почитал, что getpropertyvalue появилась в 2011-м. Однако у меня и у Nike ее нет. Почему, интересно?

[valerik88]

Сделал возможность редактировать сразу несколько КЛ
Заменил функцию getproperyvalue на (vlax-get-property), проверьте у кого старый автокад.

В шапке файл тоже обновлю.

[Nike]

С setpropertyvalue та же беда..

[valerik88]

Исправлю в следующем релизе... Пока не нашёл как изменять свойства TextLocation/X и TextLocation/Y через vlax-put-property... там таких свойств как будто нет... или называются по другому.

Уже сделал автозаполнение полей "Начало Кл" и "Конец КЛ", вечером выложу.

[kp+]

Сообщение от valerik88 там таких свойств как будто нет

Здесь было по прогр. работе с мультивыносками
Лисповый вариант - в #16

[valerik88]

Сообщение от kp+ Здесь было по прогр. работе с мультивыносками Лисповый вариант - в #16

Спасибо, помог!

[Profan]

А что там с трубами?

[valerik88]

с какими трубами?

[Profan]

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