Week - 6 - Creating the GUI for final checks
Objective:
Create a tk GUI for all the final checks / operations :
These include
- Create buttons to delete displayed geometric entities (be careful about advanced remesh)
- Create buttons to delete empty entities
- Create button to re-order and re-number entities by name
- Create a master button in red that will execute all above scripts in proper order to keep only the fea entities. Name the button master
Code:
Create buttons to delete displayed geometric entities (be careful about advanced remesh)
set a .window
catch {destroy $a}
toplevel $a -class toplevel
wm title $a "DeleteGeometry"
wm geometry $a 240x100+100+200
button $a.01 -text "Delete surfaces" -command "delete surfaces" -bg grey -font {times 10 bold}; place $a.01 -x 20 -y 30 -width 100 -height 25
button $a.02 -text "Delete solids" -command "delete solids" -bg grey -font {times 10 bold}; place $a.02 -x 120 -y 30 -width 100 -height 25
proc delete {a} {
*createmark $a 1 "displayed"
if {[hm_marklength $a 1] !=0} {*deletemark $a 1}
}
Create buttons to delete empty entities
set a .window
catch {destroy $a}
toplevel $a -class toplevel
wm title $a "Delete Empty"
wm geometry $a 240x180+100+200
button $a.01 -text "Empty Comps" -command "empty comps" -bg grey -font {times 10 bold}; place $a.01 -x 20 -y 30 -width 100 -height 25
button $a.02 -text "Empty Assemblies" -command "empty assemblies" -bg grey -font {times 10 bold}; place $a.02 -x 120 -y 30 -width 100 -height 25
button $a.03 -text "Empty Mats" -command "empty mats" -bg grey -font {times 10 bold}; place $a.03 -x 20 -y 60 -width 100 -height 25
button $a.04 -text "Empty Assemblies" -command "empty assemblies" -bg grey -font {times 10 bold}; place $a.04 -x 120 -y 60 -width 100 -height 25
button $a.05 -text "Empty Groups" -command "empty groups" -bg grey -font {times 10 bold}; place $a.05 -x 20 -y 90 -width 100 -height 25
button $a.06 -text "Empty Sets" -command "empty sets" -bg grey -font {times 10 bold}; place $a.06 -x 120 -y 90 -width 100 -height 25
proc empty {a} {
*EntityPreviewEmpty $a 1
if {[hm_marklength $a 1] !=0} {*deletemark $a 1}
}
Create button to re-order and re-number entities by name
Renumber
set a .window
catch {destroy $a}
toplevel $a -class toplevel
wm title $a "Renumbering"
wm geometry $a 370x120+100+200
button $a.01 -text "Renumber Elements" -command "renumber elements" -bg grey -font {times 10 bold}; place $a.01 -x 20 -y 30 -width 150 -height 25
button $a.02 -text "Renumber Nodes" -command "renumber nodes" -bg grey -font {times 10 bold}; place $a.02 -x 200 -y 30 -width 150 -height 25
button $a.03 -text "Renumber Comps" -command "renumber comps" -bg grey -font {times 10 bold}; place $a.03 -x 20 -y 70 -width 150 -height 25
button $a.04 -text "Renumber Props" -command "renumber props" -bg grey -font {times 10 bold}; place $a.04 -x 200 -y 70 -width 150 -height 25
proc renumber {a} {
*clearmarkall 1
*createmark $a 1 "all"
if {[hm_marklength $a 1] !=0} {*renumber $a 1 100 1 0 0 }
}
Reorder
set a .window
catch {destroy $a}
toplevel $a -class toplevel
wm title $a "Renumbering"
wm geometry $a 300x150+100+200
button $a.01 -text "Reorder Comps(N)" -command "reorderbyname comps" -bg grey -font {times 10 bold}; place $a.01 -x 20 -y 50 -width 120 -height 25
button $a.02 -text "Reorder Props(N)" -command "reorderbyname props" -bg grey -font {times 10 bold}; place $a.02 -x 160 -y 50 -width 120 -height 25
button $a.03 -text "Reorder Comps(ID)" -command "reorderbyid comps" -bg grey -font {times 10 bold}; place $a.03 -x 20 -y 80 -width 120 -height 25
button $a.04 -text "Reorder Props(ID)" -command "reorderbyid props" -bg grey -font {times 10 bold}; place $a.04 -x 160 -y 80 -width 120 -height 25
proc reorderbyname {a} {
*clearmarkall 1
*createmark $a 1 "all"
if {[hm_marklength $a 1] !=0} {*collectormarkmove $a 1 1 1}
}
proc reorderbyid {a} {
*clearmarkall 1
*createmark $a 1 "all"
if {[hm_marklength $a 1] !=0} {*collectormarkmove $a 1 1 2}
}
Create a master button in red that will execute all above scripts in proper order to keep only the fea entities. Name the button master
set a .window
catch {destroy $a}
toplevel $a -class toplevel
wm title $a "GUI_FinalCheck"
wm geometry $a 300x450+100+200
wm resizable $a 0 0
button $a.01 -text "Delete solids" -command "delete solids" -bg orange -font {times 10 bold}; place $a.01 -x 40 -y 70 -width 100 -height 25
button $a.02 -text "Delete surfaces" -command "delete surfaces" -bg orange -font {times 10 bold}; place $a.02 -x 160 -y 70 -width 100 -height 25
button $a.03 -text "Delete lines" -command "delete lines" -bg orange -font {times 10 bold}; place $a.03 -x 40 -y 110 -width 100 -height 25
button $a.04 -text "Delete points" -command "delete points" -bg orange -font {times 10 bold}; place $a.04 -x 160 -y 110 -width 100 -height 25
label $a.05 -text "Delete" -bg orange -font {times 10 bold}; place $a.05 -x 10 -y 30 -width 40 -height 30
label $a.06 -text "Empty" -bg green -font {times 10 bold}; place $a.06 -x 10 -y 150 -width 40 -height 30
button $a.07 -text "Empty Comps" -command "empty comps" -bg green -font {times 10 bold}; place $a.07 -x 40 -y 190 -width 100 -height 25
button $a.08 -text "Empty Assemblies" -command "empty assemblies" -bg green -font {times 10 bold}; place $a.08 -x 160 -y 190 -width 100 -height 25
label $a.09 -text "Reorder" -bg yellow -font {times 10 bold}; place $a.09 -x 10 -y 230 -width 60 -height 30
button $a.10 -text "Reorder Comps" -command "reorder comps" -bg yellow -font {times 10 bold}; place $a.10 -x 40 -y 270 -width 100 -height 25
button $a.11 -text "Reorder props" -command "reorder props" -bg yellow -font {times 10 bold}; place $a.11 -x 160 -y 270 -width 100 -height 25
label $a.12 -text "Renumber" -bg grey -font {times 10 bold}; place $a.12 -x 10 -y 310 -width 60 -height 30
button $a.13 -text "Renumber Comps" -command "renumber comps" -bg grey -font {times 10 bold}; place $a.13 -x 40 -y 350 -width 100 -height 25
button $a.14 -text "Renumber props" -command "renumber props" -bg grey -font {times 10 bold}; place $a.14 -x 160 -y 350 -width 100 -height 25
button $a.15 -text "MASTER" -command {master} -bg red -font {times 16 bold}; place $a.15 -x 100 -y 410 -width 100 -height 30
proc delete {a} {
*createmark $a 1 "displayed"
if {[hm_marklength $a 1] !=0} {*deletemark $a 1}
}
proc empty {a} {
*EntityPreviewEmpty $a 1
if {[hm_marklength $a 1] !=0} {*deletemark $a 1}
}
proc reorder {a} {
*clearmarkall 1
*createmark $a 1 "all"
if {[hm_marklength $a 1] !=0} {*collectormarkmove $a 1 1 1}
}
proc renumber {a} {
*clearmarkall 1
*createmark $a 1 "all"
if {[hm_marklength $a 1] !=0} {*renumber $a 1 100 1 0 0 }
}
proc master {} {
delete solids;
delete surfaces;
delete lines;
delete points;
empty comps;
empty comps;
reorder comps;
reorder props;
renumber comps;
renumber props;
}
