mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-12 02:40:22 +08:00
18 lines
389 B
Plaintext
18 lines
389 B
Plaintext
puts "============"
|
|
puts "0032821: DEWrapper - Implementation of a common toolkit for importing and exporting CAD files"
|
|
puts "============"
|
|
puts ""
|
|
|
|
catch { Close D_First }
|
|
|
|
ReadObj D_First ${filename}
|
|
XGetOneShape S_First D_First
|
|
|
|
set file_path ${imagedir}/${casename}.ply
|
|
|
|
writefile S_First $file_path -conf "provider.PLY.OCC.author: PLY_AUTHOR "
|
|
|
|
file delete $file_path
|
|
|
|
Close D_First
|