puts "============" puts "OCC7166" puts "============" puts "" ####################################################################### # Improvement of API of ThruSection ####################################################################### set BugNumber OCC7166 # spine polyline s1 0 0 20 0 0 -20 # profile polyline s2 0 5 0 5 0 0 -5 -5 0 0 5 0 # 1 vertex vertex v1 5 2.5 -20 # 2 vertex vertex v2 5 2.5 20 mksweep s1 addsweep v1 addsweep s2 addsweep v2 buildsweep result set square 795.95 checknbshapes result -vertex 2 -edge 9 -wire 3 -face 3 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 18 set index [lsearch [whatis result] Closed] if {$index == -1} { puts "Faulty ${BugNumber} : result is not Closed shape" } set 3dviewer 0