Add note to Dimension VBA (Beginner)

Can you tell us what version of microstation you are using?
Are you unsure of how to move the listbox variable to some other sub/function or is it the mechanic of actually inserting the variable text into an existing dimesion?

I'm using V8i.

Unknown said:

Are you unsure of how to move the listbox variable to some other sub/function or is it the mechanic of actually inserting the variable text into an existing dimesion?

Exactly that!

I forgot to fully edit the quote. I'm not sure how to move the listbox variable to another function and insert it into an existing dimension.

I'm not that familiar with user forms, but that is a core functionality of vba, not unique to microstation. You should be able to find plenty of answers to that part of your query by doing a google search. As to inserting into existing dimensions, I have a small routine I have used for years you can play with. I select the dimensions I want to append, run the marco, & it inserts "ARC = " before the dimension value.

HTH...

Sub ArcEquals()

Dim oDim As DimensionElement
Dim ee As ElementEnumerator
Dim Gar As String
Dim segCount As Integer
Dim i As Long
Dim msg As String

On Error Resume Next

Set ee = ActiveModelReference.GetSelectedElements

If ee Is Empty Then
    msg = "No dimensions were selected."
    MessageCenter.AddMessage msg
End If

Gar = "ARC= *"

Do While ee.MoveNext
    If ee.Current.IsDimensionElement Then
    Set oDim = ee.Current 
     segCount = oDim.SegmentsCount 'returns number of segments of a dimension chain
        For i = 1 To segCount
            oDim.PrimaryText(i) = Gar           
            oDim.Rewrite
            oDim.Redraw
        Next i
    End If
Loop

End Sub

Hi Steve,

small comment:

Unknown said:

oDim.Redraw

From MicroStation V8 XM Edition (where enhancement like display priority etc. were introduced), no element redraw is required anymore. I see it in many VBA code posted here, but in fact there are only a few situations where VBA code has to take care about element redraw (e.g. during dynamic).

If element is rewritten, MicroStation takes care about redraw automatically if it's necessary.

With regards,

  Jan

Hi Steve,

small comment:

Unknown said:

oDim.Redraw

From MicroStation V8 XM Edition (where enhancement like display priority etc. were introduced), no element redraw is required anymore. I see it in many VBA code posted here, but in fact there are only a few situations where VBA code has to take care about element redraw (e.g. during dynamic).

If element is rewritten, MicroStation takes care about redraw automatically if it's necessary.

With regards,

  Jan

Thank you for all the help Steve. I think this will get me on the right path.

Hi Jan,
Yes, I have not used .redraw in any of my newer scripts, but I didn't know it was still useful for dynamics, so thank you for pointing that out.

How do I mark your response as the answer?