ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2024-09-22 09:42:50 +05:00
Code Issues Packages Projects Releases Wiki Activity

fix occ error faces in topology explorer

Browse Source
This commit is contained in:
Christopher Lackner 2022-07-19 12:45:23 +02:00
parent 93842302b4
commit 9468e476a7
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ng/occgeom.tcl
View File

@ -101,7 +101,7 @@ proc occdialogbuildtree {} {
set nrfaces [expr [llength $faces]]
if {$nrfaces >= 2} {
#$hlist add ErrorFaces -itemtype text -text "Faces with surface meshing error"
$w.tree insert {} -id ErrorFaces -text "Faces with surface meshing error"
$w.tree insert {} end -id "ErrorFaces" -text "Faces with surface meshing error"
#$w.mtre open ErrorFaces
$w.tree item ErrorFaces -open true
set i [expr 0]
@ -109,12 +109,12 @@ proc occdialogbuildtree {} {
set entity [lindex $faces [expr $i]]
set myroot [string range $entity 0 [string last / $entity]-1]
if { [string length $myroot] == 0 } {
set myroot ErrorFaces
set myroot "ErrorFaces"
}
incr i 1
set entityname [lindex $faces [expr $i]]
#$hlist add ErrorFaces/$entity -text $entityname -data $entityname
$w.tree insert {myroot} end -id $entity -text $entityname -value 0
$w.tree insert $myroot end -id $entity -text $entityname -value 0
incr i 1
}
}

6
ng/onetcl.cpp
View File

@ -3992,18 +3992,18 @@ DLL_HEADER const char * ngscript[] = {""
,"set faces [Ng_OCCCommand getunmeshedfaceinfo]\n"
,"set nrfaces [expr [llength $faces]]\n"
,"if {$nrfaces >= 2} {\n"
,"$w.tree insert {} -id ErrorFaces -text \"Faces with surface meshing error\"\n"
,"$w.tree insert {} end -id \"ErrorFaces\" -text \"Faces with surface meshing error\"\n"
,"$w.tree item ErrorFaces -open true\n"
,"set i [expr 0]\n"
,"while {$i < $nrfaces} {\n"
,"set entity [lindex $faces [expr $i]]\n"
,"set myroot [string range $entity 0 [string last / $entity]-1]\n"
,"if { [string length $myroot] == 0 } {\n"
,"set myroot ErrorFaces\n"
,"set myroot \"ErrorFaces\"\n"
,"}\n"
,"incr i 1\n"
,"set entityname [lindex $faces [expr $i]]\n"
,"$w.tree insert {myroot} end -id $entity -text $entityname -value 0\n"
,"$w.tree insert $myroot end -id $entity -text $entityname -value 0\n"
,"incr i 1\n"
,"}\n"
,"}\n"