Convert Regular Text to Data Field....

Unknown said:

Private Sub ILocateCommandEvents_Accept(ByVal Element As Element, Point As Point3d, ByVal View As View)
    ...
    ActiveModelReference.UnselectAllElements
    CommandState.StartDefaultCommand
   
End Sub

You're mixing MicroStation idioms, which will confuse your user.

1. It doesn't make sense to call UnselectAllElements from a Locate function.  It certainly is not expected behaviour
2. MicroStation commands continue to operate until another command is called.  Deliberately terminating your command with StartDefaultCommand will surprise users

Thank you all for your input so far, I appreciate all form of help or criticism....

We have a client that wants their drawings to be repaired while doing the engineering on them as well. Some of their other consultants have changed the borders & terminal block info. by using the word processor to edit data fields instead of the data field editor. That caused all the data fields to turn into regular text, so when we received the drawings they want us to change them back into data fields. I want to be able to just click on the text & then it would auto change into data fields while still containing the existing text info. These changes can take some time when there are over 100 individual lines of text per drawing. So if I used the Text Edit Dialog box (Not Word Processor) the text would look like this.....regular text =  BLK            data field text =  <<BLK>>

I hope this clears up what I am trying to accomplish.

Ok, so I still figured it out. I have come close to the final code but I need it to restart after I converted the first text. Here is the code I have so far......

Module1...........................

Sub tstLCE_Text()

   CommandState.StartLocate New LCE_Text

   ShowCommand "Convert to DF"

   ShowPrompt "Select Text to be Capitalized"

End Sub

Sub Macro3()

   Dim startPoint As Point3d

   Dim point As Point3d, point2 As Point3d

   Dim lngTemp As Long

'   Start a command

   CadInputQueue.SendCommand "WORDPROCESSOR EDIT TEXT"

   CadInputQueue.SendDataPoint point, 1

   CommandState.StartDefaultCommand

End Sub

ClassModule............

LCE_Text

Implements ILocateCommandEvents

Private SelElement As Element

Private Sub ILocateCommandEvents_Accept(ByVal Element As Element, point As Point3d, ByVal View As View)

   Dim elemText As TextElement

   Set elemText = Element

   elemText.Redraw msdDrawingModeErase

   elemText.Text = "<<" & (elemText.Text) & ">>"

   elemText.Redraw msdDrawingModeNormal

   elemText.Rewrite

   'activates the text edit command

   CadInputQueue.SendKeyin "vba run macro3"

   ActiveModelReference.UnselectAllElements

   CommandState.StartDefaultCommand

End Sub

Private Sub IlocateCommandEvents_Cleanup()

End Sub

Private Sub IlocateCommandEvents_Dynamics(point As Point3d, ByVal View As View, ByVal DrawMode As MsdDrawingMode)

End Sub

Private Sub IlocateCommandEvents_LocateFailed()

   If SelElement Is Nothing = False Then

       ActiveModelReference.UnselectAllElements

       Set SelElement = Nothing

   End If

   ShowCommand "CAP Text"

   ShowPrompt "Select Text to be Capitalized"

End Sub

Private Sub IlocateCommandEvents_LocateFilter(ByVal Element As Element, point As Point3d, Accepted As Boolean)

   Accepted = False

   If Element.IsTextElement = True Then

       Set SelElement = Element

       Accepted = True

       ActiveModelReference.SelectElement Element, True

   ShowCommand "Convert"

   ShowPrompt "Click to Confirm"

   End If

End Sub

Private Sub ILocateCommandEvents_LocateReset()

   CommandState.StartDefaultCommand

End Sub

Private Sub ILocateCommandEvents_Start()

End Sub

Unfortunately this only works if the "text dialog box" is enabled in "Preferences" & NOT the "Word Processor". I would take any suggestions on how to fix this. Thank in advance...

Here is some code illustrating how you can change the default text editor from MicroStation VBA.

Public Const TEXTEDIT_DEFAULT As Long = 0           ' Default dialog editor
Public Const TEXTEDIT_COMMANDWINDOW As Long = 2     ' Command window editor
Public Const TEXTEDIT_WORDPROCESSOR As Long = 4     ' Wordproc editor

Sub TEST_TextEditorGet()
    Dim sEditorPref As String
    Select Case TextEditorGet()
    Case TEXTEDIT_DEFAULT
        sEditorPref = "Default Dialog Editor"
    Case TEXTEDIT_COMMANDWINDOW
        sEditorPref = "Command Window Editor"
    Case TEXTEDIT_WORDPROCESSOR
        sEditorPref = "Word Processor Editor"
    Case Else
        sEditorPref = "Unknown"
    End Select
    Debug.Print "Current text editor is: " + sEditorPref
End Sub

Public Function TextEditorGet() As Long
    TextEditorGet = GetCExpressionValue("userPrefsP->textEditorStyle", "USERPREF")  ' A.K.A. "savePrefs.textEditorStyle"
End FunctionSub TEST_TextEditorSet()
    'TextEditorSet (TEXTEDIT_DEFAULT)
    TextEditorSet (TEXTEDIT_WORDPROCESSOR)
End Sub

Public Function TextEditorSet(lEditorPref As Long)
    SetCExpressionValue "userPrefsP->textEditorStyle", lEditorPref, "USERPREF"      ' A.K.A. "savePrefs.textEditorStyle"
End Function

Thank you for your comments... I have one more question... I know my code may be bulky. Is there another way to produce the same outcome as what I wrote? (See code below).... This code will take any single line text & turn it into EDF text without modifying  the justification...I figured out how to get this to let me keep selecting text after the first selection is converted but I think it is more of a cheat. I would like to have a better understanding of how it should be done but all I have is a book on basics & how much time I can spend researching on the internet. Thanks again for your input. All is appreciated.

Module1:

Sub tstLCE_Text()
    CommandState.StartLocate New LCE_Text
    ShowCommand "Convert to DataField"
    ShowPrompt "Select Text to be Converted"
   
End Sub

____________________________________________________

Sub Macro3()
    Dim startPoint As Point3d
    Dim point As Point3d, point2 As Point3d
    Dim lngTemp As Long

'   Start a command
    CadInputQueue.SendCommand "WORDPROCESSOR EDIT TEXT"
    CadInputQueue.SendDataPoint point, 1
   
    CadInputQueue.SendKeyin "vba run tstLCE_Text"
    
 End Sub

_______________________________________________________

Class Module: (LCE_Text):

Implements ILocateCommandEvents
Private SelElement As Element

__________________________________

Private Sub ILocateCommandEvents_Accept(ByVal Element As Element, point As Point3d, ByVal View As View)
    Dim elemText As TextElement
    Set elemText = Element
        elemText.Redraw msdDrawingModeErase
        elemText.Text = "<<" & (elemText.Text) & ">>"
        elemText.Redraw msdDrawingModeNormal
        elemText.Rewrite
    
        'activates the text edit command
        CadInputQueue.SendKeyin "vba run macro3"
   
   
    ActiveModelReference.UnselectAllElements

End Sub

____________________________________

Private Sub IlocateCommandEvents_Cleanup()

End Sub

____________________________________

Private Sub IlocateCommandEvents_Dynamics(point As Point3d, ByVal View As View, ByVal DrawMode As MsdDrawingMode)

End Sub

_____________________________________

Private Sub IlocateCommandEvents_LocateFailed()
    If SelElement Is Nothing = False Then
        ActiveModelReference.UnselectAllElements
        Set SelElement = Nothing
    End If
    ShowCommand "Convert to DataField"
    ShowPrompt "Select Text to be Converted"
   
End Sub

_______________________________________

Private Sub IlocateCommandEvents_LocateFilter(ByVal Element As Element, point As Point3d, Accepted As Boolean)
    Accepted = False
    If Element.IsTextElement = True Then
        Set SelElement = Element
        Accepted = True
        ActiveModelReference.SelectElement Element, True
    ShowCommand "Convert"
    ShowPrompt "Click to Confirm"
    End If
   
End Sub

__________________________________________

Private Sub ILocateCommandEvents_LocateReset()
   
    CommandState.StartDefaultCommand
   
End Sub

__________________________________________

Private Sub ILocateCommandEvents_Start()
   

End Sub

I need to do this as well. did you fin a way to do it ?

Hi Arian,

please, do not continue in 7 years old discussion!

When you have similar question (but probably for another product version), create a new question. And of course, read and follow the forum best practices.

Regards,

  Jan

Arian Morell said:

I need to do this as well

In which version (e.g. v10.x.y.z) of MicroStation or other product?

Arian Morell said:

I need to do this as well

In which version (e.g. v10.x.y.z) of MicroStation or other product?