mirror of
https://github.com/NGSolve/netgen.git
synced 2025-01-24 03:40:34 +05:00
fix set stl tolerance from gui
This commit is contained in:
parent
5724b397d1
commit
3f255d9139
@ -2228,7 +2228,7 @@ proc stloptionsdialog { } {
|
||||
}
|
||||
|
||||
proc stldoctordialog { } {
|
||||
Ng_STLDoctor 0 0
|
||||
Ng_STLDoctor
|
||||
set wd .stldoctor_dlg
|
||||
|
||||
if {[winfo exists .stldoctor_dlg] == 1} {
|
||||
@ -2642,17 +2642,17 @@ proc stldoctordialog { } {
|
||||
|
||||
|
||||
#tixControl $f.gtol -label "load-geometry tolerance factor" -integer false \
|
||||
-variable stldoctor.geom_tol_fact \
|
||||
-options {
|
||||
# -variable stldoctor.geom_tol_fact \
|
||||
# -options {
|
||||
# entry.width 8
|
||||
# label.width 30
|
||||
# label.anchor e
|
||||
#}
|
||||
ttk::spinbox $f.gtol -from 1 -to 20 -textvariable stldoctor.geom_tol_fact -width 8
|
||||
pack $f.gtol
|
||||
ttk::label $f.gtol_lbl -text "LoadSTL tolerance factor"
|
||||
ttk::spinbox $f.gtol -from 1e-15 -to 0.001 -textvariable stldoctor.geom_tol_fact -width 8
|
||||
pack $f.gtol_lbl $f.gtol
|
||||
|
||||
ttk::button $f.adap -text "Apply" -command {
|
||||
.stldoctor_dlg.nb.advanced.gtol invoke
|
||||
Ng_STLDoctor;
|
||||
}
|
||||
pack $f.adap -expand yes
|
||||
|
@ -2804,7 +2804,7 @@ const char * ngscript[] = {""
|
||||
,"}\n"
|
||||
,"}\n"
|
||||
,"proc stldoctordialog { } {\n"
|
||||
,"Ng_STLDoctor 0 0\n"
|
||||
,"Ng_STLDoctor\n"
|
||||
,"set wd .stldoctor_dlg\n"
|
||||
,"if {[winfo exists .stldoctor_dlg] == 1} {\n"
|
||||
,"wm withdraw $wd\n"
|
||||
@ -3055,10 +3055,10 @@ const char * ngscript[] = {""
|
||||
,"-variable stldoctor.conecheck \\\n"
|
||||
,"-command {Ng_STLDoctor;}\n"
|
||||
,"pack $f.sc.bu $f.sc.bu2\n"
|
||||
,"ttk::spinbox $f.gtol -from 1 -to 20 -textvariable stldoctor.geom_tol_fact -width 8\n"
|
||||
,"pack $f.gtol\n"
|
||||
,"ttk::label $f.gtol_lbl -text \"LoadSTL tolerance factor\"\n"
|
||||
,"ttk::spinbox $f.gtol -from 1e-15 -to 0.001 -textvariable stldoctor.geom_tol_fact -width 8\n"
|
||||
,"pack $f.gtol_lbl $f.gtol\n"
|
||||
,"ttk::button $f.adap -text \"Apply\" -command {\n"
|
||||
,".stldoctor_dlg.nb.advanced.gtol invoke\n"
|
||||
,"Ng_STLDoctor;\n"
|
||||
,"}\n"
|
||||
,"pack $f.adap -expand yes\n"
|
||||
|
Loading…
Reference in New Issue
Block a user