ALCEdge.ElementID

ElementID() As Long

Remarks

Returns the ID of the procedural element in the picture.

Sample:

Sub GetNameOfElement()
Dim zAlcEngine As ALCEngine 'Object from type ALCEngine
Dim zAlcEdge As ALCEdge 'Child object from type ALCEngine

	'Get first procedural element of the project
	Set zAlcEdge = thisProject.ALCEngine.EdgeItem(0)
	'Get name of this procedural element (combielement)
	Debug.Print "Name of element = " & FindElem(zAlcEdge).Name

End Sub

Function FindElem(zAlcEdge As ALCEdge) As Element
Dim i As Integer
Dim zPIC As DynPicture

	'Get picture object
	Set zPIC = thisProject.DynPictures.Item(zAlcEdge.Picture)
	'Enum elements in picture
	For i = 0 To zPIC.Elements.count - 1
		'Check element id
		If zPIC.Elements.Item(i).ID = zAlcEdge.ElementID Then
			'Return Element
			Set FindElem = zPIC.Elements.Item(i)
			Exit Function
		End If
	Next i
End Function

See Also

ALCEdge