|
ED
|
avaliable
|
RT
|
avaliable
|
This method returns a node from the project. Such an element is from object type "ALCNode".
Sub NodeItem() Dim zAlcEngine As ALCEngine 'Object from type ALCEngine Dim zAlcNode As ALCNode 'Child object from type ALCEngine 'Get ALCEngine data from the project Set zAlcEngine = MyWorkspace.ActiveDocument.ALCEngine 'Get the first node of the picture Set zAlcNode = zAlcEngine.NodeItem(0) 'Returns the number of procedural elements which are connected to the line element MsgBox "Number of edges = " & zAlcNode.EdgeCount End Sub