mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-27 16:00:53 +08:00
ab1f458034
XDisplay - added new command displaying XDE document in ViewerTest map of object:
> XDisplay Doc [label1 [label2 [...]]] [-explore {on|off}] [-docPrefix {on|off}] [-names {on|off}]
> [-noupdate] [-dispMode Mode] [-highMode Mode]
vstate - added NULL checks.
vdisplay now prints error on attempt to specify unsupported display mode.
verase, vremove now raise Tcl exception on attempt to hide non-existing object.
verase, vremove, vdir now accept name masks like "verase b*".
vremove and vdir output is now consistent to verase command (space-separated list of removed objects).
38 lines
733 B
Plaintext
38 lines
733 B
Plaintext
puts "===================================================================="
|
|
puts "OCC28162: Draw Harness - eliminate usage of deprecated Local Context"
|
|
puts "Select 2 edges or vertices"
|
|
puts "===================================================================="
|
|
|
|
vclear
|
|
vinit
|
|
|
|
box b 10 20 30
|
|
vdisplay b
|
|
vfit
|
|
|
|
set shift 1
|
|
|
|
# Create an identic relation from 2 edges.
|
|
#vremove rfaces
|
|
vselmode b 4 0
|
|
vselmode b 2 1
|
|
|
|
vselect 87 170
|
|
vselect 165 170 $shift
|
|
|
|
vrelation redges -identic
|
|
|
|
vdump $imagedir/${casename}_edges.png
|
|
|
|
# Create an identic relation from 2 vertices.
|
|
vremove redges
|
|
vselmode b 2 0
|
|
vselmode b 1 1
|
|
|
|
vselect 160 130 170 140
|
|
vselect 240 0 250 10 $shift
|
|
|
|
vrelation rvertices -identic
|
|
|
|
vdump $imagedir/${casename}_vertices.png
|