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
  • Thanks Jon for the comments. i had written other vba applications and there was no problem while compiling. i have doubt , i'm missing any of the references. because while typing "Dim tec1 as ", the TransientElementContainer is not listing for selection. this code i prepared with inormation through net search. Also, in objectbrowser i searched for "TransientElementContainer" , but 'no items found'.

     

    Vinoth Joseph

    ATKINS

    Bangalore, India

Children
No Data