mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
82 lines
1.7 KiB
Plaintext
82 lines
1.7 KiB
Plaintext
puts "=========="
|
|
puts "OCC21707"
|
|
puts "=========="
|
|
puts ""
|
|
##############################################################
|
|
# Selection of Vertex returns Compound of vertexes
|
|
##############################################################
|
|
|
|
NewDocument D BinOcaf
|
|
isos 12
|
|
NewCommand D
|
|
AddDriver D PntXYZ PntRLT Line3D Attach
|
|
set Pnt1 [AddPoint D 0 0 0]
|
|
ComputeFun D $Pnt1:1
|
|
GetShape D $Pnt1:1:2 P1
|
|
|
|
set Pnt2 [AddPoint D 0 200 0]
|
|
ComputeFun D $Pnt2:1
|
|
set Pnt3 [AddPoint D 200 200 0]
|
|
ComputeFun D $Pnt3:1
|
|
set Pnt4 [AddPoint D 200 0 0]
|
|
ComputeFun D $Pnt4:1
|
|
GetShape D $Pnt2:1:2 P2
|
|
GetShape D $Pnt3:1:2 P3
|
|
GetShape D $Pnt4:1:2 P4
|
|
|
|
NewCommand D
|
|
set Lin2 [ AddLine3D D 1 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
|
|
ComputeFun D $Lin2:1
|
|
GetShape D $Lin2:1:2 L1
|
|
|
|
NewCommand D
|
|
AddDriver D Prism Box PTxyz
|
|
set Prism [AddPrism D $Lin2 300 1]
|
|
ComputeFun D $Prism:1
|
|
GetShape D $Prism:1:2 Pr
|
|
|
|
NewCommand D
|
|
set B1 [AddBox D 400 140 600]
|
|
ComputeFun D $B1:1
|
|
GetShape D $B1:1:2 Box
|
|
|
|
NewCommand D
|
|
set FTr1 [PTranslateDXYZ D $B1 -100 -20 -100]
|
|
ComputeFun D $FTr1
|
|
GetShape D $B1:2:2 Box
|
|
|
|
NewCommand D
|
|
AddDriver D Comm Cut Fuse
|
|
set Com1 [AddCommon D $Prism $B1]
|
|
ComputeFun D $Com1
|
|
GetShape D $Com1:2 Pr
|
|
|
|
NewCommand D
|
|
explode Pr E
|
|
AddDriver D Attach Cyl
|
|
set Sel1 [AttachShape D Pr_6 ${Prism} ${Prism} 0]
|
|
set Cyl [AddCyl D 70 515 ${Sel1}]
|
|
ComputeFun D $Cyl:1
|
|
GetShape D $Cyl:1:2 CylS
|
|
|
|
NewCommand D
|
|
set FTr1 [PTranslateDXYZ D $Cyl -100 200 170]
|
|
ComputeFun D $FTr1
|
|
GetShape D $Cyl:2:2 CylS
|
|
|
|
set Cut1 [AddCut D $Prism $Cyl]
|
|
ComputeFun D $Cut1
|
|
GetShape D $Cut1:2 Pr
|
|
don Pr
|
|
explode Pr V
|
|
don Pr
|
|
set Sel8 [AttachShape D Pr_8 ${Prism} ${Prism} 0]
|
|
set Sel11 [AttachShape D Pr_10 ${Prism} ${Prism} 0]
|
|
|
|
GetShape D $Cut1:2 result
|
|
|
|
checknbshapes result -vertex 10
|
|
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|
|
|