0ec06a2fa866df8433a19be2b25be202387ea599
[occt.git] / samples / tcl / xde.tcl
1 # Simple sample demonstrating work with assemblies in XDE, and assignment of 
2 # names and colors to components vs. instances
3
4 pload MODELING
5 pload OCAF
6 pload XDE
7
8 puts "Make a link as assembly made of a pin and two instances of the same nut"
9 pcylinder pin 1 10
10 pcylinder nut 2 2
11 compound nut nut nuts
12 explode nuts
13 ttranslate nuts_1 0 0 7
14 ttranslate nuts_2 0 0 1
15 compound pin nuts_1 nuts_2 link
16
17 puts "Add link assembly in XCAF document, and add names and colors:"
18 NewDocument D XCAF
19 XAddShape D link
20 SetName D [XFindShape D pin] "Pin"
21 SetName D [XFindShape D nut] "Nut"
22 SetName D [XFindShape D link] "Link"
23 SetName D [XFindShape D link]:1 "Pin instance"
24 SetName D [XFindShape D link]:2 "Nut instance 1"
25 SetName D [XFindShape D link]:3 "Nut instance 2"
26
27 puts "- Pin will be white"
28 XSetColor D [XFindShape D pin] 1 1 1
29 puts "- Nut itself will be dark gray"
30 XSetColor D [XFindShape D nut] 0.1 0.1 0.1
31 puts "- Nut instance #1 will be red"
32 XSetColor D [XFindShape D link]:2 1 0 0
33 puts "- Nut instance #2 will be green"
34 XSetColor D [XFindShape D link]:3 0 1 0
35
36 puts "Starting DF browser..."
37 DFBrowse D
38 puts "Expand the document tree to see its structure and assigned names"
39
40 puts "Showing assembly in 3d view..."
41 XShow D
42 vfit
43 vsetdispmode 1