mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-22 03:16:39 +08:00
41 lines
1.0 KiB
Plaintext
Executable File
41 lines
1.0 KiB
Plaintext
Executable File
puts "==========="
|
|
puts "OCC672 "
|
|
puts "==========="
|
|
########################################################################################
|
|
# Wrong visualization of 2d dimentions
|
|
# The following list of problems:
|
|
# 1) The length dimension value should always be aligned to the middle of
|
|
# the dimension line
|
|
# 2) The angular dimension value should always be aligned to the middle of
|
|
# the dimension line
|
|
# 3) All dimension values (text) must be aligned horizontally or vertically only.
|
|
# 4) All dimension lines must be bound with properly sized arrows.
|
|
########################################################################################
|
|
puts "Test Angle "
|
|
puts "==========="
|
|
|
|
set x1 0
|
|
set y1 0
|
|
set x2 -200
|
|
set y2 100
|
|
set x3 -200
|
|
set y3 0
|
|
|
|
set TH -7.
|
|
set TV 35.
|
|
set txtAngle 0.
|
|
|
|
set aText "ANGLE"
|
|
set aTxtScale 4.0
|
|
set aRadius 150
|
|
set anArrAngle 30
|
|
set anArrLength 10.0
|
|
|
|
v2dinit
|
|
|
|
OCC672_Angle $x1 $y1 $x2 $y2 $x3 $y3 $aRadius $aText $aTxtScale $anArrAngle $anArrLength $txtAngle $TH $TV
|
|
|
|
v2dfit
|
|
|
|
set only_screen2d 1
|