Quantcast
Channel: MicroStation Programming Forum - Recent Threads
Viewing all articles
Browse latest Browse all 7260

RE: [V8i - VBA ] Text without textstyle shows active text style property

$
0
0
Sub macro2()
    Dim ee As ElementEnumerator
    Set ee = ActiveModelReference.Scan()
    Do While ee.MoveNext
        If ee.Current.IsTextElement Then
            Debug.Print ee.Current.AsTextElement.TextStyle.Name
        End If
    Loop
End Sub

When the active text setting is set to "None" textstyle.Name is correct

When the active text setting is set to an existing active Design file textStyle and the text do not have any text style then textStyle.name is active TextStyle Name which is incorrect


Viewing all articles
Browse latest Browse all 7260

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>