mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
e837410dac
All uses of "MDTV-Standard" and "MDTV-Design" in tests changed to "BinOcaf", and "MDTV-XCAF" changed to "BinXCAF". Formats changed: .std to .cbf, .dxc to .dbf. Test groups renamed accordingly: xcaf: brep_to_dxc -> brep_to_xbf, igs_to_dxc -> igs_to_xbf, stp_to_dxc -> stp_to_xbf, dxc -> xbf/A1, dxc_add_CL -> xbf_add_CL xml: ocaf_std -> ocaf_cbf, xcaf_dxc -> xcaf_xbf
48 lines
1.1 KiB
Plaintext
48 lines
1.1 KiB
Plaintext
puts "============"
|
|
puts "OCC26061"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# TNaming_Selector crash in select method.
|
|
#######################################################################
|
|
|
|
pload QAcommands
|
|
|
|
NewDocument D BinOcaf
|
|
|
|
## 1. Build Primitive face <f>
|
|
plane pl 0 0 0 0 0 1
|
|
mkface f0 pl -10 10 -10 10
|
|
set Lab900 [Label D 0:1:900]
|
|
BuildNamedShape D $Lab900 P f0
|
|
|
|
## 2. Mirror f0
|
|
tmirror f0 0 0 10 0 0 1
|
|
renamevar f0 fmir
|
|
GetShape D $Lab900 f0
|
|
set Lab901 [Label D 0:1:901]
|
|
BuildNamedShape D $Lab901 G f0 fmir
|
|
|
|
## 3. Translate primitive face
|
|
ttranslate f0 0 0 -5
|
|
renamevar f0 ftr5
|
|
set Lab902 [Label D 0:1:902]
|
|
GetShape D $Lab900 f0
|
|
BuildNamedShape D $Lab902 M f0 ftr5
|
|
|
|
## 4. Translate mirrored face
|
|
GetShape D $Lab901 fmir
|
|
renamevar fmir fmirtr
|
|
ttranslate fmirtr 0 0 -5
|
|
GetShape D $Lab901 fmir
|
|
set Lab903 [Label D 0:1:903]
|
|
BuildNamedShape D $Lab903 M fmir fmirtr
|
|
|
|
## 5. Select the face from step 4 (mirrored & translasted)
|
|
set Lab904 [Label D 0:1:904]
|
|
GetShape D $Lab903 fSel
|
|
SelectShape D $Lab904 fSel
|
|
## ==> No exception
|
|
GetShape D $Lab904 fRes
|
|
whatis fRes
|