1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
# begin
if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
pload TOPTEST
}
proc CreateBinDoc {} {
global imagedir casename
# Create binary document
NewDocument DocBin BinOcaf
# Fill document by box
box b 1 1 1
SetShape DocBin 0:1 b
# Save document
set bDoc "${imagedir}/$casename.cbf"
SaveAs DocBin $bDoc
# Close document
Close DocBin
return $bDoc
}
proc CreateXmlDoc {} {
global imagedir casename
# Create xml document
NewDocument DocXml XmlOcaf
# Fill document by box
box b 1 1 1
SetShape DocXml 0:1 b
# Save document
set xDoc "${imagedir}/$casename.xml"
SaveAs DocXml $xDoc
# Close document
Close DocXml
return $xDoc
}
|
