Difference between revisions of "LoadExtRef"
From scripting
(Created page with " 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...") |
(No difference)
|
Latest revision as of 07:15, 22 April 2017
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