mirror of
https://github.com/NGSolve/netgen.git
synced 2025-01-26 12:50:34 +05:00
move face mesh size to geometry menu
This commit is contained in:
parent
73f272f80c
commit
2bb63aab47
@ -418,11 +418,6 @@ menu .ngmenu.mesh
|
|||||||
.ngmenu.mesh add command -label "Meshing Options..." \
|
.ngmenu.mesh add command -label "Meshing Options..." \
|
||||||
-command meshingoptionsdialog
|
-command meshingoptionsdialog
|
||||||
|
|
||||||
# Philippose - 30/01/2009
|
|
||||||
# Add menu item for local face mesh size definition in the
|
|
||||||
# TCL Gui
|
|
||||||
.ngmenu.mesh add command -label "Edit Face Mesh Size..." \
|
|
||||||
-command { surfacemeshsizedialog }
|
|
||||||
|
|
||||||
.ngmenu.mesh add separator
|
.ngmenu.mesh add separator
|
||||||
|
|
||||||
@ -567,6 +562,11 @@ menu .ngmenu.geometry
|
|||||||
.ngmenu.geometry add command -label "IGES/STEP Topology Explorer/Doctor..." \
|
.ngmenu.geometry add command -label "IGES/STEP Topology Explorer/Doctor..." \
|
||||||
-command { occdialog; }
|
-command { occdialog; }
|
||||||
|
|
||||||
|
# Philippose - 30/01/2009
|
||||||
|
# Add menu item for local face mesh size definition in the
|
||||||
|
# TCL Gui
|
||||||
|
.ngmenu.geometry add command -label "Edit Face Mesh Size..." \
|
||||||
|
-command { surfacemeshsizedialog }
|
||||||
|
|
||||||
.ngmenu.geometry add command -label "OCC Construction" \
|
.ngmenu.geometry add command -label "OCC Construction" \
|
||||||
-command { Ng_OCCConstruction; }
|
-command { Ng_OCCConstruction; }
|
||||||
|
@ -1455,6 +1455,8 @@ namespace netgen
|
|||||||
Tcl_Interp * interp,
|
Tcl_Interp * interp,
|
||||||
int argc, tcl_const char *argv[])
|
int argc, tcl_const char *argv[])
|
||||||
{
|
{
|
||||||
|
#ifdef OCCGEOMETRY
|
||||||
|
|
||||||
static char buf[100];
|
static char buf[100];
|
||||||
|
|
||||||
if (argc < 2)
|
if (argc < 2)
|
||||||
@ -1537,6 +1539,12 @@ namespace netgen
|
|||||||
Tcl_SetResult (interp, buf, TCL_STATIC);
|
Tcl_SetResult (interp, buf, TCL_STATIC);
|
||||||
}
|
}
|
||||||
return TCL_OK;
|
return TCL_OK;
|
||||||
|
#else
|
||||||
|
|
||||||
|
Tcl_SetResult (interp, (char *)"Ng_SurfaceMeshSize currently supports only OCC (STEP/IGES) Files", TCL_STATIC);
|
||||||
|
return TCL_ERROR;
|
||||||
|
|
||||||
|
#endif
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user