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
I don't know what's going on. I copied your code into a MicroStation V8i SS3 VBA project. It compiled without error.
Have you written other VBA code for MicroStation? Do your other projects compile and run without error?
Regards, Jon Summers LA Solutions
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