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
