[Uduzr]

Привет всем, может кто подскажет решение. Есть LWPolyline №1 с некоторым количеством углов и две точки принадлежащих ей но не обязательно являющиеся ее углами. Надо построить LWPolyline №2 с началом и концом в этих точках таким образом чтобы она наложилась на LWPolyline...

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

Есть как минимум 3 варианта:
1. Командный - скопировать объект и применить два раза команду _.break
2. Через Entget получить ename-представление объекта, проанализировать вершины и исключить ненужные
3. Аналогично п.2 поступить через vla

[Uduzr]

Я пока пошел по пути 3 но что то забуксовал с алгоритмом... Координаты вершин то есть, борюсь с лишними.. Вариант 1 интересный, попробую, про _.break я забыл совсем..

[Дима_]

Тут еще надо не упустить, что через 1 точку полилиния может проходить неограниченное количество раз.

[Uduzr]

Сообщение от Дима_ Тут еще надо не упустить, что через 1 точку полилиния может проходить неограниченное количество раз.

этот вариант я в голове держу и в последующем учту. Не могу понять как с command работать.. я честно говоря им всегда пренебрегал ((( как нарисовать им что нить я понял а как сделать что либо с уже имеющимся объектом?

[Дима_]

Я бы не стал использовать командный метод (потенциально - много проблем вылезает, которые потом устанешь искать/исправлять/заглушать) - ИХМО в данном случае проще всего через DXF и vlax-curve-getDistAtPoint откинуть "ненужные" вершины.

[Олег (jr.)]

Сообщение от Uduzr этот вариант я в голове держу и в последующем учту. Не могу понять как с command работать.. я честно говоря им всегда пренебрегал ((( как нарисовать им что нить я понял а как сделать что либо с уже имеющимся объектом?

Начни с прстого:

Код:

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

 (defun C:Bpline	 (/ en osm p1 p2 ss)
  (vl-load-com)

  (setq osm (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (setvar "CMDECHO" 0)

  (setq	p1 (getpoint "\nFirst point")
	p2 (getpoint p1 "\nSecond point"))
  (if (not
	(setq ss (ssget p1 '((0 . "lwpolyline")))))
    (progn
      (exit)
      (print "\nNothing or Wrong object selected")
      (princ)))
  (setq en (ssname ss 0))
  (setq	p1 (vlax-curve-getclosestpointto en p1)
	p2 (vlax-curve-getclosestpointto en p2))
  (if (< (vlax-curve-getparamatpoint en p1)
	 (vlax-curve-getparamatpoint en p2))
    (progn
      (vl-cmdf "_.break" en "_F" (vlax-curve-getstartpoint en) p1)
      (vl-cmdf "_.break" en "_F" p2 (vlax-curve-getendpoint en)))
    (progn
      (vl-cmdf "_.break" en "_F" (vlax-curve-getstartpoint en) p2)
      (vl-cmdf "_.break" en "_F" p1 (vlax-curve-getendpoint en))))
  (setvar "OSMODE" osm)
  (setvar "CMDECHO" 1)
  (princ)
  )

[Uduzr]

Сообщение от Дима_ Я бы не стал использовать командный метод (потенциально - много проблем вылезает, которые потом устанешь искать/исправлять/заглушать) - ИХМО в данном случае проще всего через DXF и vlax-curve-getDistAtPoint откинуть "ненужные" вершины.

Вот потому я командным методом и пренебрегал, что более опытные товарищи здесь выражались в таком роде. Склонен Вам верить. За идею с vlax-curve-getDistAtPoint спасибо, думаю упростит алгоритм.

to: Олег (jr.)
Спасибо, действительно просто и работает, то что надо!

[VVA]

Есть еще Pline Tools от DELICAD

[Uduzr]

Сообщение от VVA Есть еще Pline Tools от DELICAD

У меня это было подзадачей решаемой по ходу прикладной программы, то что предлагается вряд ли подойдет, тем более что оно не freeware...
Пока остановился на варианте предложенном Олег (jr.), может быть позже переделаю без vl-cmdf но сейчас надо скорее доделать...

[CB]

Посмотри здесь:
http://forum.dwg.ru/showpost.php?p=281928&postcount=171