LoadExtRef
From scripting
Function LoadExtRef(OldObj As Variant, ExtRefSet As HybridBody) As Variant If MySel.Count <> 0 Then MySel.Clear End If MySel.Add OldObj MySel.Copy If MySel.Count <> 0 Then MySel.Clear End If MySel.Add ExtRefSet 'DRVExtRefSet MySel.PasteSpecial "CATPrtResult" If MySel.Count <> 0 Then MySel.Clear End If Dim ExtRefMainSurf Set ExtRefMainSurf = ExtRefSet.HybridShapes.Item(ExtRefSet.HybridShapes.Count) Set LoadExtRef = ExtRefMainSurf End Function