7.APPENDIX OPERATION B-82604EN/01
- 58 -
In OnScreenOpen( ), ROBOGUIDE is called, is displayed, and open
the robot system layout.
If robgraph Is Nothing Then
Set robgraph = CreateObject("RoboGuidecim.Core")
End If
First, ROBOGUIDE Object “robgraph” is created.
robgraph.show "cimplicity_demo"
ROBOGUIDE opens the environment
C:/ROBOGUIDE/cimplicity_demo.
robgraph.caption="Cimplicity Demo Layout"
The title of ROBOGUIDE windows is set Cimplicity Demo Layout.
robgraph.move pleft, ptop, pwidth, pheigh
The size of ROBOGUIDE window is changet to (pwidth, pheight).
And the ROBOGUIDE window is moved to (pleft, ptop).
(The values of pwidth, pheight, pleft, and ptop are already given in
other lines.)
Set objLayout = robgraph.layouts.Item("layout1")
objLayout.Selected = True
ROBOGUIDE opens the robot system layout Layout1.
Set objRobot1 = objLayout.PlacedObjects.Item("R-2000i_165F")
Set objRobot2 = objLayout.PlacedObjects.Item("R-2000i_165CF")
Set objRobot3 = objLayout.PlacedObjects.Item("R-2000i_165R")
To Next Page
Loading...