mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-15 20:17:41 +08:00
28 lines
498 B
Plaintext
28 lines
498 B
Plaintext
puts "============"
|
|
puts "CR26035"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Drawing dimension between point and edge
|
|
#######################################################################
|
|
|
|
vfont add [locate_data_file DejaVuSans.ttf] SansFont
|
|
|
|
vinit View1
|
|
vclear
|
|
vaxo
|
|
|
|
vertex v1 10 -10 0
|
|
vertex v2 10 10 0
|
|
edge e v1 v2
|
|
vdisplay e
|
|
|
|
vpoint p 10 0 10
|
|
|
|
vdimension len -length -shapes p e -plane yoz -font SansFont
|
|
|
|
vfit
|
|
|
|
set only_screen 1
|
|
|