TransientElement Error

could any one can help me with below error in VBA?

code:

Sub ShowTransientElementsold()
    Dim tec1 As TransientElementContainer
    Dim ele1 As Element
    Dim flags As MsdTransientFlags
    Dim eleEnum As ElementEnumerator
    Set eleEnum = ActiveModelReference.GraphicalElementCache.Scan
    Set tec1 = CreateTransientElementContainer1(Nothing, flags, msdView1 + msdView4, msdDrawingModeHilite)
   
    Do While eleEnum.MoveNext
    Set ele1 = eleEnum.Current
    tec1.AppendCopyOfElement ele1
    Loop
 
End Sub

 

error image :

 

 

i'm using V8i select series 2

 

regards,

vinoth

 

regards,

vinoth

Parents Reply Children
No Data