mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a347ef35b4
New sample added for XDE; test cases added for this and some other samples; description of Tcl samples in Overview updated
44 lines
1.2 KiB
Tcl
44 lines
1.2 KiB
Tcl
# Simple sample demonstrating work with assemblies in XDE, and assignment of
|
|
# names and colors to components vs. instances
|
|
|
|
pload MODELING
|
|
pload OCAF
|
|
pload XDE
|
|
|
|
puts "Make a link as assembly made of a pin and two instances of the same nut"
|
|
pcylinder pin 1 10
|
|
pcylinder nut 2 2
|
|
compound nut nut nuts
|
|
explode nuts
|
|
ttranslate nuts_1 0 0 7
|
|
ttranslate nuts_2 0 0 1
|
|
compound pin nuts_1 nuts_2 link
|
|
|
|
puts "Add link assembly in XCAF document, and add names and colors:"
|
|
NewDocument D XCAF
|
|
XAddShape D link
|
|
SetName D [XFindShape D pin] "Pin"
|
|
SetName D [XFindShape D nut] "Nut"
|
|
SetName D [XFindShape D link] "Link"
|
|
SetName D [XFindShape D link]:1 "Pin instance"
|
|
SetName D [XFindShape D link]:2 "Nut instance 1"
|
|
SetName D [XFindShape D link]:3 "Nut instance 2"
|
|
|
|
puts "- Pin will be white"
|
|
XSetColor D [XFindShape D pin] 1 1 1
|
|
puts "- Nut itself will be dark gray"
|
|
XSetColor D [XFindShape D nut] 0.1 0.1 0.1
|
|
puts "- Nut instance #1 will be red"
|
|
XSetColor D [XFindShape D link]:2 1 0 0
|
|
puts "- Nut instance #2 will be green"
|
|
XSetColor D [XFindShape D link]:3 0 1 0
|
|
|
|
puts "Starting DF browser..."
|
|
DFBrowse D
|
|
puts "Expand the document tree to see its structure and assigned names"
|
|
|
|
puts "Showing assembly in 3d view..."
|
|
XShow D
|
|
vfit
|
|
vsetdispmode 1
|