基于TCL_TK的HyperMesh二次开发

主要介绍一下在项目中常用的TCL开发命令

About TCL

1.       hm_entitylistentity_type name_or_id

Returns a list of names or IDs of all entities of the requestedtype.

eg. hm_entitylist dequation names 

       hm_entitylist nodes id

 

可以使用本命令配合lsearch命令判断组件存在方式

hm_entitymaxid entity_type ?recalculate?

hm_entitymaxid - Returns the maximum internal ID in use for anentity type.

 

2.       hm_info -appinfo SPECIFIEDPATHTEMPLATES_DIR

return the templates file dir in the local macthion

 

3.       hm_entityinfooption entity_type ?entity_name_or_id? ?search_type?

hm_entityinfo - Returns variousinformation on entities.

####To display information on a selected component:

*createmarkpanel components 1 "Select components"

set compList [ hm_getmark components 1 ]

if { ! [ Null compList ] } {

   set compId [ lindex $compList 0 ]

   set name     [ hm_entityinfo name components $compId ]

   set color    [ hm_entityinfo color components $compId ]

   set visible  [ hm_entityinfo visible components $compId ]

   set style    [ hm_entityinfo style components $compId ]

   set graphics [ hm_info graphicsmode ]

   set colormap [ hm_winfo entitycolors ]

   set msgBuff    "component:\t$name\n"

   append msgBuff "color:\t\t$color\n"

   append msgbuff "visible:\t\t$visible\n"

   append msgBuff "id:\t\t$compId\n"

   append msgBuff "style:\t\t$style\n\n"

   append msgBuff "graphics:\t\t$graphics\n\n"

   append msgBuff "colormap:"

   regsub -all "{" $colormap "" colormap

   set cm [ split $colormap "}" ]

   for { set i 0; set j 1 } { $i < 16 } { incr i; incr j } {

       append msgBuff "\t\t$j = [ lindex $cm $i ]\n"

   }

   tk_messageBox -message $msgBuff

}

 

A new ID Manager has been added in HM 12.0 and will be officially released in HM 12.0.110.  The ID range for each entity type in each sub-model (like an include file) can be defined to position the entity IDs.  For example, there are two includes in HM.  The ID range for include1 is 1001-2000 (min-max) while include2 has 3001-4000.  If include1 is set as current, when a new entity is created or imported, the ID for this new entity will be between 1001 to 2000, not the ID with [max id +1] in current HM.  Similarly, if include2 is set as current, a new created entity ID will be between 3001-4000. Because of this, some usage of the commandhm_entitymaxid will not make sense and needs to be updated to use new commands.  The commandhm_entitymaxid still returns the maximum database ID in use.  However, there are other "unsupported" uses of this command that will no longer work, so it is mandatory to update scripts to use the new APIs for those usages. Currently there are two main usages of hm_entitymaxid: 1. To get latest created entity ID.  For example: proc CreateGRNOD { args } { set d_nodesList [lindex $args 0]; if { [llength $d_nodesList] } { set str_setName [::hwat::utils::GetUniqueName sets [lindex $args 1]]; eval *createmark nodes 1 $d_nodesList; *entitysetcreate "$str_setName" nodes 1; *createmark sets 1 -1; *dictionaryload sets 1 $::str_templatePath "GRNOD"; return [hm_entitymaxid sets]; } else { return 0; } } 2. To get a unique ID number to assign to a name for an entity.  For example: proc HandleNewInDefineMaterialProperties { args } { # First find out the maximum material ID used. set max_mat_col_id [hm_entitymaxid mats]; # The new material ID will be one more than the existing maximum mat ID. set ::material_id [ expr { $max_mat_col_id + 1 }]; # Set the default mu value. set ::material_mu 0.2; # Set the Material collector default name by adding name and ID. # This is to make sure that it is a unique name. set ::material_name ""; append ::material_name "TARGET_CONTACT" "_MAT_" $::material_id; } To cover these two use cases, new commands have been created to replacehm_entitymaxid. 1. Use new command hm_latestentityid.  It is mandatory to update scripts to replacehm_entitymaxid for these use cases.  For example: proc CreateGRNOD { args } { set d_nodesList [lindex $args 0]; if { [llength $d_nodesList] } { set str_setName [::hwat::utils::GetUniqueName sets [lindex $args 1]]; eval *createmark nodes 1 $d_nodesList; *entitysetcreate "$str_setName" nodes 1; *createmark sets 1 -1; *dictionaryload sets 1 $::str_templatePath "GRNOD"; return [hm_latestentityid sets]; } else { return 0; } } 2. Use hm_entityinfo maxid.  This is not mandatory, ashm_entitymaxid behaves the same as in previous versions for this case.  For example: proc HandleNewInDefineMaterialProperties { args } { # First find out the maximum material ID used. set max_mat_col_id [hm_entityinfomaxid mats]; # The new material ID will be one more than the existing maximum mat ID. set ::material_id [ expr { $max_mat_col_id + 1 }]; # Set the default mu value. set ::material_mu 0.2; # Set the Material collector default name by adding name and ID. # This is to make sure that it is a unique name. set ::material_name ""; append ::material_name "TARGET_CONTACT" "_MAT_" $::material_id; } Also, for the use case of generating a unique name, the commandhm_getincrementalname can be used. A new API, hm_entityrecorder, has also been added to "record" the IDs of the entities created while the recorder is enabled. In addition, the behavior of selecting recently created entities using negative values using*createmark/hm_createmark has been improved.  Previously, the values returned by this functionality were always the highest entity IDs, which is how entities were previously numbered during creation.  With the new ID Management functionality, this now more accurately returns the recently created entity IDs and matches the return values ofhm_latestentityid.  In essence, this now selects entities in the reverse order they are stored in the database (the order they are created, regardless of ID).  However, any operations that affect the order of entities in the database (organize, reorder, etc...) will change the returned/selected entities.  As in previous releases, it is recommended to use this option only immediately after entity creation and before any other operations that may modify the database.

更多内容可以关注: