mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
da80ff68f1
Possibility for adding LengthUnit info to XCAF document using special class XCAFDoc_LenghtUnit and XCAFDoc_LenghtUnitTool is implemented. Package UnitsMethods is split: geom methods were placed to new file GeomConvert_Units which is in the toolkit TKXSBase, internal step scale factors was placed to StepData. Updated UnitMethods to convert scale factor to different unit types. Now, XSAlgo::XSAlgo_AlgoContainer is used to update unit info from static interface values. New Draw command "XSetLengthUnit" and "XGetLengthUnit" for set or get XDE attribute. Upgraded tests for STEP, IGES, OBJ, glTF, VRML formats to check area regressing with used unit. Upgraded tests\de test cases to use any units in the "loop back" algorithms.
82 lines
2.1 KiB
Plaintext
82 lines
2.1 KiB
Plaintext
puts "# =============================================================================="
|
|
puts "# 0031382: Data Exchange - BinXCAF should preserve length unit information"
|
|
puts "# =============================================================================="
|
|
|
|
pload DCAF
|
|
|
|
box b 10 20 30
|
|
|
|
catch { Close D }
|
|
catch { Close D1 }
|
|
# check saving value of length unit
|
|
NewDocument D XmlXCAF
|
|
XAddShape D b 0
|
|
XSetLengthUnit D in
|
|
XSave D ${imagedir}/${casename}.xml
|
|
XOpen ${imagedir}//${casename}.xml D1
|
|
set LU [XGetLengthUnit D1]
|
|
if {$LU != "in"} {
|
|
puts "Error: Length unit is not coincided with given1"
|
|
}
|
|
Close D
|
|
Close D1
|
|
NewDocument D BinXCAF
|
|
XAddShape D b 0
|
|
XSetLengthUnit D m
|
|
XSave D ${imagedir}/${casename}.xbf
|
|
XOpen ${imagedir}//${casename}.xbf D1
|
|
set LU [XGetLengthUnit D1]
|
|
if {$LU != "m"} {
|
|
puts "Error: Length unit is not coincided with given2"
|
|
}
|
|
Close D
|
|
Close D1
|
|
|
|
# if length unit is undefined in the document value from session
|
|
# must be set to document before saving it to xml
|
|
NewDocument D XmlXCAF
|
|
param xstep.cascade.unit 5
|
|
XAddShape D b 0
|
|
XSave D ${imagedir}/${casename}.xml
|
|
set LU [XGetLengthUnit D]
|
|
if {$LU == "mm"} {
|
|
puts "Error: Length unit is not coincided with given3"
|
|
}
|
|
XOpen ${imagedir}//${casename}.xml D1
|
|
set LU [XGetLengthUnit D1]
|
|
if {$LU == "stat.mile"} {
|
|
puts "Length unit is coincided with given"
|
|
} else {
|
|
puts "Error: Length unit is not coincided with given4"
|
|
}
|
|
Close D
|
|
Close D1
|
|
|
|
# if length unit is undefined in the document value from session
|
|
# must be set to document before saving it to xbf
|
|
NewDocument D BinXCAF
|
|
param xstep.cascade.unit 7
|
|
XAddShape D b 0
|
|
XSave D ${imagedir}/${casename}.xbf
|
|
set LU [XGetLengthUnit D]
|
|
if {$LU == "km"} {
|
|
puts "Length unit is coincided with given"
|
|
} else {
|
|
puts "Error: Length unit is not coincided with given"
|
|
}
|
|
XOpen ${imagedir}//${casename}.xbf D1
|
|
set LU [XGetLengthUnit D1]
|
|
if {$LU == "km"} {
|
|
puts "Length unit is coincided with given"
|
|
} else {
|
|
puts "Error: Length unit is not coincided with given"
|
|
}
|
|
|
|
# return to default global unit
|
|
param xstep.cascade.unit 2
|
|
file delete ${imagedir}//${casename}.xbf
|
|
file delete ${imagedir}//${casename}.xml
|
|
|
|
Close D
|
|
Close D1
|