[Browning Zed]

Доброго времени суток, дамы и господа.
Захотелось решить задачу объединения двух полилиний entity-способом, не затрагивая ActiveX и командные методы. Проект такой:
- указываем поочередно первую и вторую полилинии;
- через entmod изменяем первую полилинию, добавляя к ней вершины второй полилинии;
- удаляем вторую полилинию.

Код:

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

 (and
	;; указываем полилинии и получаем их elist:
	(setq pl1 (entsel "\nУкажите 1-ю полилинию: "))
	(= (cdr (assoc 0 (setq el1 (entget (car pl1))))) "LWPOLYLINE")
	(setq pl2 (entsel "\nУкажите 2-ю полилинию: "))
	(= (cdr (assoc 0 (setq el2 (entget (car pl2))))) "LWPOLYLINE")
	
	;; изменяем elist 1-ой полилинии:
	(entmod
		(append
			;; берем от первой полилинии обязательные dxf-коды -1, 0, 330, 5, 100:
			(reverse (member (assoc 100 el1) (reverse el1)))
			;; подсчитываем количество вершин двух полилиний и заносим его в код 90:
			(list (cons 90 (+ (cdr (assoc 90 el1)) (cdr (assoc 90 el2)))))
			;; проходимся по спискам двух полилиний и собираем информацию о вершинах
			(vl-remove-if-not
				'(lambda (a) (member (car a) '(10 40 41 42 91)))
				(append el1 el2)
			)
			(list (assoc 210 el1))
		)
	)
	
	;; удаляем 2-ю полилинию:
	(entdel (car pl2))
)

В коде нет проверок являются ли выбираемые полилинии одним и тем же объектом и/или замкнутыми полилиниями, но на данном этапе это не нужно. Будем исходить из того, что были указаны две разные не замкнутые полилинии.
Результатом всего этого будет сообщение командной строки: "К 2D-полилинии, не имеющей вершин, добавлены две вершины", а изменяемая полилиния примет вид отличающийся от ожидаемого.

ЧЯДНТ?

З.Ы. Запостил не в тот раздел. Нужно перенести в AutoLISP.

[Сергей812]

а entupd разве не нужен?

[Бот]

Browning Zed, просьба изменить название темы "Объединение двух LW-полилиний посредством entmod" в соответствии с п.4.3. правил форума, в противном случае тема будет закрыта через 12 часов.

Я случайно создал тему не в том разделе или случайно продублировал тему / пост. Что делать?

Сообщение сгенерировано автоматически, отвечать на него не нужно

[koMon]

Код:

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

 (setq el1 (entget (car (entsel "\nУкажите 1-ю полилинию: "))))
  (setq el2 (entget (car (entsel "\nУкажите 2-ю полилинию: "))))
  (setq pl1_dxf
    (append
      (reverse (cdr (reverse el1)))
      (member (assoc 10 el2) el2) 
    )
  )
  (entmod (subst (cons 90 (+ (cdr (assoc 90 el1)) (cdr (assoc 90 el2)))) (assoc 90 el1) pl1_dxf))
  (entdel (cdar el2))

[Browning Zed]

Сообщение от Сергей812 а entupd разве не нужен?

В данном случае вроде бы не нужен.

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

Спасибо за подсказку. Оказалось, ларчик проще открывается. )