[f0lk]

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

[VVA]

Тогда возникает вопрос, как загнать в блок их попроще

Все выбранное в блок. Напомните ЛИСП

[VVA]

Одно НО
В SETUB3 точка вставки блока посередине габарита (для отрезков - посередине), а для кода Дима_ нужно

НО чтоб центр (или точка вставки для блока) лежали строго на вершине полилинии

Но по моему этого не требуется в коде Алексея

[skkkk]

Алексей, а в твоем коде (#15) что это за зеленые мишени по бывшим вершинам появляются на распрямленном отрезке? Можно их убрать? И на него (отрезок) из всех выбранных мной блоков почему-то переносится только первый. И еще у меня оба лиспа (второй - от Димы_) выпрямленную линию делают задом наперед. С чего бы это вдруг?? Не страшно, конечно, Rotate спасает, но изящность процесса портится

VVA , в лиспе Алексея тоже надо, чтобы точка вставки блока совпадала с вершиной

[VVA]

Не знаю, я детально не анализировал, Алексею видней всех.

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

skkkk, #23 в продолжение #19 и на его основе?
"Зеленые" типа точки - на самом деле блоки, которые показывать должны старое положение вершин.
Не очень понял - что значит "задом наперед". Она лично у меня отрисовывается слева направо в текущей системе координат. А вершины располагаются начиная с первой по направлению отрисовки полилинии. Хочешь - попробуй инвертировать направление (см. http://dwg.ru/dnl/607)
Вопрос с "поворотом" пересекающих объектов лично я сейчас решить не в силах - прилично аналитики надо прописывать, чтоб добиться приемлемого результата (

[skkkk]

Сообщение от Кулик Алексей aka kpblc skkkk, #23 в продолжение #19 и на его основе? (

именно так

А у меня почему-то выпрямленная линия отрисовывается справа налево, причем и твоим лиспом и Диминым_

Помнится мне, речь шла о допуске...

Сообщение от Дима_ НО чтоб центр (или точка вставки для блока) лежали строго на вершине полилинии.

Сообщение от VVA Дима_, Только я бы сравнивал координаты с допуском. У меня бывали случаи, когда 2 одинаковые точки не были equal

...нельзя ли этот допуск увеличить? Так, чтобы центры блоков, отстоящие от ближайшей вершины, допустим, на 0,5 единиц, тоже шли в зачет....

[skkkk]

VVA, а ведь эту (эти) команду можно добавить в PLTOOLS, не считаете?
Добавлено: Разумеется, с согласия авторов

[Дима_]

Сообщение от skkkk А у меня почему-то выпрямленная линия отрисовывается справа налево, причем и твоим лиспом и Диминым_ Помнится мне, речь шла о допуске... ...нельзя ли этот допуск увеличить? Так, чтобы центры блоков, отстоящие от ближайшей вершины, допустим, на 0,5 единиц, тоже шли в зачет....

1 - Скорее всего ты на эту линию снизу "смотришь".
2 - (if (equal (cdr (assoc 10 (entget obj))) (append (nth n lst) (list 0.0)) 1e-6) и есть допуск.

P.S. А понял в чем дело - скорее всего линия с права на лево получаеться потому, что исходная полилиния идет с права на лево, а сканирует программа с начала линии, исправить это без проблем, но я сейчас в отпуске и на рыбалку укатываю, через 2 дня если никто не исправит, перепишу. Пока можешь написать, что делать если исходные точки одна под другой окажется (по одной X координате) - откуда сканировать сверху вниз или наоборот.

[skkkk]

Дима_, удачного улова, и не забудь(те) взять удочки, а то я знаю, как в России рыбалка бывает

А нельзя как-то придумать снятие вообще этого ограничения насчет соответствия вершин полилинии точкам вставки блоков? Если пересекает блок (а лучше - отрезок)в любом месте, значит переносится на выпрямляемую линию... Было бы здорово. Ведь не все пересекаемые линии проходят через центр (см. во вложении). Может, как-то можно лиспом Согласовать ориентацию блока с ориентацией объекта по аналогии с командой _measure АвтоКАДа?

А по поводу справа налево. Осенило меня тут.....я сглупил конкретно, головой меня об кирпич. Конечно же, я отрисовывал эту полилинию справа налево, а то что она рисуется наоборот, так мне же так и надо!!!! Так что этот момент переделывать ни к чему

[VVA]

Ну вот по быстрому что-то сфарганил. По идее должна разворачивать все пересекающие полилинию объекты. Особо не теститровал. Поэтому лучше пока сразу выставить МСК

Код:

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

(defun c:razv3 ( / P lst lst2 lst3 n obj krd)
(setq lst nil lst2 nil lst3 nil krd 0 n 0 obj (entget (car (entsel "Выберите полилинию "))))
(if (/= (cdr (assoc 0 obj)) "LWPOLYLINE") (progn (alert "Это не LW полилиния") (exit)))
(setq p (trans (getpoint "Куда вставлять развертку ") 1 0))

;записывает координаты вершин
(while (/= krd nil)
(setq krd (nth n obj))
(if (= (car krd) 10) (setq lst (append lst (list (list (cadr krd) (caddr krd)))))
);end of if
(setq n (1+ n))
);end of while

;записывает расстояния 
(setq n 0)
(while (/= (nth (1+ n) lst) nil)
(setq lst2 (append lst2 (list (distance (nth n lst) (nth (1+ n) lst))))
n (1+ n)
);end of setq
);end of while

;записывает координаты новых вершин
(setq n 0 krd p lst3 (list krd))
(repeat (length lst2)
(setq
krd (list (+ (car krd) (nth n lst2)) (cadr krd))
lst3 (append lst3 (list krd))
n (1+ n)
);end of setq
);end of repeat

;строит полилинию
(pl lst3)
(if (and (setq ss (ssget "_F" (mapcar '(lambda(x)(trans x 0 1)) lst)))
	 (ssdel (cdr(assoc -1 obj)) ss)
	 (> (sslength ss) 0)
	 )
  (progn
    (mapcar '(lambda(item / vla-obj pt-rot index flag segN)
	       (setq vla-obj (vlax-ename->vla-object (cadr item)))
	       (setq vla-obj (vla-copy vla-obj))
	       (setq pt-rot (trans(cadr(last item)) 1 0))
	       (setq flag t index '-1 segn nil)
	       (mapcar '(lambda (p1 p2)
			  (setq index (1+ index))
			  (if (and flag
				   (equal (distance p1 p2)
					  (+ (distance p1 pt-rot)
					     (distance pt-rot p2)
					     )
					  1e-3)
				   )
			    (setq flag nil segN index)
			    )
			  )
		       lst (cdr lst)
		       )
	       (if segN
		 (progn
	       (vla-rotate vla-obj (vlax-3d-point (append (nth segN lst)(list (cdr(assoc 38 obj)))))
			       (- (* 2 pi)(angle (nth segN lst)(nth (1+ segN) lst)))
			       )
	       (vla-move vla-obj (vlax-3d-point (append (nth segN lst)(list (cdr(assoc 38 obj)))))
			          (vlax-3d-point (nth segN lst3))
			 )
	       )
		 )
	       )
    (ssnamex ss)
	    )
    )
  )
  (princ)
);end defun

(defun pl (obj / ed n tmp); создает полилинию по списку вершин obj.
(setq 	ed (list (cons 0 "LWPOLYLINE")
		(cons 100 "AcDbEntity")
		(cons 100 "AcDbPolyline")
		(cons 90 (length obj)));end of list
	n 0
	tmp (nth n obj)
);end of setq
(while (/= tmp nil)
(setq 	ed (append ed (list (append (list 10) (nth n obj))))
	n (1+ n)
	tmp (nth n obj)
);end setq 
);end of while
(entmakex ed)
);end of defun

*** Добавлено
>Skkkk В полилинии в твоем примере из #29 есть дублирующиеся вершины. Обработай до применения RAZV3 командой PL-VxOpt и (если нужно) Entrevs.
Это ,наверное, станет очередным кандидатом в pltools (возможно в 2-х варинтах: просто развертка полилинии и развертка с пересекающими полилинию объектами)

[skkkk]

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

Добавлено:
Прошу прощения. Это относится только к прикрепленному чертежу из #29. Там все так. Ну этот чертеж, видимо, многое вытерпел....
Попробовал на новом, все работает. Огромное спасибо, Владимир. А можно дополнить код так, чтобы от развернутой полилинии в местах пересечения рисовались отрезки длиной 40мм по направлению вверх? Только если несложно

[VVA]

Сообщение от skkkk Это относится только к прикрепленному чертежу из #29. Там все так. Ну этот чертеж, видимо, многое вытерпел....

Из #30

>Skkkk В полилинии в твоем примере из #29 есть дублирующиеся вершины. Обработай до применения RAZV3 командой PL-VxOpt и (если нужно) Entrevs.

В полилинии не должно быть дублирующихся вершин, иначе не работает выбор _fence в ssget
>skkkk #31 В местах пересечения чего с чем?

[skkkk]

Сообщение от VVA Из #30 В полилинии не должно быть дублирующихся вершин, иначе не работает выбор _fence в ssget

Не заметил..

Сообщение от VVA >skkkk #31 В местах пересечения чего с чем?

Вот тут во вложении красные линии. Только красными их делать не надо

[skkkk]

VVA, почему-то некорректно разворачивается полилиния в примере. Длина развернутой не совпадает с длиной оригинала (при проверке entlen'ом и в свойствах). Не знаете, в чем может быть дело? Всю голову сломал. МСК стоит. Круглая часть полилинии создана обрезкой круга и присоединением pedit'ом, только на ней замечена такая ошибка. И еще не все коротенькие черточки переносит. А еще мне неясно, почему файл так много весит?? Вроде всего две поли там, да несколько отрезков....
P.S. Речь о лиспе с #30

[Gri05-1]

Доброго всем дня! Проьлемка в том, что есть не ровные полилинии которые нужно сделать ровными и той же длины. Лисп razv подходит, но только для горизонтальных, а если у меня вертикальные линии прога их на 90 градусов поворачивает.. В чертеже у меня они то так и должны быть, ровные верт-ые и ровные гориз-ые. Я до этого скачивал лисп - l_align_xy Александра Ривилиса, она делает все как полагается, единственно только на отрезках... Подскажите как проблему решить или ссылочку на нужный лисп киньте... А надо простые полилинии и 3д полилинии. Заранее благодарен!

[skkkk]

Неточная постановка вопроса. Как неровные линии могут быть горизонтальными или вертикальными? Лучше приложить пример в dwg с нарисованными вариантами и их описанием, что есть и что надо.

[sertor]

Сообщение от Gri05-1 а если у меня вертикальные линии прога их на 90 градусов поворачивает.

Я так понимаю, что пост написан в развитие этой темы.

[skkkk]

Offtop: sertor, это она и есть "эта" тема

[sertor]

Сообщение от skkkk sertor, это она и есть "эта" тема

Offtop: Точно. Прошу прощения за невнимательность, хотелось направить в "нужное русло".

[Gri05-1]

Прикладываю файл автокада. Не судите строго, может чего не так делаю..