[sialiv]

Как в автокаде создать символ(стрелка) , который попадая на одну горизонталь с таким же символом соединяются линией. Если объект удалить линия исчезает. Если объединить в блок то при совпадении все продолжает соединяться???

[SetQ]

Реактором.

[sialiv]

Сообщение от SetQ Реактором.

Ответ шикарный!
Предположим что в ряд стоит 4 элемента, >_>_>_> ; связей 3;
средний элемент исчез и ......
А если эти элементы поместить в блок они перестают работать.

Я прошу пояснить логигу и если можно детали?

[SetQ]

sialiv, возможно я не понял о чём речь, хорошо бы увидеть чертёж Автокада с примером в котором работают и не работают связи.

[sialiv]

Сообщение от SetQ sialiv, возможно я не понял о чём речь, хорошо бы увидеть чертёж Автокада с примером в котором работают и не работают связи.

Чертежа в Автокаде нет.
Cмысл:
Тратсформатор.(3 фазы).
Рисую реле; у него несколько контактов(силовое 3шт.)
Добавляю элемент защиты.(3 фазы)
и тд... схема может содержать до 1000 соединений.

Постоянно рисовать линии связи долго, да и скучно.
Если есть автоматический элемент скорость рисования выше и есть время подумать о реальной схеме, а если потом еще изменить надо все упрощается.
Подобный алгоритм реализован в EPLAN, но это стоит 10000евро, а без лицензии есть проблеммы.

[SetQ]

Это можно сделать с помощью небольшой программы на АвтоЛИСПе, которую нужно написать.

[sialiv]

Сообщение от SetQ Это можно сделать с помощью небольшой программы на АвтоЛИСПе, которую нужно написать.

Я в лиспе писал простые макросы и простые обработки по правой кнопки мыши, есть програмка расчета длин полилиний с назначением дополнительных данных и экспортом в EXCEL, а в этом случае не понимаю полной логики реакции системы и соответственно немогу оценить требуемый уровень владения лиспом в Автокаде.
Мозги есть но нужен толчок куда бежать...???

[SetQ]

Есть реакторы на объекты, в справке по АвтоЛиспу даже есть поурочный пример с "парковой дорожкой", сейчас нет под рукой автокада, так что завтра поконкретнее напишу.

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

Я не думаю, что здесь такой вариант прокатит. По идее надо ставить только один реактор на удаление объекта, и второй - на перемещение. А так сильно просится сюда СПДС с его гребенчатыми выносками, если я правильно понял начальную задачу.

[Vova]

Что-то мне говорит, что может помочь это

[sialiv]

Сообщение от Vova Что-то мне говорит, что может помочь это

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

[SetQ]

Вот что я имел в виду:

Код:

[Выделить все]

(DeFun do-something (notifier reactor arg-list)
  (TerPri)
  (Princ
    (Cdr (Assoc 10 (EntGet (vlax-vla-object->ename notifier))))
  )
  (Prin1)
)

(SetQ
  ent	     (Car (EntSel "Объект для присоединения реактора: "))
  entReactor (vlr-object-reactor
	       (list (vlax-ename->vla-object ent))
	       "a reactor"
	       '((:vlr-modified . do-something))
	     )
)
(If (Not (Null entReactor))
  (Alert "OK.")
)
(Prin1)

Указываем объект, если "ОК" - двигаем его, рекатор печатает в консоли новые координаты точки вставки (на отрезке проверял).

[sialiv]

Код работает, но проблемма:
1 - для перемещения связанных обьектов нужно знать дельту_перемещения и список связанных обьектов, которые должны переместиться синхронно.
2 - непойму как к примитиву присоединить свободные данные, которых нехватает.
3 - во время перемещения обьекта видим только основной что не дает реального представления о результате действия.
4 - и еще как получить доступ к вершинам LWPOLYLINE.

[SetQ]

1. Надо подумать.
2. xdata?
3. Основной - что? т.е. двигаем один объект и не видим, что произойдёт когда завершим команду?
4. Может что-то с префиксом vlax-curve-get.., может здесь есть.