[asys]

Есть солид с него командой SECTION получен срез (region), и вопрос как минимальными действиями сделать из него замкнутую полилинию или несклоько полилиний, если регион с дырками?

[Огурец]

Уважаемый Asys!
Самое простое, что приходит на ум - explode=> edit polyline(join).

[Apelsinov]

А регионы бывают с дырками?

[Огурец]

Уважаемый Апельсинов!
Да, бывают :cry:
[ATTACH]1132592035.dwg[/ATTACH]

[asys]

Сообщение от Огурец Уважаемый Asys! Самое простое, что приходит на ум - explode=> edit polyline(join).

:cry: это я то и делаю, но я и завел тему чтобы совместно придумать как проще. Там еще и ПСК надо выставить, чтоб полилиния замкнулась. Я думаю может макрос на кнопарь написать?

[Огурец]

Уважаемый Asys!

Там еще и ПСК надо выставить

- Object UCS, и все дела...

[Apelsinov]

Огурец
Мда, бывают...


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

[Огурец]

Уважаемый Апельсинов!
А с boundary и вправду неплохо! и регион остаётся, и полилинии как новенькие!

[asys]

Вы все правильно говорите, господа, но есть куча камней...
1. Надо кучу операций производить, а потом в исходнуюю возвращать как вид, так и ПСК - напрягает, когда много раз надо эту операцию делать
2. про boundary - при большом количестве граней солида - boundary сходит с ума.

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

Тихо подозреваю, что это на самом деле надо для построения видов и сечений. Если это так, то не очень понимаю, почему не используются _.solview и _.soldraw. Если забыть про их работу с xref'ами и еще некоторые тонкости, то имхо самое то.

[Огурец]

Уважаемый Asys!
А чем ПСК напрягает? В трёхмерке с ними уже через пару недель работаешь на подсознательном уровне...

[VPUD56]

Так boundary Надо делать не с солида а с региона (он же получен). Это ком-да им-но для этого и предназначена -быстро создавать полилинию. Вопрос наверное в другом: как быстро получить нужное сечение - регион. Для этого удобно пользоваться .xy, задавая по одной прямой 3 точки, но перед введением 3-й нажать .xy и потом ввести координату z любую.(e 2-х других она будет 0)

[asys]

>kpblc
Это надо для построения другого солида на основе полученного региона, а уж потом (после всех построений ) и _.solview и _.soldraw берутся за дело
>Огурец

А чем ПСК напрягает? В трёхмерке с ними уже через пару недель работаешь на подсознательном уровне...

Так на этом же уровне и напрягает ее возвращать в исходное состояние. Когда на автомате идешь, лишний шаг отвлекает и разражает :cry:
>VPUD56
Ты абсолютно прав, но если есть регион и в его пересекают (в его плоскости) грани солида - они тоже учавствуют в просчете контура boundary.

>ALL
Беда состоит в следующем. Я получаю срез и мне его надо вывернуть наизнанку чтобы по нему построить еще солид и полученный солид вырезать из солида с которого я получаю срез. Но! т.к. солид нельзя потянуть за вершинку, как полилнию я его бомблю, весь хлам объединяю в полилинию, выворачиваю и выдавливаю.
Ниже картинка для наглядности.
Было бы здорово еслиб section сразу полилинией срез давал
[ATTACH]1132647966.jpg[/ATTACH]

[{Smirnoff}]

Чтобы не бомбить, не собирать осколки и не крутится как юла. Создаёт полилинию из региона без разворота UCS. Естествено если при его разбивании не получается сплайнов, эллипсов и окружностей.

Код:

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

(defun c:retopl(/ *error* oldEcho Ent curSet newObj
		curObj ObjArr curMemb errFlag)
  (vl-load-com)

  (defun *error* (msg)
    (vla-EndUndoMark actDoc)
    (setvar "CMDECHO" oldEcho)
    (princ msg)
    (princ)
    ); end of *error*
      
  (setq oldEcho(getvar "CMDECHO")
	actDoc
	 (vla-get-ActiveDocument
	   (vlax-get-acad-object))
	); end setq
  (vla-StartUndoMark actDoc)
  (setvar "CMDECHO" 0)
  (if
    (and
      (setq Ent(entsel "\Select region > "))
      (= "REGION"(cdr(assoc 0(entget(car Ent)))))
      ); end and
    (progn
       (setq curSet (ssadd) 
       curObj (vlax-ename->vla-object(car Ent))
       newObj(vla-Copy curObj)
       ObjArr (vlax-safearray->list 
               (vlax-variant-value 
                (vla-Explode newObj)))) 
 (foreach memb ObjArr 
  (setq curSet
	 (ssadd
	   (setq curMemb
		  (vlax-vla-object->ename memb))CurSet))
   (if
     (not
       (member
	 (cdr(assoc 0(entget curMemb))) '("LINE" "ARC")))
     (setq errFlag T)
     ); end if
 ); end foreach 
 (if(null errFlag)
   (progn
 (command "_.ucs" "ob" (ssname curSet 0))
 (command "_.pedit" (ssname curSet 0) "_y" "_j" CurSet "" "")
 (command "_.ucs" "_p")
 (vla-delete curObj)
 (princ "\n<<< Polyline created:) >>>")
  ); end progn
   (progn
   (command "_.erase" curSet "")
   (vla-EndUndoMark actDoc)
   (alert "Can't transform this Region to Polyline!")
   ); end progn
   ); end if
); end progn
  (princ "\nThis isn't region! ")
  ); end if
  (setvar "CMDECHO" oldEcho)
  (vla-EndUndoMark actDoc)
  (princ)
  ); end of c:retopl

Сразу предупреждаю, что от "дырок" в регионах не защищает, вернее защищает, но только если они не из линий и арок.

Если кто-то успел скопировать код, скопируйте снова он был изменён. И еще отсутствует защита от заблокированного слоя, так что надо быть внимательным.

[asys]

>{Smirnoff}

Спасибо милчеловек уже легше. Жаль сплайны и окружности не ест. Но все равно спасибо

[{Smirnoff}]

Эллипсы и окружности сделать можно, они и будут при преобразовании из региона сами собой. А вот со сплайнами ничего не получится, поскольку сплайн в принципе нельзя представить в виде полилинии, потому что математика там другая. Можно апроксимировать его полилинию с большим количеством прямых сегментов, однако солид выдавленный по такой форме будет занимать огромный объем из за своей сложности. Да и не то это совсем...

[005]

Отправляйся на радиорынок в Митино, купи там примочку к автокаду
называемую TOOLPACK. Там так
TOOLPACK ---> Convert ---> Regions to Polylines
там же можно конвертнуть сплайны в полилинии, объединить
3D полилинии и многое другое

[asys]

>005
Спасибо мне до Митино 1500 км слишком я в Ростове-на-Дону живу. А тулпак у меня есть, я бьюсь за сокращение процесса, чем меньше команд тем лучше. А тратить время на конверт - ну если очень надо

[Den_Den]

Сообщение от {Smirnoff} Чтобы не бомбить, не собирать осколки и не крутится как юла. Создаёт полилинию из региона без разворота UCS. Естествено если при его разбивании не получается сплайнов, эллипсов и окружностей. Код: [Выделить все] (defun c:retopl(/ *error* oldEcho Ent curSet newObj curObj ObjArr curMemb errFlag) (vl-load-com) (defun *error* (msg) (vla-EndUndoMark actDoc) (setvar "CMDECHO" oldEcho) (princ msg) (princ) ); end of *error* (setq oldEcho(getvar "CMDECHO") actDoc (vla-get-ActiveDocument (vlax-get-acad-object)) ); end setq (vla-StartUndoMark actDoc) (setvar "CMDECHO" 0) (if (and (setq Ent(entsel "\Select region > ")) (= "REGION"(cdr(assoc 0(entget(car Ent))))) ); end and (progn (setq curSet (ssadd) curObj (vlax-ename->vla-object(car Ent)) newObj(vla-Copy curObj) ObjArr (vlax-safearray->list (vlax-variant-value (vla-Explode newObj)))) (foreach memb ObjArr (setq curSet (ssadd (setq curMemb (vlax-vla-object->ename memb))CurSet)) (if (not (member (cdr(assoc 0(entget curMemb))) '("LINE" "ARC"))) (setq errFlag T) ); end if ); end foreach (if(null errFlag) (progn (command "_.ucs" "ob" (ssname curSet 0)) (command "_.pedit" (ssname curSet 0) "_y" "_j" CurSet "" "") (command "_.ucs" "_p") (vla-delete curObj) (princ "\n<<< Polyline created:) >>>") ); end progn (progn (command "_.erase" curSet "") (vla-EndUndoMark actDoc) (alert "Can't transform this Region to Polyline!") ); end progn ); end if ); end progn (princ "\nThis isn't region! ") ); end if (setvar "CMDECHO" oldEcho) (vla-EndUndoMark actDoc) (princ) ); end of c:retopl Сразу предупреждаю, что от "дырок" в регионах не защищает, вернее защищает, но только если они не из линий и арок. Если кто-то успел скопировать код, скопируйте снова он был изменён. И еще отсутствует защита от заблокированного слоя, так что надо быть внимательным.

Уважаемые господа, а нельзя ли изменить эту программу, чтобы она выбирала все имеющиеся на чертеже регионы, а не спрашивала по одному....???

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

Den_Den, так что, твою тему удалять?
P.S. Видишь, как полезно сначала заниматься поиском, и только потом создавать темы?