Intro

Working a bit with TCL now and it’s actually a very interesting language and has a C like similar syntax. But is very powerful and you can define classes.

TCL

CLASS END_MILL_NON_INDEXABLE 
      {
        TYPE QRY
        QUERY  "[DB(SubType)] == [01]"
        FILE "qry=shank_mill_schema;rset=shank_mill_schema;" 
        DIALOG libref Diameter FluteLength CorRadMill TaperAngleB TaperedSDia Material Holder Descr
        RSET   libref Descr Diameter FluteLength CorRadMill TaperAngleB TaperedSDia MaterialDes HolderDes HolderRef
        UI_NAME "End Mill (non indexable)"
      }

Code from [2].

 

Ref

[1] https://www.tcl.tk/about/language.html

[2] https://docs.plm.automation.siemens.com/tdoc/nx/12.0.1/nx_help/#uid:xid390955