Hi,
example:
'Suboccurrence from Reference:
'Save the Way with Names of Occurrences in WayNames List
'from down Referenc to Top level
do
if TypeOf Reference.immediateParent is Occurrence then
'The TopLevel
WayNames.Add(Reference.immediateParent.Name)
exit do
else
WayNames.Add(Reference.immediateParent.Object.Name)
Reference=Reference.immediateParent
end if
Loop
'The Way from Occurrence to Suboccurrence with saved names:
object=Occurrences.Item(WayNames(WayNames.Count-1))
for i=way.Names.count-2 to 0
object=object.suboccurrences.item(WayNames(i))
next i
suboccurrence=object
---------------------------------------------------------------------------------------
For Reference from Suboccurrence you must Create a Reference in Loop with Assembly.CreateReference(...)
from down to Top Level Reference.
Regards
JR |