Thickness measure tcl/tk script

vishalCAE
vishalCAE Altair Community Member
edited July 2022 in Community Q&A

Does anyone have .tcl script to measure thickness by projecting nodes from one surface to opposite surface

Tagged:

Answers

  • Q.Nguyen-Dai
    Q.Nguyen-Dai Altair Community Member
    edited August 2019

    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]

     

  • kishor namaji
    kishor namaji Altair Community Member
    edited July 2022

    Does anyone have tcl script for finding the thickness of a component directly without creating any nodes?

     

Categories