change feature angle for the function *appendmark
Hello.
I have created a TCL script where I split shell elements into different components. The script workflow is as follows:
- I specify a point and determine the ID of the node closest to the point using hm_getclosestnode.
- I find the elements connected to the node.
- Using the function *appendmark elems 1 "by face", I extend the selection to all elements representing the surface.
- I move the elements to a new component.
The script works. However, I have the problem that the function *appendmark uses a too large feature angle. According to the manual, I understood that the function *setoption feature_angle=10 should change the angle, but I couldn't notice any change in behavior.
Therefore, my question is, where is the error, or which function do I need to use to change the angle? Thanks in advance for the help.
Here is a sample of my current script.
*setoption feature_angle=10 *createmark elems 1 "by comp" ^faces set id1 [hm_getclosestnode 0 162 -1510 1] *createmark nodes 1 $id1 *findmark nodes 1 1 0 elems 0 1 eval hm_markremove elems 1 $solidElemIDs *marktousermark elems 1 *createmark elems 1 "retrieve" *appendmark elems 1 "by face" *movemark elems 1 "inlet"
*setoption feature_angle=10
*createmark elems 1 "by comp" ^faces
set id1 [hm_getclosestnode 0 162 -1510 1]
*createmark nodes 1 $id1
*findmark nodes 1 1 0 elems 0 1
eval hm_markremove elems 1 $solidElemIDs
*marktousermark elems 1
*createmark elems 1 "retrieve"
*appendmark elems 1 "by face"
*movemark elems 1 "inlet"
Here are also 2 images for understanding.
Image 1 shows the result that my script delivers, and Image 2 shows how I would like it to be.