mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-10 09:30:48 +08:00
a15fed9b86
- Moved tcl samples to resource folder. - Clean up cmake from samples related settings. - Removed CSharp samples from the repository. - Removed MFC samples from the repository. - Removed Qt samples from the repository. - Removed Inspector samples from the repository. - Removed glwin samples from the repository. - Removed webgl samples from the repository. - Removed xaml samples from the repository. - Removed Java samples from the repository.
48 lines
1.3 KiB
Tcl
48 lines
1.3 KiB
Tcl
# Simple sample demonstrating work with assemblies in XDE, and assignment of
|
|
# names and colors to components vs. instances
|
|
|
|
#Category: XDE
|
|
#Title: Work with assemblies, colors etc. in XDE
|
|
|
|
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] WHITE
|
|
puts "- Nut itself will be dark gray"
|
|
XSetColor D [XFindShape D nut] GRAY10
|
|
puts "- Nut instance #1 will be red"
|
|
XSetColor D [XFindShape D link]:2 RED
|
|
puts "- Nut instance #2 will be green"
|
|
XSetColor D [XFindShape D link]:3 GREEN
|
|
|
|
puts "Starting DF browser..."
|
|
DFBrowse D
|
|
puts "Expand the document tree to see its structure and assigned names"
|
|
|
|
puts "Showing assembly in 3d view..."
|
|
vclear
|
|
vinit View1
|
|
XDisplay -dispMode 1 D -explore
|
|
vfit
|