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