[jagr]

Здравствуйте!

Давно мучает вопрос: существует ли в AutoCAD 2008 (либо в другой версии) возможность рисования части полилинии по существующему объекту (например, по другой полилинии) с точным повторением контура существующего объекта (с привязкой к каждой точке), без указания каждой точки существующего объекта.

Работал с Панораммой и MapInfo, там эта функция реализована, в AutoCAD так найти и не смог. Для иллюстрации приведу пример того, как это реализовано в MapInfo: рисую линию 1, дохожу до точки на линии 2, привязываюсь к точке 2.1 на линии 2, зажимаю шифт и указываю точку 2.2 на линии 2 (между точками 2.1 и 2.2 может быть множество вершин линии 2), программа рисует мне линию 1 по линии 2 точно повторяя ее контур (все это время функция рисовки линии не прерывается). В Панорамме реализовано иначе, но надеюсь смысл вопроса уже понятен.

С уважением.

[Olga_@@@]

АлексЮстасу, да, есть.
Disney, идея отличная, полезный был бы инструмент. Тоже попробовала, но у меня этот код не всегда срабатывает, и на замкнутых контурах выдает непредсказуемые результаты.

[АлексЮстасу]

Сообщение от Olga_@@@ АлексЮстасу, да, есть. Disney, идея отличная, полезный был бы инструмент. Тоже попробовала, но у меня этот код не всегда срабатывает, и на замкнутых контурах выдает непредсказуемые результаты.

Уж давно догадался, что у Вас Autocad Map 3D еще как есть
Имел в виду других участников.

У меня программка Disney просто пока никак не срабатывает. Да и хотелось узнать, что она, собственно, делает, и кто такие "Получатель"-"Даватель"?

[zenon]

Disney, Вот скажи мне в чем разница сего творения и работы стандартной команды _pline????

[АлексЮстасу]

Сообщение от Olga_@@@ Тем более, что предварительная чистка карты в значительной степени автоматизированна.

Все-таки решил добавить в "Баги и предложения" тему про Drawing Cleanup. Чтобы у всех пользователей базового Autocad была возможность пользоваться этим мощным инструментом.

Объясните, как этим лиспом пользоваться - у меня вообще ничего не получается.

[jagr]

Disney, решение выглядит очень интересно. К сожелению, пока нет возможности проверить работу лиспа; работает ли он для нескольких полилиний? По какому принципу происходит изменение полилинии, почему часть полилинии изменилась, а часть нет?

АлексЮстасу, я не картограф, просто был опыт работы в некоторых программах.

[АлексЮстасу]

jagr, вариант с использованием штриховки не оптимален? Для замкнутых областей, конечно.

[jagr]

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

[АлексЮстасу]

Сообщение от jagr АлексЮстасу, достаточно много приходится работать с заливками и для сложных замкнутых областей делать заливки занятие не из приятных, к сожалению =(

Это я знаю. Но при трассировке линий все равно их нужно обойти все-каждую. А в режиме указания всех линий границы области штриховки работают надежно.

[Disney]

Сообщение от АлексЮстасу Disney - "Получатель"-"Даватель" - это что?

Акцептор и Донор тебя устроит?

Сообщение от Olga_@@@ Disney, идея отличная, полезный был бы инструмент. Тоже попробовала, но у меня этот код не всегда срабатывает, и на замкнутых контурах выдает непредсказуемые результаты.

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

Сообщение от zenon Disney, Вот скажи мне в чем разница сего творения и работы стандартной команды _pline????

[IMG]http://s002.***********/i197/1003/8f/3d1224058e68.gif[/IMG]

Код:

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

(defun c:test (/ first second F_v a b flag)
  (setq	first  (entget
		 (geo_vibor "\nПолилиния акцептор: " "LWPOLYLINE" nil)
	       )
	second (entget (geo_vibor "\nПолилиния донор: " "LWPOLYLINE" nil))
	F_v    (vl-remove-if-not '(lambda (x) (= (car x) 10)) first)
	flag   t
  )
  (if (not (eq (cdar first) (cdar second)))
    (progn
      (repeat (length F_v)
	(if (and (setq a (vl-position (car f_v) second))
		 (setq b (vl-position (cadr f_v) second))
	    )
	  (setq
	    first
	     (if (< a b)
	       (append
		 (trim_list first 0 (vl-position (car f_v) first))
		 (trim_list second a b)
		 (trim_list first
			    (vl-position (cadr f_v) first)
			    (length first)
		 )
	       )
	       (append
		 (trim_list first
			    0
			    (+ (vl-position (car f_v) first) 5)
		 )
		 (mapcar '(lambda (i)
			    (if	(= (car i) 42)
			      (cons 42 (* -1 (cdr i)))
			      i
			    )
			  )
			 (reverse (trim_list second a b))
		 )
		 (trim_list first
			    (+ (vl-position (cadr f_v) first) 5)
			    (length first)
		 )
	       )
	     )
	    flag nil
	  )
	)
	(setq f_v (cdr f_v))
      )
      (entmod
	(subst
	  (cons	90
		(length
		  (vl-remove-if-not '(lambda (x) (= (car x) 10)) first)
		)
	  )
	  (assoc 90 first)
	  first
	)
      )
      (if flag
	(alert
	  "\nНе найдено ни одних, двух \nпоследовательных вершин акцептора \nсовпадающих с вершинами донора"
	)
      )
    )
  )
)

(defun trim_list (spis a b / c x)
  (setq c (- (min a b) 1))
  (reverse (repeat (- (max a b) c 1)
	     (setq x (cons (nth (setq c (1+ c)) spis) x))
	   )
  )
)


(defun geo_vibor (zap ;_Запрос 
		  tip ;_Тип запрашиваемых примитивов 
		  enter ;_Выход при пустом вводе 
		  / flag name)
  (setq Flag2 t)
  (setvar "ERRNO" 0)
  (while Flag2
    (cond
      ((and
	 (setq name
		(car (entsel zap))
	 )
	 (wcmatch (cdr (assoc 0 (entget name))) tip)
       )
       (setq Flag2 nil
	     name name
       )
      )
      ((and (= (getvar "ERRNO") 52) enter)
       (setq Flag2 nil)
      )
      (name (princ (strcat "\nВыбранный объект не " tip)))
      (t (princ "\nМимо"))
    )
  )
)

[Olga_@@@]

Disney, спасибо огромное получилось

[АлексЮстасу]

Сообщение от Disney Акцептор и Донор тебя устроит?

Для непонятливых и криворуких можно?
Что нужно иметь до начала запуска проги? Какова последовательность действий? Что на выходе?

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

[Disney]

Сообщение от Olga_@@@ на замкнутых контурах выдает непредсказуемые результаты.

[IMG]http://i021.***********/1003/d7/4b20dbbe61cc.gif[/IMG]

Сообщение от jagr работает ли он для нескольких полилиний?

[IMG]http://i080.***********/1003/cd/c61bca9dab97.gif[/IMG]

Сообщение от jagr По какому принципу происходит изменение полилинии,

Как по какому? по тобой описанному, только не в процессе построения полилинии, а уже после.

Сообщение от jagr почему часть полилинии изменилась, а часть нет?

Изменяется та часть полилинии, 2(3) последовательные вершины которой совпадают с вершинами донора.
АлексЮстасу, если ещё вопросы остались спрашивай

[АлексЮстасу]

Сообщение от Disney Изменяется та часть полилинии, 2(3) последовательные вершины которой совпадают с вершинами донора. АлексЮстасу, если ещё вопросы остались спрашивай

У меня получилось, но пока только с одной полилинией. У меня прогресс

По-моему, в изложенной jagr задаче цель довести полилинию до какой-то абстрактной точки на другом элементе - совсем не главная. Почти всегда это либо конец, либо место пересечения с другим элементом.

Все-таки: задача у jagr заключается в получении новой полилинии, точно повторяющей форму цепочки полилиний, дуг и т.п. (Новую полилинию, которой хотелось бы все обвести, тоже можно рассматривать как существующую). Соответственно, чтобы получить эту общую полининию, достаточно указать последовательно все элементы цепочки, которые хотелось бы обвести (начиная с этой "новой"). Так можно сделать?
Т.е. человек сначала рисует к существующему набору примыкающих/перескающихся элементов нужное число примыкающих линий, потом вызвает Ваш лисп (предлагаю назвать его ближе к сути, например "trasser"), и указывает нужные элементы. На выходе - новая полилиния.

[Disney]

Сообщение от АлексЮстасу точно повторяющей форму цепочки полилиний, дуг и т.п..

Для этого уже есть решения:

1. [IMG]http://i074.***********/1003/84/013ecfaa1fa9.gif[/IMG]
   из Pltools
   
2. Метод интеллектуального преобразования объектов в полилинии.
   из TotalPurge

Сообщение от АлексЮстасу Т.е. человек сначала рисует к существующему набору примыкающих/перескающихся элементов нужное число примыкающих линий, и указывает нужные элементы. На выходе - новая полилиния.

В простом варианте если контур в итоге замкнут, то есть в AutoCADе команда

[IMG]http://i027.***********/1003/dd/687104bf8105.gif[/IMG]

В сложном случаи, уже много желающих... Определение комнаты, определение границ области (AutoCAD & lisp)

[АлексЮстасу]

Сообщение от Disney Для этого уже есть решения: команда PL-CSE В простом варианте если контур в итоге замкнут, то есть в AutoCADе команда "_BOUNDARY (Контур)"

Увы, но без Ваших трудов тут не обойтись:

1. PL-CSE - замечательная. Только она не делает две искомых вещи: не сохраняет старые линии (а задача была - новую добавить), и не обрабатывает фрагменты между пересечениями - а только совпадающие концами элементы. И результат ее работы может быть малопредсказуем, если к полилиниям цепочки примыкают другие элементы.

2. С TotalPurge примерно та же история.

3. _BOUNDARY - очень нужная и очень востребованная команда. Иногда даже работает. Но про плохую дееспособность _BOUNDARY на разных форумах говорится уже лет десять - не меньше. См. и мои свежие пять копеек: http://forum.dwg.ru/showthread.php?t=49256

Может, кстати, подскажете: в архиве Pltools не оказалось pltools.cui -- "меню для подгрузки в AutoCAD с 2006 включительно". А хотелось бы поставить нормально - с меню к моему 2008.

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

По-моему, в pltools был включен файл *.mnu. Загружается в любую версию AutoCAD через команду _.menuload

[АлексЮстасу]

Сообщение от Кулик Алексей aka kpblc По-моему, в pltools был включен файл *.mnu. Загружается в любую версию AutoCAD через команду _.menuload

Спасибо, получилось.
Еще с большим удовольствием пробежался по возможностям Pltools - до решения нашей задачи просто рукой подать

[АлексЮстасу]

Сообщение от jagr Давно мучает вопрос: существует ли в AutoCAD 2008 (либо в другой версии) возможность рисования части полилинии по существующему объекту (например, по другой полилинии) с точным повторением контура существующего объекта (с привязкой к каждой точке), без указания каждой точки существующего объекта.

Через 11 лет и три дня появился такой лисп от француза - fsg.lsp.
Чертим полилинию или 3дполилинию, вводим прозрачную команду 'fsg (с апострофом), указываем первую и вторую точку на существующей полилинии, и чертим свою полилинию дальше. Получается новая полилиния, примыкающая к существующей, и полностью повторяющая часть существующей - от ближайшей вершины к первой указанной точке до ближайшей вершины ко второй указанной точке.
При черчении следующих полилиний команда будет доступна в списке на правой кнопке в Последний ввод (Recent input).