A program to recognize and reward our most engaged community members
Does anyone have .tcl script to measure thickness by projecting nodes from one surface to opposite surface
Try this code and tell us if it works?
*createmarkpanel nodes 1 'Select node' set node1 [hm_getmark nodes 1] *createmarkpanel surfaces 1 'Select surface' set surf_id [hm_getmark surfaces 1] *createmark nodes 1 $node1 *duplicatemark nodes 1 0 hm_createmark nodes 1 -1 set node2 [hm_getmark nodes 1] *createmark nodes 1 $node2 *markprojectnormallytosurface nodes 1 $surf_id set d12 [lindex [split [hm_getdistance nodes $node1 $node2 0] ' '] 0] puts [format 'Thickness= %0.3f' $d12]
Does anyone have tcl script for finding the thickness of a component directly without creating any nodes?
