Как при пересечении двух линий сделать установку нужного блока в месте пересечения

03.10.2012, 11:38

Поясню свою проблему и желательный результат, которого хотелось бы добиться. Возможно, я хочу слишком многого, но я поясню, а там надеюсь вы подскажете, что из перечисленного можно реализовать.
Суть проблемы состоит в том, что нужно организовать "правильное" взаимодействие линий на чертеже по электрике, а именно функцию наложения с пересечением и функцию наложения линий без пересечения.
Наложение с пересечением:
1. На чертеже уже имеется полилиния А
2. При чертеже новой полилинии Б, которая пересекается с полилинией А в месте их пересечения вставляется блок В.
Блок В по замыслу представляет собой либо тупо кружок, либо обозначение распаечной коробки. Но я думаю это неважно.
Наложение без пересечения:
1. На чертеже уже имеется полилиния А
2. При чертеже новой полилинии Б, которая пересекается с полилинией А в месте их пересечения вставляется полукруг определенного радиуса, линия Б обрезается по полукругу и данный полукруг добавляется к полилинии Б для обеспечения непрерывности полилинии Б и сохранения данных о ее длине.

В моем AutoCad 2012 Electrical (версия ОС XP 32bit) есть панель, выполняющая все данные функции, но она работает с объектом "провод", который есть суть отрезок, а не полилиния. Мне важно чтобы это работало и с полилиниями, причем полилинии оставались непрерывными от начала до конца.
Вообще великолепно если бы это все еще и на кнопку можно было повесить и работало как с "проводом" - нажимаешь кнопку "с пересечением" и чертишь полилинию, при этом в месте пересечения со всеми другими полилиниями вставляется определенный блок; нажимаешь "без пересечения", чертишь полилинию, в месте ее пересечения с другими вставляются полукруги и добавляются к исходной без нарушения ее целостности.

Буду очень признателен за помощь.

Дима_ · 03.10.2012, 12:24

Расписал хорошо - с первого раза понятно - примеры рисуй.
Offtop: правда мне сейчас особо не когда, но быть может...

128500 · 03.10.2012, 12:53

Вот файл с примерным видом того как должно быть

Дима_ · 03.10.2012, 17:03

Набросал без проверок и пр:

Код:

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

  (vl-load-com)
(defun col->list (obj / ret)
  (vlax-for item obj (setq ret (cons item ret)))
  (reverse ret))
 (defun over-line (line R)
 ((lambda (split3 obj doc)
    (vla-startundomark doc)
    (mapcar '(lambda (ent)
               (mapcar '(lambda (pt)
                            (if (= (type R) 'str) 
                                (entmakex (list '(0 . "insert") (cons 10 pt) (cons 2 R)))
                                  ((lambda (param)
                                     (if (and (not (equal (vlax-curve-getparamatpoint obj pt) 0.0 0.0001))
                                              (/= param (vlax-curve-getendparam obj)))
                                         (progn
                                           (vla-addvertex
                                             obj
                                             (1+ param)
                                             (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble '(0 . 1))
                                                                  (polar (reverse (cdr (reverse pt)))
                                                                         (angle pt (vlax-curve-getpointatparam obj param))
                                                                         R)))
                                           (vla-addvertex
                                             obj
                                             (+ param 2)
                                             (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble '(0 . 1))
                                                                  (polar (reverse (cdr (reverse pt)))
                                                                         (angle pt (vlax-curve-getpointatparam obj (+ param 2)))
                                                                         R)))
                                           (vla-setbulge obj (1+ param) 1))))
                                   (fix (vlax-curve-getparamatpoint obj pt))))) 
                       (split3 ((lambda (var) (if (> (vlax-safearray-get-u-bound var 1) 0)
                                                  (vlax-safearray->list var)))
                               (vlax-variant-value (vla-intersectwith obj (vlax-ename->vla-object ent) acExtendNone))))))
            (vl-remove line
              (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_a" (cons '(0 . "LWPOLYLINE")
                                                                            (cons '(-4 . "<OR")
                                                                              (reverse 
                                                                                (cons '(-4 . "OR>")
                                                                                 (mapcar '(lambda (x) (cons 8 (vla-get-name x)))
                                                                                         (vl-remove-if-not 
                                                                                           '(lambda (x) (= (vla-get-layeron x) :vlax-true))
                                                                                           (col->list (vla-get-layers doc))))))))))))));ну поленился я - пусть все проверяет
              (vla-endundomark doc))
     (lambda (lst);split3
        (if lst (cons (list (car lst) (cadr lst) (caddr lst))
                      (split3 (cdddr lst)))))
     (vlax-ename->vla-object line);obj
     (vla-get-activedocument (vlax-get-acad-object))));doc

запускать (over-line pln XXX)
где pln - ename указатель на полилинию, XXX радиус дуги (если обводить) или имя существующего блока обозначения пересечения (если пересекать).
То есть - повесить на кнопки следующие макросы:
для пересечения сразу после рисования -
(command "_pline" (while (= (getvar "CMDACTIVE") 1) (command "\\")))(over-line (entlast) "имя_блока_пересечения")
для огибания -
(command "_pline" (while (= (getvar "CMDACTIVE") 1) (command "\\")))(over-line (entlast) 50)
где 50 радиус дуги огибания;
для "обрисовки" уже существующей -
(over-line (car (entsel)) 50)

128500 · 03.10.2012, 18:03

Собственно, так и сделал.
Конкретнее, создал новую команду, в поле "Макрос" прописал

Цитата:

^C^C(command "_pline" (while (= (getvar "CMDACTIVE") 1) (command "\\")))(over-line (entlast) пересечение)

потом

Цитата:

^C^C(command "_pline" (while (= (getvar "CMDACTIVE") 1) (command "\\")))(over-line (entlast) "пересечение")

потом

Цитата:

^C^C(command "_pline" (while (= (getvar "CMDACTIVE") 1) (command "\\")))(over-line (entlast) 50)

"пересечение" называется мой блок, содержащий круг
Во всех случаях нажатие на кнопку, к которой приартачен макрос, вызывает появление в командной строке

Цитата:

(command "_pline" (while (= (getvar "CMDACTIVE") 1) (command "

с просьбой что-то ввести видимо. Пока незнаю что.

Дима_ · 03.10.2012, 22:30

А с кнопкой позабыл замени везде (command "\\") на (command pause)
p/s/ правильно там где "пересечение"

128500 · 04.10.2012, 08:53

Ну к сожалению пока тоже не получается.
Прописывание макросов

Цитата:

^C^C(command "_pline" (while (= (getvar "CMDACTIVE") 1) (command pause)))(over-line (entlast) "пересечение")

Цитата:

^C^C(command "_pline" (while (= (getvar "CMDACTIVE") 1) (command pause)))(over-line (entlast) 50)

при нажатии на кнопку заставляет чертить полилинию, чертятся они нормально без ошибок, но в местах пересечений ничего не образуется

Цитата:

(over-line (car (entsel)) 50)

вызывает сообщение

Цитата:

Выберите объект: ; ошибка: no function definition: OVER-LINE

подумал что может это не весь код а концовка измененная предыдущего, но макрос

Цитата:

^C^C(command "_pline" (while (= (getvar "CMDACTIVE") 1) (command pause)))(over-line (car (entsel)) 50)

тоже просто чертит полилинию

Дима_ · 04.10.2012, 09:12

Цитата:

Сообщение от 128500

Выберите объект: ; ошибка: no function definition: OVER-LINE

так "еёж" (тот самый код который в начале сообщения) загрузить надо (от того что она на dwg.ru опубликованна, Autodesk, пока еще, ее автоматом не находит), как загрузить - в поиск на форуму (в простом варианте - текстовку сохранить в *.lsp (копировать с форума через всплавающею панельку БЕЗ номеров строк) файл и "зататащить" его в окно автокада).

з.ы. Кстати, об автоматической загрузки с форума. Господа! А может сами сделаем? Чтоб зараза, или просто не грамотный, по отношению к другим код, не проникала - попросим модераторов и иных уважаемых добровольцев инспектировать, ну и выделим раздел, надо только по именам стандартизировать.

128500 · 04.10.2012, 09:17

Да не, уж это я сделал. Создал файл over-line.lsp с содержимым

Цитата:

(vl-load-com)
(defun over-line (line R)
((lambda (split3 obj doc)
(vla-startundomark doc)
(mapcar '(lambda (ent)
(mapcar '(lambda (pt)
(if (= (type R) 'str)
(entmakex (list '(0 . "insert") (cons 10 pt) (cons 2 R)))
((lambda (param)
(if (and (not (equal (vlax-curve-getparamatpoint obj pt) 0.0 0.0001))
(/= param (vlax-curve-getendparam obj)))
(progn
(vla-addvertex
obj
(1+ param)
(vlax-safearray-fill (vlax-make-safearray vlax-vbdouble '(0 . 1))
(polar (reverse (cdr (reverse pt)))
(angle pt (vlax-curve-getpointatparam obj param))
R)))
(vla-addvertex
obj
(+ param 2)
(vlax-safearray-fill (vlax-make-safearray vlax-vbdouble '(0 . 1))
(polar (reverse (cdr (reverse pt)))
(angle pt (vlax-curve-getpointatparam obj (+ param 2)))
R)))
(vla-setbulge obj (1+ param) 1))))
(fix (vlax-curve-getparamatpoint obj pt)))))
(split3 ((lambda (var) (if (> (vlax-safearray-get-u-bound var 1) 0)
(vlax-safearray->list var)))
(vlax-variant-value (vla-intersectwith obj (vlax-ename->vla-object ent) acExtendNone))))))
(vl-remove line
(vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_a" '((0 . "LWPOLYLINE"))))))));ну поленился я - пусть все проверяет
(vla-endundomark doc))
(lambda (lst);split3
(if lst (cons (list (car lst) (cadr lst) (caddr lst))
(split3 (cdddr lst)))))
(vlax-ename->vla-object line);obj
(vla-get-activedocument (vlax-get-acad-object))));doc

и поставил его в автозагрузку через Сервис -> AutoLisp -> Приложения

Дима_ · 04.10.2012, 09:19

команда (list over-line) что выдает?

128500 · 04.10.2012, 09:21

Выдается

Цитата:

Команда: (list over-line)
(#<SUBR @2a6931b8 OVER-LINE>)

Дима_ · 04.10.2012, 09:26

давай еще раз полный лог команды (должно вначале штатно нарисовать полилинию, а потом вставить блоки/дуги в местах пересечения с другими)

128500 · 04.10.2012, 09:32

А извини пожалуйста, все работает.
Дело в моей косорукости как юзера.
Просто я привык полилинии рисовать, в конце нажимая Esc. Правильно команду завершать нажимая Enter. Как только стал нажимать Enter, все стало работать.
Ты меня второй раз уже выручаешь. С меня пиво

Дима_ · 04.10.2012, 09:34

Цитата:

Сообщение от 128500

Просто я привык полилинии рисовать, в конце нажимая Esc.

Это старая тема - которую в общем можно обработать, но да ладно.
Offtop:

Цитата:

С меня пиво

- не только водку.

128500 · 04.10.2012, 09:35

Если б можно, то отлично. Ну а нет так нет, и так зашибись.

Дима_ · 04.10.2012, 09:55

тады код кнопки макроса замени на
((lambda (fn entl)
(vl-catch-all-apply 'fn ())
(if (not (equal entl (entlast)))
(over-line (entlast) 50)))
(lambda () (command "_pline" (while (= (getvar "CMDACTIVE") 1) (command pause))))
(entlast))
остальные соответственно

128500 · 04.10.2012, 10:03

Ругается он мне. Видимо я неправильно прописываю макрос. "^C^C" писать только вначале этого или на каждой строке?

Дима_ · 04.10.2012, 10:17

Ай эти кнопки - давай по другому: добавляешь в код

Код:

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

(defun c:over-line-50()
  ((lambda (fn entl)
     (vl-catch-all-apply 'fn ())
     (if (not (equal entl (entlast)))
         (over-line (entlast) 50)))
   (lambda () (command "_pline" (while (= (getvar "CMDACTIVE") 1) (command pause))))
   (entlast)))

а в кнопку пишешь ^C^Cover-line-50 ну и с перекрестьем - аналогично

128500 · 04.10.2012, 10:20

Ясно. Спасибо, я пожалуй оставлю как есть, ибо для меня это уже слишком сложно.
В "оставить как есть" есть свой плюс - если в конце команды нажать Esc то начертится просто полилиния, а если Enter/Пробел то будут организовываться пересечения. Тем самым по этой кнопке можно начертить все что захочется.

Еще раз спасибо за труды.

128500 · 05.10.2012, 12:28

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

Дима_ · 05.10.2012, 15:17

Добавил в #4.

128500 · 05.10.2012, 15:31

Спасибо, работает

И в порядке окончательной наглости - в #18 ты писал что нужно добавить в код чтобы команда срабатывала даже если в конце нажимается Esc а не Enter/Пробел.
Куда именно писать не подскажешь? Все таки надо чтобы и на отмену реагировало.

Дима_ · 05.10.2012, 16:28

в код сверху или с низу не важно, можно отдельным lsp файлом и не забыть изменить макросы на кнопках

128500 · 05.10.2012, 19:31

Совсем туго у меня с лиспом. Точнее не соображаю я ничего.
В общем лисп-файл с учетом добавленого в конец #18 получился

Код:

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

  (vl-load-com)
(defun col->list (obj / ret)
  (vlax-for item obj (setq ret (cons item ret)))
  (reverse ret))
 (defun over-line (line R)
 ((lambda (split3 obj doc)
    (vla-startundomark doc)
    (mapcar '(lambda (ent)
               (mapcar '(lambda (pt)
                            (if (= (type R) 'str) 
                                (entmakex (list '(0 . "insert") (cons 10 pt) (cons 2 R)))
                                  ((lambda (param)
                                     (if (and (not (equal (vlax-curve-getparamatpoint obj pt) 0.0 0.0001))
                                              (/= param (vlax-curve-getendparam obj)))
                                         (progn
                                           (vla-addvertex
                                             obj
                                             (1+ param)
                                             (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble '(0 . 1))
                                                                  (polar (reverse (cdr (reverse pt)))
                                                                         (angle pt (vlax-curve-getpointatparam obj param))
                                                                         R)))
                                           (vla-addvertex
                                             obj
                                             (+ param 2)
                                             (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble '(0 . 1))
                                                                  (polar (reverse (cdr (reverse pt)))
                                                                         (angle pt (vlax-curve-getpointatparam obj (+ param 2)))
                                                                         R)))
                                           (vla-setbulge obj (1+ param) 1))))
                                   (fix (vlax-curve-getparamatpoint obj pt))))) 
                       (split3 ((lambda (var) (if (> (vlax-safearray-get-u-bound var 1) 0)
                                                  (vlax-safearray->list var)))
                               (vlax-variant-value (vla-intersectwith obj (vlax-ename->vla-object ent) acExtendNone))))))
            (vl-remove line
              (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_a" (cons '(0 . "LWPOLYLINE")
                                                                            (cons '(-4 . "<OR")
                                                                              (reverse 
                                                                                (cons '(-4 . "OR>")
                                                                                 (mapcar '(lambda (x) (cons 8 (vla-get-name x)))
                                                                                         (vl-remove-if-not 
                                                                                           '(lambda (x) (= (vla-get-layeron x) :vlax-true))
                                                                                           (col->list (vla-get-layers doc))))))))))))));ну поленился я - пусть все проверяет
              (vla-endundomark doc))
     (lambda (lst);split3
        (if lst (cons (list (car lst) (cadr lst) (caddr lst))
                      (split3 (cdddr lst)))))
     (vlax-ename->vla-object line);obj
     (vla-get-activedocument (vlax-get-acad-object))));doc

(defun c:over-line-100()
  ((lambda (fn entl)
     (vl-catch-all-apply 'fn ())
     (if (not (equal entl (entlast)))
         (over-line (entlast) 100)))
   (lambda () (command "_pline" (while (= (getvar "CMDACTIVE") 1) (command pause))))
   (entlast)))

Код макроса для кнопки "наложение полилиний без пересечением"

Цитата:

^C^Cover-line-100

работает отлично

Код макрос для кнопки "создание наложения без пересечения" для существующих полилиний

Цитата:

^C^C(over-line (car (entsel)) 100)

работает отлично

Код макроса для кнопки "наложение полилиний с пересечением" незнаю. Ты пишешь "по аналогии". Я попытался конечно написать что-то, но бред выходит.

P.S. Правда в лиспе смайлика нету

Дима_ · 05.10.2012, 20:29

добавляешь:

Код:

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

(defun c:over-line-x()
  ((lambda (fn entl)
     (vl-catch-all-apply 'fn ())
     (if (not (equal entl (entlast)))
         (over-line (entlast) "перекрестье")))
   (lambda () (command "_pline" (while (= (getvar "CMDACTIVE") 1) (command pause))))
   (entlast)))

кнопка:
^C^Cover-line-x

128500 · 08.10.2012, 12:39

есть вопрос еще один - частенько при нажатии кнопки с макросом пишет

Цитата:

Команда: over-line-100 Неизвестная команда "OVER-LINE-100". Для вызова справки нажмите F1.

или соответственно

Цитата:

Команда: over-line-x Неизвестная команда "OVER-LINE-X". Для вызова справки нажмите F1.

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

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

hellt · 05.05.2014, 13:35

Если бы хоть что-то было понятно из кода лиспа, то я бы сделал еще ручной режим, когда клик на пересечение полилиний вставлял туда "огибающий" знак. Такой ручной режим часто полезнее, чем полный автомат

Дима_ · 05.05.2014, 14:03

Цитата:

Сообщение от hellt

Если бы хоть что-то было понятно из кода лиспа, то я бы сделал еще ручной режим

Вы уверенны, что проблема в том что Вам не понятно?

hellt · 05.05.2014, 14:25

Цитата:

Сообщение от Дима_

Вы уверенны, что проблема в том что Вам не понятно?

Я имел ввиду то, что синтаксис лиспа и объектная модель автокада мне не знакомы, поэтому несмотря на 50 строк кода ничего не могу дописать.

shartal · 03.10.2014, 11:12

Команда не работает к сожалению с аннотативными блоками.

Кулик Алексей aka kpblc · 03.10.2014, 13:55

Цитата:

Сообщение от shartal

Команда не работает к сожалению с аннотативными блоками.

Какая именно? В чем выражается "не работает"?
Offtop: Ну почему надо тягать всю информацию...

shartal · 06.10.2014, 16:41

Код из поста 4 не расставляет блоки. Команда проходит без вопросов, но блоки не расставляются.

Дима_ · 06.10.2014, 23:18

Для дальнейшего разговора нужен лог команды

shartal · 07.10.2014, 10:50

Не верно описал проблему. На самом деле блоки расставляются, но они не видны. Их можно выбрать через Быстрый выбор или Выбрать подобные. При этом вставляются в масштабе 1:1, а не в текущем. (показывать объекты во всех аннот. масштабов включено). После добавления любого другого аннот. масштаба они становятся видимыми.

Кулик Алексей aka kpblc · 07.10.2014, 11:06

Offtop: Интересно, чего еще не рассказано...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание нового типа линий	Apelsinov	AutoCAD	915	08.07.2022 12:36
Разрыв в месте пересечения линий выносок	Zorroko	Конструкции зданий и сооружений	7	20.02.2009 18:42

03.10.2012, 11:38		#1
Как при пересечении двух линий сделать установку нужного блока в месте пересечения 128500 Регистрация: 21.08.2012 Сообщений: 42 Поясню свою проблему и желательный результат, которого хотелось бы добиться. Возможно, я хочу слишком многого, но я поясню, а там надеюсь вы подскажете, что из перечисленного можно реализовать. Суть проблемы состоит в том, что нужно организовать "правильное" взаимодействие линий на чертеже по электрике, а именно функцию наложения с пересечением и функцию наложения линий без пересечения. Наложение с пересечением: 1. На чертеже уже имеется полилиния А 2. При чертеже новой полилинии Б, которая пересекается с полилинией А в месте их пересечения вставляется блок В. Блок В по замыслу представляет собой либо тупо кружок, либо обозначение распаечной коробки. Но я думаю это неважно. Наложение без пересечения: 1. На чертеже уже имеется полилиния А 2. При чертеже новой полилинии Б, которая пересекается с полилинией А в месте их пересечения вставляется полукруг определенного радиуса, линия Б обрезается по полукругу и данный полукруг добавляется к полилинии Б для обеспечения непрерывности полилинии Б и сохранения данных о ее длине. В моем AutoCad 2012 Electrical (версия ОС XP 32bit) есть панель, выполняющая все данные функции, но она работает с объектом "провод", который есть суть отрезок, а не полилиния. Мне важно чтобы это работало и с полилиниями, причем полилинии оставались непрерывными от начала до конца. Вообще великолепно если бы это все еще и на кнопку можно было повесить и работало как с "проводом" - нажимаешь кнопку "с пересечением" и чертишь полилинию, при этом в месте пересечения со всеми другими полилиниями вставляется определенный блок; нажимаешь "без пересечения", чертишь полилинию, в месте ее пересечения с другими вставляются полукруги и добавляются к исходной без нарушения ее целостности. Буду очень признателен за помощь.
Просмотров: 13565

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск