renumber or set as variable a specific domain by tcl

try create mark that domain 'by node' or 'by elem' ,...

I tried this too but I get the message:

Domains are not selectable with 'by node'

Domains are not selectable with 'by element'

...

If you cannot select the domain by any tag, you have to make a loop for each domain, compare its position with one you concern about, if they are match then you can pick up that domain to renumber

If you cannot select the domain by any tag, you have to make a loop for each domain, compare its position with one you concern about, if they are match then you can pick up that domain to renumber

Hi tinh,

thanks for your reply.

In the meantime I tried to do it by generating new handles but unfortunatly this doesn't work too. /emoticons/default_sad.png' srcset='/emoticons/sad@2x.png 2x' title=':(' width='20' />

So I will try with a while {} command

As I'm not that good in tcl scripting colud you please give me a hint how to go on?

I know at least one node (Node ID = 177) of the domain and I know that I can get the nodes of the needed domain by the command 'hm_morph_getdomainnodes' but how to put those informations together?

Thanks in advance

*Edit:

I tired this, but it doesn't work and I don't konw why ...

*createmark node 1 'by box' 0 9.99 13.51 0 10.01 12.4 0 inside 0 1 0

set nodelist1 [hm_getmark node 1 0]

##

set domaintmp [hm_morph_getdomainnodes 1]
set domain [lsort -dictionary $domaintmp]

##
while {$domain != $nodelist1} {
set domaintmp [hm_morph_getdomainnodes 4]
set domain [lsort -dictionary $domaintmp]
set domaintmp [hm_morph_getdomainnodes 5]
set domain [lsort -dictionary $domaintmp]
set domaintmp [hm_morph_getdomainnodes 6]
set domain [lsort -dictionary $domaintmp]
set domaintmp [hm_morph_getdomainnodes 7]
set domain [lsort -dictionary $domaintmp]
}
*createmark domains 1 $domain
*renumbersolverid domains 1 10 1 0 0 0 0 0
 

domain 4 should be the one which should be renumbered...

Hi Tomislav,

the code looks like this:

*createmark domains 1 all

foreach DomainId [hm_getmark domains 1] {

      *createmark nodes 1 'by domain' $DomainId

      if {[hm_checkmark nodes 1 177]} {

             *createmark domains 1 $DomainId
               *renumbersolverid domains 1 10 1 0 0 0 0 0

      }

}

Hi Tomislav,

the code looks like this:

 

*createmark domains 1 all

foreach DomainId [hm_getmark domains 1] {

      *createmark nodes 1 'by domain' $DomainId

      if {[hm_checkmark nodes 1 177]} {

             *createmark domains 1 $DomainId
               *renumbersolverid domains 1 10 1 0 0 0 0 0

      }

} 

Hi tinh,

it works perfectly! /emoticons/default_biggrin.png' srcset='/emoticons/biggrin@2x.png 2x' title=':D' width='20' />

Many thanks for your support! You are incredible!

THANK YOU VERY VERY MUCH!!!!