LoadExtRef

From scripting
Jump to: navigation, search
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