Howto create HyperView tcl script

 Hello my friends,

today, in this post i will show you the code to get normal vector of one element in HyperView

by using tcl command.

------------------ procedure code--------------------

proc getNormalEle { windowid elementid} {

hwi OpenStack

set t [clock clicks]

hwi GetSessionHandle mySession$t

  mySession$t GetProjectHandle myProject$t

     set pageIndex [myProject$t GetActivePage]

     myProject$t GetPageHandle myPage$t $pageIndex

       myPage$t GetWindowHandle myWindow$t $windowid

          myWindow$t GetClientHandle myPost$t

            set modelIndex [myPost$t GetActiveModel]

               myPost$t GetModelHandle myModel$t $modelIndex

             set normallist [myModel$t GetEntityInfo element normal  $elementid]

myModel$t ReleaseHandle

myPost$t ReleaseHandle

myWindow$t ReleaseHandle

myPage$t ReleaseHandle

myProject$t ReleaseHandle

mySession$t ReleaseHandle

hwi CloseStack

return $normallist
}

------------------------------------------------------------

how to use this procedure?

in console window you paste above code

then, use syntax below to get normal vector of element id 100 in window id 1.

set norvec [getNormalEle 1 100]

that done!

hope this is useful to you 😄

Cudaisoai