mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-04 13:13:25 +03:00
32 lines
751 B
Plaintext
Executable File
32 lines
751 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC22770"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Improve comman sewing in DRAW
|
|
######################################################################################
|
|
|
|
set BugNumber OCC22770
|
|
|
|
catch { pload XDE }
|
|
|
|
# Create a new document and set UndoLimit
|
|
# NewDocument D BinXCAF
|
|
# UndoLimit D 100
|
|
# Open a transaction
|
|
# NewCommand D
|
|
|
|
box a 1 2 3
|
|
box b 2 0 0 1 2 3
|
|
explode a f
|
|
explode b f
|
|
sewing result +t 1.1 a_2 b_1
|
|
|
|
set square 12
|
|
checknbshapes result -vertex 4 -edge 4 -wire 2 -face 2 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 13
|
|
checkmaxtol result -ref 1.5
|
|
checknbshapes result -shell 1
|
|
checkfreebounds result 0
|
|
|
|
set 3dviewer 0
|