All Courses
All Courses
Courses by Software
Courses by Semester
Courses by Domain
Tool-focused Courses
Machine learning
POPULAR COURSES
Success Stories
Objective: To create code to create collector of component and property with thickness given by user and assign it to component based on solver type Procedure: 1. Get the user input of component type and thickness from tk window 2. create a component and property with user given name and assign property to given component…
dinesh reddy
updated on 18 Mar 2023
Objective: To create code to create collector of component and property with thickness given by user and assign it to component based on solver type
Procedure:
1. Get the user input of component type and thickness from tk window
2. create a component and property with user given name and assign property to given component with thickness provided
3. autocolor component
Code:
proc nastran {n t} {
*createentity comps includeid=0 name=$n$t
set cid [hm_getvalue component name=$n$t dataname=id]
*createentity props cardimage=PSHELL includeid=0 name=$n$t
set pid [hm_getvalue property name=$n$t dataname=id]
*setvalue props id=$pid STATUS=1 95=$t
*setvalue comps id=$cid propertyid={props $pid}
*autocolor components
}
proc radioss {n t} {
*createentity comps cardimage=part includeid=0 name=$n$t
set cid [hm_getvalue component name=$n$t dataname=id]
*createentity props cardimage=P1_SHELL includeid=0 name=$n$t
set pid [hm_getvalue property name=$n$t dataname=id]
*setvalue props id=$pid STATUS=1 431=$t
*setvalue comps id=$cid propertyid={props $pid}
*autocolor components
}
set type [hm_info templatetype]
set a .window
catch {destroy $a}
toplevel $a -class Toplevel
wm title $a "Collectors"
wm geometry $a 400x200+500+500
wm resizable $a 0 0
wm deiconify $a
set ::name "Name followed by _"
set ""t 0
label $a.01 -text "Name of component" -bg grey -font {time 10}; place $a.01 -x 15 -y 15 -width 150 -height 30
entry $a.02 -textvariable "::name" ; place $a.02 -x 165 -y 15 -width 150 -height 30
label $a.03 -text "Thickness" -bg grey -font {time 10}; place $a.03 -x 15 -y 65 -width 150 -height 30
entry $a.04 -textvariable "::t" ; place $a.04 -x 165 -y 65 -width 150 -height 30
button $a.05 -text "Create collector" -command {$type $::name $::t} -bg green -font {time 11}; place $a.05 -x 100 -y 120
Before code:
After code:
Conclusion:
Leave a comment
Thanks for choosing to leave a comment. Please keep in mind that all the comments are moderated as per our comment policy, and your email will not be published for privacy reasons. Please leave a personal & meaningful conversation.
Other comments...
Week - 11 - Element quality check
Objective: To create a code to show the failed elements based on quality criteria Procedure: 1. create tk gui to get the quality criteria 2. using the criteria get failed elements and add temp node to highlight them verifying Code: # need to add a way to display number of failed elementsset a .windowcatch {destroy $a}toplevel…
23 Mar 2023 09:06 AM IST
Week - 9 - Reflecting the geometry
Objective: To create a code to reflect elements for similar components and create components for them and properties depending on solver type Procedure: 1. Provide the name for reflected components elements 2. Select source geometry 3. Select reflect to geometry 4. Select fe of components to be reflected 5. get centroid…
22 Mar 2023 03:30 PM IST
Week - 10 - Creating the midline and spot weld
Objective: To create code for creating midline and combine the line. Create spotweld for given set of node Procedure: MIDLINE: 1. Create a set for storing first set of lines 2. Create a set for storing second set of lines 3. creating midline for every pair of lines 4. combining lines to single line Code: *createlistbypathpanel…
18 Mar 2023 05:44 PM IST
Week - 8 - Creating component and property
Objective: To create code to create collector of component and property with thickness given by user and assign it to component based on solver type Procedure: 1. Get the user input of component type and thickness from tk window 2. create a component and property with user given name and assign property to given component…
18 Mar 2023 01:26 PM IST
Related Courses
0 Hours of Content
Skill-Lync offers industry relevant advanced engineering courses for engineering students by partnering with industry experts.
© 2025 Skill-Lync Inc. All Rights Reserved.