mirror of
https://github.com/NGSolve/netgen.git
synced 2024-12-26 13:50:33 +05:00
21 lines
626 B
Tcl
21 lines
626 B
Tcl
.ngmenu.geometry add command -label "STL Doctor..." \
|
|
-command { stldoctordialog; }
|
|
|
|
.ngmenu.geometry add command -label "STL Info" \
|
|
-command {
|
|
set notriangles 0
|
|
set minx 0
|
|
set maxx 0
|
|
set miny 0
|
|
set maxy 0
|
|
set minz 0
|
|
set maxz 0
|
|
set trigscons 0
|
|
Ng_STLInfo notriangles minx maxx miny maxy minz maxz trigscons
|
|
set msgtext "NO STL-Triangles : $notriangles\nGeometry:\nX = $minx - $maxx\nY = $miny - $maxy\nZ = $minz - $maxz\nConsistency Check = $trigscons\n"
|
|
set msgtext "$msgtext Status: [Ng_STLInfo status]"
|
|
tk_messageBox -title "STL Info" -message $msgtext -type ok
|
|
}
|
|
|
|
.ngmenu.geometry add separator
|