mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
21 lines
543 B
Plaintext
21 lines
543 B
Plaintext
puts "# ====================================================================="
|
|
puts "# 0026925: Data Exchange - Exceptions can be raised if assembly is empty"
|
|
puts "# ====================================================================="
|
|
puts ""
|
|
|
|
pload DCAF
|
|
XNewDoc D
|
|
XNewShape D
|
|
box a 0 0 0 10 10 10
|
|
XAddShape D a 0
|
|
ttranslate a 10 0 0
|
|
XAddComponent D 0:1:1:1 a
|
|
XGetShape s0 D 0:1:1:1
|
|
checkshape s0 l
|
|
XUpdateAssemblies D
|
|
XGetShape s1 D 0:1:1:1
|
|
|
|
checkshape s1 r
|
|
checknbshapes s1 -vertex 8 -edge 12 -shape 35 -face 6 -solid 1 -shell 1
|
|
|
|
Close D |