mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-10 12:28:17 +08:00
32 lines
522 B
Plaintext
32 lines
522 B
Plaintext
puts "============"
|
|
puts "CR26035"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Dimension drawing between two vertices
|
|
#######################################################################
|
|
|
|
vfont add [locate_data_file DejaVuSans.ttf] SansFont
|
|
|
|
vinit View1
|
|
vclear
|
|
vaxo
|
|
|
|
set x1 10
|
|
set y1 0
|
|
set z1 0
|
|
|
|
set x2 10
|
|
set y2 0
|
|
set z2 10
|
|
|
|
vertex v1 $x1 $y1 $z1
|
|
vertex v2 $x2 $y2 $z2
|
|
|
|
vdimension len -length -shapes v1 v2 -plane yoz -font SansFont
|
|
|
|
vfit
|
|
|
|
set only_screen 1
|
|
|