Creating surface property by TCL scripts

User: "stefht85"
stefht85
Altair Community Member

I have 4 components and i want associate 4 different generical property names by a TCL script. I created TCL just to create component but i cannot be able to assign property names by TCL.

TCL_script.tcl

image.png
Sort by:
1 - 1 of 11
    User: "Cesar_Rivas1"
    Cesar_Rivas1
    Altair Community Member
    Accepted Answer

    hi there….

    try the following, there is no checks and some assumptions. Hope it solves what you need…

    set comp_list [ hm_entitylist comps id ]; #gets all comps and loop thru them.

    foreach comp_id $comp_list {

    #gets current name and color.
    
set comp_name [ hm_getvalue comps id=$comp_id dataname=name ]
    
set color [ hm_getvalue comps id=$comp_id dataname=color ]

    
# create a new prop with the componentn name/id/color
    
*createentity props id=$comp_id name="$comp_name" cardimage=PSHELL color=$color
    
set last_id [ hm_latestentityid  props ]

    
#assigns the new property to the component 'comp_id'
    
*setvalue comps id=$comp_id propertyid={props $last_id}

    }

    View in context
Quick Links