Исключение узла из компонента

[Closius 8]

Здравствуйте. Подскажите пожалуйста как командами организовать исключение узла (зная его номер) из компонента? Компонент состоит из множества узлов.

[Guterfreund 75]

Что в голову пришло...

cmsel,S

nsel,R

[Closius 8]

Что в голову пришло...

cmsel,S

nsel,R

Не так не получается..

я делаю:

NSEL,U,,,n2

CM,CM_1,NODE

CMSEL,ALL,CM_1

но чет мне кажется тут ошибка

[Guterfreund 75]

Сорри, написал вместо U - R.

Хм, смотрится нормально. У Вас, естественно, до исключения узла выборка сделана, т.е. узлы выбраны?

[Closius 8]

Вообще мне надо сделать автоматическое создание CP между центральным узлом и узлами находящимися на одинаковом расстоянии от этого узла. То есть я хочу связать стержневой элемент с торцом трубы из солида.

Вот код, в котором фигня получается с определением узлов..

!CM_1 - узлы стержней

!CM_surf_1 - компонент узлов торцов труб к которым присоединяются стержни



!диаметр поиска узлов

_D=16.5



CMSEL,S,CM_surf_1

*GET,kol_vo_node_surf,NODE,0,COUNT

ALLSEL,ALL

CMSEL,S,CM_1

*GET,kol_vo_node,NODE,0,COUNT

*GET,n1,NODE,0,NUM,MIN



*DO,i,0,kol_vo_node-1

CMSEL,S,CM_surf_1

	*DO,j,0,kol_vo_node_surf-1

		n2=NNEAR(n1)

		!проверка-----------------------------------------

		*IF , DISTND(n2,n1) , LE , _D/2 , THEN

			CP,NEXT,ALL,n1,n2

			!исключение узла из набора

			NSEL,U,,,n2

			CM,CM_surf_1,NODE

			CMSEL,ALL,CM_surf_1

			!====================

		*ELSE

			!исключение узла из набора

			NSEL,U,,,n2

			CM,CM_surf_1,NODE

			CMSEL,ALL,CM_surf_1

			!====================

		*ENDIF

		!==============================

	*ENDDO

ALLSEL,ALL

*IF,i,NE,kol_vo_node-1,THEN

CMSEL,S,CM_1

n1 = NDNEXT(n1)

*ELSE

*EXIT

*ENDIF

*ENDDO

ALLSEL,ALL

[soklakov 1 475]

Мне кажется, было проще использовать цилиндрическую систему координат.

А вообще, не велосипед ли изобретаете?

[Closius 8]

не велосипед. Так как у меня есть множество центральных точек и множество торцевых солидовских узлов. Я пишу макрос под воркбенчь, так как там иначе никак (ну разве только вручную джоинты создавать). Там любой компоненты (named selection) представляет из себя набор узлов. Вот поэтому так и пытаюсь.

[soklakov 1 475]

То есть я хочу связать стержневой элемент с торцом трубы из солида.

Слайд как раз про это.

А то, что таких соединений много - уже другой вопрос, конечно. Но тут, может, какой-нибудь скрипт под WB удобней был бы на java или python, чем переписывать имеющиеся функции на APDL.

По мне, так если соединений меньше тысячи, то проще сделать контакты.

Вам, конечно, виднее задача и средства ее решения.

А исключить узел из набора через "NSEL,U", ну да это уже выяснили.

[Closius 8]

Но тут, может, какой-нибудь скрипт под WB удобней был бы на java или python, чем переписывать имеющиеся функции на APDL.

Я не знаю ни питон ни джаву. И просьба не посылать их учить. Все это можно реализовать через апдл, вот я и хочу выяснить как?

[Guterfreund 75]

Я тут единственное могу посоветовать: отработать команды пошагово непосредственно в APDL, так ВЫ сможете увидеть, на каком этапе возникает ошибка...

[Борман 2 375]

Подскажите пожалуйста как командами организовать исключение узла (зная его номер) из компонента?

Вообще мне надо сделать автоматическое создание CP между центральным узлом и узлами находящимися на одинаковом расстоянии от этого узла. То есть я хочу связать стержневой элемент с торцом трубы из солида.

Налицо нарушение логики и запутывание общественности. Для достижения цели не требуется исключение узлов.

FINISH

/CLEAR,NOSTART



/prep7



n,1,0,0

ngen,50,1,1,,,1

cm,c1,node



cmsel,u,c1



n,100,0,-5

ngen,3,1,100,,,25

cm,c2,node



allsel,all



!======================



i=1

j=1

n2=0



*dowhile,i

	cmsel,s,c2

	*get,n2,node,n2,nxth

	*if,n2,eq,0,THEN

		*exit

	*endif



	n1=0

	*dowhile,j

		cmsel,s,c1

		*get,n1,node,n1,nxth

		*if,n1,eq,0,THEN

			*exit

		*endif



		allsel,all



		*if,distnd(n2,n1),le,7,then

			cp,next,ux,n1,n2

		*endif

	*enddo



*enddo





allse,all

[Closius 8]

Борман, Вы как всегда гений!) Спасибо!)

Только мне надо будет за начальнй номер узла брать минимальный в наборе? не очень понял n1=0 это что за номер такой? Когда он переберет с помощью команды *get все узлы то он потом выдаст 0 ? ли пойдет по второму кругу?

Кстати, с исключением узлов время выполнения моего кода было бы гораздо быстрее(на несколько милисекунд) чем Вашего, так как у меня происходит меньшее количество сравнений)))

[Борман 2 375]

Только мне надо будет за начальнй номер узла брать минимальный в наборе?

*get,n1,node,0,nxth

не очень понял n1=0 это что за номер такой?

Технический момент.

Когда он переберет с помощью команды *get все узлы то он потом выдаст 0 ?

Да.

ли пойдет по второму кругу?

Нет.

*if,n1,eq,0,THEN

*exit

*endif