Place Text through VBA

Unknown said:

Your Property needs a Getter!

A VB/VBA class property lets you assign data to an object or get data from an object.  You can write either or both properties, although it's usual to write both.

• A class having only a Set or Let property is write-only
• A class having only a Get property is read-only
• A class having both Get and Set or Let properties is read-write

Thanks Jon, much appreciated. I'm still a relative newbie to all this. Its a hell of a learning curve!

Its skipped over that part but now it comes up with another message.

Compile error:

Procedure declaration does not match description of event or procedure having the same name

Its highlighted the ...

Sub IPrimitiveCommandEvents_Datapoint(point As Point3d, oView As View)

Unknown said:

Sub IPrimitiveCommandEvents_Datapoint(point As Point3d, oView As View)

The exact signature is

Sub IPrimitiveCommandEvents_Datapoint(point As Point3d, ByVal oView As View)

Is the compiler happier with that?

Happier :)

---------------------------

Microsoft Visual Basic

---------------------------

Compile error:

Object module needs to implement 'Keyin' for interface 'IPrimitiveCommandEvents'

has highlighted

Implements IPrimitiveCommandEvents

Unknown said:

Object module needs to implement 'Keyin' for interface 'IPrimitiveCommandEvents'

In VB/VBA, a class that Implements an Interface must have all the subroutines of that Interface, even when they do nothing.  In other words, you must write all the subroutines required by IPrimitiveCommandEvents.  Fortunately, the IDE provides some assistance:

1. Top-left is a combobox having a list of classes and interfaces in your current project
   1. Choose IPrimitiveCommandEvents
2. Top-right is a list of procedures for the current class or interface
   1. As you select each procedure, VBA writes a skeleton for that procedure
   2. Repeat and rinse for each procedure

You must have Procedures for all Procedures defined in your Interface.

(Just click them all once in our VBA IDE.)

You guys are absolute legends!

All working. Many thanks for helping out!

Just a bit further to this... the client has asked if its possible to show a preview of the text on the screen (i personally think its not needed but hey they pay the bills so least i can do is ask)

In the above, I know that VBA doesn't actually create the text element until the datapoint is clicked, so i'm not sure if this is possible.

They basically want to be able to see where the text is going to be placed, so much like the text already predefined at the cursor just waiting for a insertion point.

Any ideas?

Thanks again!

Hi Rob,

you can display dynamic elements when Primitive Command is active. The right place to do it is Dynamics methods in IPrimitiveCommandEvents, because this method is called everytime the cursor is moved.

You can check for example Line Element Creation Command example in MicroStation VBA help to see how to do it.

If there is no dynamic, Transient Elements can be used to display elements that don't exist in design file.

With regards,

 Jan

Thanks Jan. I have had a look at the example and it was helpful but still couldn't give the result the client wants.

Below is the code that i have pieced together from the example and also from what the guys helped me with above. The exact code below, essentially work the same as before

If i add another "ActiveModelReference.AddElement otext" into the Dynamics section, then its achieves sort of what i'm after, where the text is placed at the cursor, however everytime the mouse is moved it will place the text... ending up with hundreds of text elements on the design.

Is there anything from below that could be changed to get the result the client wants?

I have seen a few programs (i think it was part of an MDL) that could do exactly as im after so i assume this is possible?

Implements IPrimitiveCommandEvents

Private m_strText As String
Private m_atPoints(0 To 1) As Point3d
Private m_nPoints As Integer

Public Property Let Text(s As String)
  m_strText = s
End Property

Sub IPrimitiveCommandEvents_Datapoint(Point As Point3d, ByVal oView As View)

    If m_nPoints = 0 Then
        CommandState.StartDynamics
        m_atPoints(0) = Point
        m_nPoints = 1
        ShowPrompt "Place end point"
    ElseIf m_nPoints = 1 Then
        m_atPoints(1) = Point
        Dim otext As TextElement
        Set otext = CreateTextElement1(Nothing, m_strText, Point, Matrix3dIdentity)
        ActiveModelReference.AddElement otext
        otext.Redraw msdDrawingModeNormal
        m_atPoints(0) = m_atPoints(1)
    End If

End Sub


Private Sub IPrimitiveCommandEvents_Dynamics(Point As Point3d, ByVal View As View, ByVal DrawMode As MsdDrawingMode)

    If m_nPoints = 1 Then
        m_atPoints(1) = Point
        Dim otext As TextElement
        Set otext = CreateTextElement1(Nothing, m_strText, Point, Matrix3dIdentity)
        otext.Redraw msdDrawingModeNormal
    End If
End Sub

Private Sub IPrimitiveCommandEvents_Keyin(ByVal Keyin As String)

End Sub

Private Sub IPrimitiveCommandEvents_Reset()
    CommandState.StartPrimitive Me
    m_nPoints = 0
End Sub

Private Sub IPrimitiveCommandEvents_Start()
    ShowPrompt "Select insertion point for text"
End Sub