[jagr]

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

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

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

С уважением.

[Profan]

Если полилинию обводить, то проще скопировать полилинию саму на себя. Для других объектов можно дополнительно к другим привязкам использовать привяку "_nea" ("бли"). Но точки придется указывать.

[zenon]

_pline

[BM60]

jagr, когда-то мне такая идея приходила в голову, но цель была другая, и решилась она копированием на другой слой.
Но сейчас мне просто интересно, какая у тебя цель так точно повторять? И не понимаю относительно "привязки без указания другой точки привязки".
Пояснишь?

[KennyMckormik]

Есть такой шедевр производства VVA & co
входит в набор PL-XX
называется PL_CLONE

[jagr]

Profan, копирование действительно самый очевидный вариант из тех, что мне пришли в голову, но этот метод достаточно трудоемок, если такие операции используются часто.

BM60, нужна отрисовка отдельных замкнутых (ну или не замкнутых) полилиний (условно назову их полигонами) с точным повторением контуров на местах их стыковки. Такой метод цифрования используется, например, в современной цифровой картографии. По поводу привязки, имеется в виду привязка без указания каждой точки полилинии на отрезке к которому необходимо привязаться (то есть я указываю не 100000000000 точек из которых состоит отрезок полилинии, а лишь 2-3, определяющих направление привязки).

KennyMckormik, PL-XX что это? Что из себя представляет PL_CLONE?

[Profan]

Интересно узнать, а что обводить приходится? Если отрезки и полилинии, то совсем не надо указывать 10000000000000000000 точек, достаточно указать начальную и конечную точки для отрезков и вершины и вторые точки дуговых сегментов (если они есть) для полилиний. Если обводятся сплайны, то тут уже надо указать как можно больше точек для лучшей аппроксимации.

[jagr]

Profan, обводить надо полилинии, но из Вашего объяснения я, к сожалению, не понял как это сделать средствами AutoCAD не указывая каждую вершину (которых на линии може быть 1000000000000)

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

[Profan]

Вершины полилиний придется указывать. А сами исходные полилинии состыкованы?

[sbi]

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

Переведи на русский!

[jagr]

Исправил пример в первом сообщении:

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

Profan, какие исходные полилинии имеются ввиду?

sbi, возможно исправленый конкретный пример поможет понять то, что нуждается для Вас в переводе с русского на русский.

[Profan]

Да которые обводить надо. А твое уточнение все равно непонятно. В AutoCAD'е такого приема нет.

[jagr]

Profan вот как раз вопрос первого поста в том и состоит есть такой прием или нет, как это реализовать другими средствами я знаю.

[Profan]

Если исходные полилинии состыкованы, то можно выделить их все, выполнить копирование на себя и получившийся новый набор отдельных полилиний объединить в одну полилинию.

[jagr]

Profan, это совсем другой прием

[Profan]

Другой. Но и программа другая.

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

Сообщение от jagr нужна отрисовка отдельных замкнутых (ну или не замкнутых) полилиний (условно назову их полигонами) с точным повторением контуров на местах их стыковки. Такой метод цифрования используется, например, в современной цифровой картографии.

Да, для пользователей Автокада-картографов это проблема.
1. Шикарно было бы пользоваться командой создания замкнутых контуров в виде полилинии после указания внутренней точки области - BOUNDARY (КОНТУР). Только эта команда кривая (см. раздел "Баги").
2. Вполне можно "бить через дымоход" - создавать Hatch (штриховку), указывая все элементы, составляющие границу нужной области, потом с помощью команды (по правой кнопке) Generate Boundary создаем границу этой штриховки в виде AEC Polygon, а потом (по правой кнопке) конвертируем его в единую полилинию - Convert To->Polyline. Удобно тем, что нужно указывать не начало-конец полилиний, а прямо сами полилинии. И тем, что в местах пересечений полилиний не обязательно не обязательно должны быть узлы. И тем, что штриховки позволят контролировать правильность полученной площади. Потом штриховку удаляем, остается искомая замкнутая полилиния.
3. С помощью Autocad Map 3D можно создавать топологические площадные модели, указывая или набор полилиний (можно сразу для многих областей, а можно только для одной области), или только слои, в которых лежат нужные полилинии. Потом конвертируем эти "топологии" в замкнутые полилинии (Create closed polylines). Правда, исходные полилинии необходимо сначала основательно подготовить: разбить на пересечениях, удалить дубликаты, замкнуть и т.п. Хотя, функция создания площадных топологий все "плохие" места пометит.

Можно узнать, где еще картографы не разочаровались в Автокаде? Можно в личку.

[Olga_@@@]

Сообщение от АлексЮстасу 3. С помощью Autocad Map 3D можно создавать топологические площадные модели, указывая или набор полилиний (можно сразу для многих областей, а можно только для одной области), или только слои, в которых лежат нужные полилинии. Потом конвертируем эти "топологии" в замкнутые полилинии (Create closed polylines). Правда, исходные полилинии необходимо сначала основательно подготовить: разбить на пересечениях, удалить дубликаты, замкнуть и т.п. Хотя, функция создания площадных топологий все "плохие" места пометит.

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

[Disney]

Сочинил вот такой вариант
[IMG]http://s006.***********/i215/1003/f7/e3e080d1bce1.gif[/IMG]

Код:

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

(defun c:test (/ first second F_v a b)
  (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)
  )
  (repeat (length F_v)
    (if	(and (setq a (vl-position (car f_v) second))
	     (setq b (vl-position (cadr f_v) second))
	)
      (setq first
	     (append
	       (trim_list first 0 (vl-position (car f_v) first))
	       (if (< a b)
		 (trim_list second a b)
		 (reverse (trim_list second a b))
	       )
	       (trim_list first
			  (vl-position (cadr f_v) first)
			  (length first)
	       )
	     )
      )
    )
    (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
    )
  )
)

(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_@@@ Да, это наилучший, из имеющихся, вариант решения проблемы. Тем более, что предварительная чистка карты в значительной степени автоматизированна.

Да автоматически, но это если есть Autocad Map 3D.

Disney - "Получатель"-"Даватель" - это что?

[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).