[X-DeViL]

Имеем насыщенный... очень насыщенный чертеж... каким образом можно сделать trim ВСЕХ объектов находящихся внутри какойнить области ограниченной ломаной линией?

[{Smirnoff}]

Командой _extrim из Экспрессов.

[Arkady]

Если есть Autocad Map - там есть Boundary Trim - дивная вещь.

[Mikhail]

Как я разобрался
http://dwg.ru/forum/viewtopic.php?t=...a36ac23d8c6d49

Fence, fence и еще раз Fence

[X-DeViL]

Fantomas
Мучо грациаз ))

ЕЩЕ вопрос...

А как сделать так чтобы все объекты ВНЕ области удалить?

[{Smirnoff}]

Уж незнаю что проще.

1) Посадить молодую симпатичную девушку и показать ей что удалять. 8)

2) Быстренько написать ЛИСПик который создаст набор всех объектов, затем вычтет из него набор объектов ограниченных точками полилинии ограничивающей контур и удалит оставшееся.

Но точно не сегодня... Пора домой. Кстати может у кого и готовый есть.

[vk]

Ежли 1 - интересно - интересно :wink:
Ежли 2 - можно конечно... да больно уж хлопотно... :cry:

А чем же EXTRIM плоха то? Ткнуть надо с той стороны, где удалять.... Хоть внутри контура, хоть снаружи....

Fence, fence и еще раз Fence

Кажись, не в этом случае - ручками придется контур обходить... Хотя, работает 100% надежно :!:

[X-DeViL]

Fantomas
1. А денажку тожа ей отдать? или натурой расплатится? ))
2. ЛИСП это хорошо... а мож есть build-in команда?

vk

"Экстрим" меня устроил на 100%, но знаешь у каждого есть неосузествимая мечта... работать поменьше... а денег получать побольше... вот например с квартирографией так... - выделил контур, нажал вне контура.... чик... и он все что вне контура обрезало и удалило )) сказка )

>X-DeViL
Если речь об инвертировании набора (для последующего удаления инвертированного набора), то есть возможность проделать это в окне qselect.

Только для этого логичнее применять команду Wblock

[{Smirnoff}]

>X-DeViL
Вот коротенько без проверок и претензий на качество программирования, потому что времени нет. Выбираем замкнутую полилинию и стирается все что вокруг. Проверок никаких нет, при наличии дуговых сегментов могут быть проблеммы (стирание того что внутри). Ну уж извиняйте, в тестовом варианте работает нормально, в реальности негарантирую.

Код:

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

(defun c:exerase (/ pList fSet sSet i delEnt)
  (setq pList(mapcar 'cdr
		(vl-remove-if-not
		  '(lambda(x)(=(car x)10))(entget(car(entsel "Select boundary polyline ")))))
        fSet(ssget "_CP" pList)
	sSet(ssget "_A")
	i 0
	); end setq
  (repeat(sslength fSet)
    (if
      (setq delEnt(ssmemb(ssname fSet i) sSet))
      (progn
      (ssdel delEnt sSet)
      (setq i(1+ i))
      ); end progn
      ); end if
    ); end repeat
  (command "_.erase" sSet "")
  (princ)
  ); end defun

P.S. Естественоо сначала _extrim

[vk]

Это конечно, когда контур - полилиния из отрезков. А замкнутый контур то могет быть и окружностью или эллипсом где нет ни одной вершины! Тогда как? Может что то получится с применением опций выбора из Экспрессов, группа Exclude ....
Только с автоматизацией туго.

[{Smirnoff}]

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

Я об этом товарища X-Devil предупреждаю.

Можно и окружности и эллипсы. Только VLAX-CURVE-.... использовать придеться...

>X-Devil Если соберетесь попробывать, сделайте Zoom чтобы вся полилиния была видна.

[X-DeViL]

Fantomas
вырезать область я намонстрючился таким образом
сначала все обводим... затем экстримом балуемся.. затем select: cp и обводим периметр... и на лист

спасибо за лисп... попытался но как-то не получилось... а потом времени не было... попробую завтра.. о результатах должу в письменном виде в 3х эксемплярах ))