mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
22 lines
311 B
Plaintext
Executable File
22 lines
311 B
Plaintext
Executable File
puts "==========="
|
|
puts "OCC282"
|
|
puts "==========="
|
|
|
|
pload QAcommands
|
|
|
|
NewDocument D MDTV-Standard
|
|
|
|
circle acirc 0 0 0 20
|
|
mkedge anEdge acirc
|
|
wire aWire anEdge
|
|
|
|
plane pl 0 0 1
|
|
mkface aface pl aWire
|
|
|
|
NameImportShape D 0:1 aface
|
|
|
|
if [catch { CheckNaming D 0:2 1 Label 0:1 1 1 1 } res] {
|
|
puts "OCC282: Error"
|
|
}
|
|
|