mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
29 lines
709 B
Plaintext
29 lines
709 B
Plaintext
# Original bug : hkg60163
|
|
# Date : 16 Sept 98
|
|
|
|
puts "*"
|
|
puts "TODO OCC22810 All:Error in featperform"
|
|
puts "TODO OCC22810 All:Error in fsameparameter"
|
|
puts "TODO OCC22810 All:Error : The feat grid cannot be built."
|
|
|
|
restore [locate_data_file CTO900_hkg60163c.rle] base
|
|
restore [locate_data_file hkg60163_face.rle] cont1
|
|
|
|
## thickness 2mm
|
|
mkoffset off cont1 1 2
|
|
wire wire off_1
|
|
mkplane cont wire
|
|
|
|
explode base face
|
|
#base_143 _152 _167 _169 _170 _171 _173 _174
|
|
copy base_167 funtil
|
|
featprism base cont cont 0 0 1 1 1
|
|
if { [catch { featperform prism result base funtil } ] != 0 } {
|
|
puts "Error in featperform"
|
|
}
|
|
if { [catch { fsameparameter result } ] != 0 } {
|
|
puts "Error in fsameparameter"
|
|
}
|
|
|
|
set square 0
|