Lisp простановка перекрёстных ссылок

[MTL] · 01.10.2021, 11:11

Тема для тех, кто понимает что такое перекрёстная ссылка на электрической схеме (м.б. и не только на электрической - не встречал) и при этом пользуется классическим Autocad.
Во вложении программа, которая облегчает проставление перекр. ссылок на схеме, а также координатная рамка в пространстве которой это происходит. Работает следующим образом:
1. Открываете "Коорд. рамка.dwg" (для примера, в дальнейшем в свой файл). См. ниже важные замечания.
2. Загружаете "links_v6.4.lsp".
3. В командной строке "РЗ" русскими буквами. Появляется запрос "Создать [Enter]/Обновить/Удалить:"
4. При выборе "Создать" нажмите Enter (или C(рус.) или E(англ.)). Появиться запрос "Введите координаты первой точки пары n" - кликаете в пространстве модели в области внутри рамки. Далее запрос "Введите координаты второй точки пары n" опять кликаете. Если всё правильно сделали, появятся 2 текстовых надписи. Первая отображает координаты второй, вторая первой в формате "/XY". Где Х - цифровая позиция по горизонтали, Y - буквенная позиция по вертикали. Запрос циклически повторяется, чтобы прервать - нажмите "Esc".
5. При выборе "Обновить" (или О(рус.) или J(англ.)) позиции обновляются. Чтобы убедиться подвигайте точки(-ку). Подробности в командной строке.
6. При выборе "Удалить". Все перекрёстные ссылки и информация о них удаляются.

Важные замечания:
1. Программа работает только с типом рамок, которые представлены в файле "Коорд. рамка". Теоретически можно адаптировать и под другие рамки, которые вы используете. Код открыт.
2. Рамки должны располагаться так, как они расположены, т.е. в пространстве модели вплотную друг к другу. До 20 листов в ряд.
3. Начало координат должно быть в месте, показанном в "links_начало координат.png". В Autocade есть команда "Определить новое начало координат путём сдвига начальной точки." Воспользуйтесь. У меня находиться на вкладке "Визуализация".
4. При создании перекр. ссылок, они автоматически помещаются на слой E-DGRM-N-GAP. Возможны ситуации, когда вам не нужно видеть ссылку на одном из концов, тогда переместите её на слой E-DGRM-N-GAP_HID. Он тоже автоматически создаётся, и не печатается. Можно менять любые свойства слоёв, кроме названия. Если название не нравиться поменяйте в тексте лиспа.
5. В отличии от спец. САПР типа EPLAN, AutoCad Electrical, создаваемые таким образом ссылки не привязаны к объектам. В этом есть и плюсы и минусы. Минусы - то что нужно вручную "протыкивать" всю схему и контролировать, чтобы при перемещении объекта случайно не потерять ссылку. Плюс, что она может использоваться с любыми объектами, а не только со спец. созданными. Костыль конечно. Но лучше уж костыль чем совсем никак.

PS: Если у вас возникает вопрос "Зачем всё это нужно?" и "Я так не работаю", значит вам это не нужно. Флудить не стоит.

Кулик Алексей aka kpblc · 01.10.2021, 11:30

1. Почему текст создается только стилем Standard?
2. Не увидел меток начала и конца отмены.
3. На любом getpoint я нажму Esc - и программа скажет гудбай. А системные переменные уже изменены.
4. Прописывать реакции для dcl прямым текстом - так себе идея.
5. Лично мой прикол: любая функция (в том числе и локальная) должна запускаться, не ориентируясь на значение внешних переменных. Параметры вызова и локальные переменные даже для внутренних функций еще никто не отменял.
6. Масса переменных просто не локализована. Не гуд.
7. Высота текста жестко зашита в коде. Почему не использовать textsize - загадка.

Не очень понимаю, зачем выполнять преобразование в мировую систему координат. Насколько я помню, текст создается в текущей системе.

----- добавлено через ~2 мин. -----

Код:

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

 (defun sozdpoin (/)
    (entmake (mapcar 'cons
                     (list 0 100 67 8 100 10 40 1 7 72 73 11 62 41)
                     (list "TEXT"
                           "AcDbEntity"
                           0
                           "E-DGRM-N-GAP"
                           "AcDbText"
                           t1w
                           2.5
                           (strcat " /" link_x2 link_y2)
                           "Standard"
                           0
                           2
                           t1w
                           0
                           0.7
                     ) ;_ end of list
             ) ;_ end of mapcar
    ) ;_ end of entmake
    (setq point1 (entlast)
          point1 (cdr (assoc 5 (entget point1)))
    ) ;_ end of setq
    (entmake (mapcar 'cons
                     (list 0 100 67 8 100 10 40 1 7 72 73 11 62 41)
                     (list "TEXT"
                           "AcDbEntity"
                           0
                           "E-DGRM-N-GAP"
                           "AcDbText"
                           t2w
                           2.5
                           (strcat " /" link_x1 link_y1)
                           "Standard"
                           2
                           2
                           t2w
                           0
                           0.7
                     ) ;_ end of list
             ) ;_ end of mapcar
    ) ;_ end of entmake
    (setq point2 (entlast)
          point2 (cdr (assoc 5 (entget point2)))
    ) ;_ end of setq
  )

Код:

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

 (defun sozdpoin (ins-point link-x link-y / ent)
                ;|
  *    Создание текста вида " /<X><Y>"
  *    Параметры вызова:
    ins-point  ; точка вставки текста. Не nil. Контроля не производится
    link-x     ; строка <X>. Контроля типа данных не производится
    link-y     ; строка <Y>. Контроля типа данных не производится
  *    Возвращает хендл созданного примитива либо nil, если создать не удалось
  *    Примеры вызова:
  (sozdpoin (getpoint "\nУкажите точку") "X" "Y")
  |;
  (if (setq ent (entmakex (mapcar (function cons)
                                 (list 0 100 67 8 100 10 40 1 7 72 73 11 62 41)
                                 (list "TEXT"
                                       "AcDbEntity"
                                       0
                                       "E-DGRM-N-GAP"
                                       "AcDbText"
                                       ins-point
                                       (getvar "textsize")
                                       (strcat " /" link-x link-y)
                                       (getvar "textstyle")
                                       0
                                       2
                                       ins-point
                                       0
                                       0.7
                                 ) ;_ end of list
                         ) ;_ end of mapcar
                ) ;_ end of entmake
      ) ;_ end of setq
    (cdr (assoc 5 (entget ent)))
  ) ;_ end of if
) ;_ end of defun

[MTL] · 01.10.2021, 13:56