mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
ea86bfe2fa
DCAF require VISUALIZATION for correct work. In some scenario DRAWEXE can generate a dublicates of the internal static singletons. This means each dynamic library will have their own instance of the static singleton. Update all direct library loading to use the DCAF plugin mechanism. This will ensure that the DCAF plugin is loaded only once and that the correct instance is used. Originally issue is reproduced only Linux with dlopen with "RTLD_LAZY". Can be resolved additionally adding "RTLD_LAZY | RTLD_GLOBAL" for dlopen
75 lines
1.7 KiB
Plaintext
75 lines
1.7 KiB
Plaintext
puts "============"
|
|
puts "0029854: XCAF GD&T: Clear contents of reserved labels only"
|
|
puts "============"
|
|
puts ""
|
|
|
|
pload OCAF
|
|
|
|
box b 10 10 10
|
|
|
|
# create document with object
|
|
NewDocument D
|
|
set L [XAddShape D b]
|
|
|
|
# create datum with reserved children
|
|
set datumL [XAddDatum D $L]
|
|
set aTagNumber 20
|
|
for {set i 1} {${i}<${aTagNumber}} {incr i} {
|
|
NewChild D $datumL
|
|
}
|
|
|
|
set val 100
|
|
|
|
# add datum child with attribute
|
|
set childL [NewChild D $datumL]
|
|
SetInteger D $childL $val
|
|
|
|
# call setObject func
|
|
XSetDatumPosition D $datumL 2
|
|
|
|
# check that the new child attribute exists and correct
|
|
set currVal [GetInteger D $childL]
|
|
if { ${val} != ${currVal} } {
|
|
puts "Error: TDataStd_Integer attribute value is not expected for datum child"
|
|
}
|
|
|
|
# create tolerance with reserved children
|
|
set TL [XAddGeomTolerance D $L]
|
|
set aTagNumber 19
|
|
for {set i 1} {${i}<${aTagNumber}} {incr i} {
|
|
NewChild D $TL
|
|
}
|
|
|
|
# add tolerance child with attribute
|
|
set childL [NewChild D $TL]
|
|
SetInteger D $childL $val
|
|
|
|
# call setObject func
|
|
XSetToleranceValue D $L 0.5
|
|
|
|
# check that the new child attribute exists and correct
|
|
set currVal [GetInteger D $childL]
|
|
if { ${val} != ${currVal} } {
|
|
puts "Error: TDataStd_Integer attribute value is not expected for tolerance child"
|
|
}
|
|
|
|
# create dimension with reserved children
|
|
set DL [XAddDimension D $L]
|
|
set aTagNumber 19
|
|
for {set i 1} {${i}<${aTagNumber}} {incr i} {
|
|
NewChild D $DL
|
|
}
|
|
|
|
# add dimension child with attribute
|
|
set childL [NewChild D $DL]
|
|
SetInteger D $childL $val
|
|
|
|
# call setObject func
|
|
XSetDimensionValue D $L 0.5
|
|
|
|
# check that the new child attribute exists and correct
|
|
set currVal [GetInteger D $childL]
|
|
if { ${val} != ${currVal} } {
|
|
puts "Error: TDataStd_Integer attribute value is not expected for dimension child"
|
|
}
|