|
ED
|
avaliable
|
RT
|
avaliable
|
This method returns a procedural element (generator, source, switch, disconnector, drain, transformator, link) from the project. Such an element is from type ALCEdge.
Sub GetEdgeItem() Dim zAlcEngine As ALCEngine 'Object from type ALCEngine Dim zAlcEdge As ALCEdge 'Child object from type ALCEngine 'Get ALCEngine data from the project Set zAlcEngine = MyWorkspace.ActiveDocument.ALCEngine 'Get the first ALC procedural element of the project Set zAlcEdge = zAlcEngine.EdgeItem(0) MsgBox "Element is in picture = " & zAlcEdge.Picture End Sub