TCL ClosestNode and CSV Help

Altair Forum User

Hi All,

 

I am trying to extract nodes from a user selected component into a CSV. I am very new to TCL so I have been struggling with basically the whole process!

The way I would like this to work:

• User runs the script and is prompted to select the component they want
• Script:
  • Isolates the component
  • Displays all nodes on the component
  • Exports the nodes ID and coordinates into a CSV

 

So far my code looks like this:

 

puts 'Please select components'
*createmarkpanel components 1
*isolateentitybymark 1
*createmark nodes 1 'displayed'
hm_createmark elems 1 advanced displayed
set id [hm_getclosestnode 0 0 0 1]

 

My problem now is that I do not think the closest node code is working correctly, and I am unsure how I would export the closest node(s) into a CSV. (Eventually I hope to ask the user for several locations, and hence I will be exporting several node locations into the CSV).

 

Any advice would be greatly appreciated!

llyle_20499

Hi BurntPixel,

 

Easier way is to get the component ID and get all the nodes directly from the component:

 

 set lst_nodes [list]; puts 'Please select components' *createmarkpanel components 1 if {[hm_marklength comps 1]} {     set n_compID [hm_getmark comps 1]     *createmark nodes 1 'by comp id' $n_compID     if {[hm_marklength nodes 1]} {         set lst_nodes [hm_getmark nodes 1];     } }  if {[llength $lst_nodes]} {     foreach n_nodeID $lst_nodes {         set lst_coord [join [hm_nodevalue $n_nodeID]];         # file operation to write nodeID and lst_coord should come below this.      } }

nodes will be saved in a tcl list lst_nodes.

 

 

Regards,

Livil