JJ Wutt's Activities

[V8i VBA] Open Next .dgn file

JJ Wutt — Wed, 22 Oct 2014 22:29:14 GMT

I have created a VBA macro (code below) that opens the next .dgn file in the current folder. I created a custom tool and I run it from there. I created another, similar, macro that opens the "previous" drawing (not the previously opened dgn). It works, but I'm a novice at programming and I wonder if the code could be streamlined (better organized?) or if there is anything that I might have missed that will cause unexpected results. Any thoughts or comments would be appreciated. Thanks.

Sub OpenNextDgn()
'if Compile error = "User-defined type not defined"
'requires "MicroSoft Scripting Runtime" reference  (Tools> References)

On Error GoTo ErrorHandler

ShowCommand "OpenNextDgn"

Dim oFileSystem As Scripting.FileSystemObject
Set oFileSystem = New Scripting.FileSystemObject
Dim oFolder As Scripting.Folder
Set oFolder = oFileSystem.GetFolder(ActiveDesignFile.Path)

Dim DgnFiles() As String 'option base 1
Dim ArrayEmpty As Boolean
ArrayEmpty = True
Dim oFile As Scripting.File
For Each oFile In oFolder.Files
  If Right(oFile.Name, 3) = "dgn" Then
    If ArrayEmpty Then
      ReDim DgnFiles(1 To 1) As String
      DgnFiles(1) = oFile.Name
      ArrayEmpty = False
    Else
      ReDim Preserve DgnFiles(1 To UBound(DgnFiles) + 1) As String
      DgnFiles(UBound(DgnFiles)) = oFile.Name
    End If
  End If
Next oFile

If UBound(DgnFiles) = 1 Then
  ShowPrompt "This is the only .dgn file in current folder"
  End
ElseIf UBound(DgnFiles) > 1 Then
  Dim i As Integer
  Dim myCount As Integer
  For i = 1 To UBound(DgnFiles)
    myCount = myCount + 1
    If DgnFiles(i) = ActiveDesignFile.Name Then
      Dim ActiveCount As Integer
      ActiveCount = myCount
      Dim NextCount As Integer
      NextCount = ActiveCount + 1
      Exit For
    End If
  Next i
  
  If NextCount > UBound(DgnFiles) Then
    ShowPrompt "This is the last .dgn file in current folder"
    End
  Else
    myCount = 0 'reset
    For i = 1 To UBound(DgnFiles)
      myCount = myCount + 1
      If myCount = NextCount Then
        Application.OpenDesignFile DgnFiles(i), False, msdV7ActionUpgradeToV8
        CommandState.StartDefaultCommand
        Exit For
      End If
    Next i
  End If
End If

Exit Sub

ErrorHandler:
  MsgBox Err.Description
  ShowCommand "OpenNextDgn"
  ShowPrompt "Error-macro failed"

End Sub

[V8i - VBA] Remove Enter Data Field

JJ Wutt — Fri, 14 Feb 2014 00:29:51 GMT

It would be nice if there was a tool to convert EDF. Would be more efficient than manual edit copy/paste. I might take a crack at it with VBA.

Thanks again!

Create custom keyboard shortcut? (Redo = Ctrl+Y)

JJ Wutt — Mon, 20 Jul 2015 18:51:32 GMT

Is it possible to create a custom keyboard shortcut in MicroStation that will perform a Redo command using Ctrl+Y?

I recently purchased a gaming mouse with programmable buttons and I have already assigned Undo (Ctrl+Z) and Redo (Ctrl+Y) to some buttons. Ctrl+Y appears to be the Windows standard for Redo. I might be able to program a button to achieve Redo with Ctrl+R (as required by MicroStation), but I would prefer a single button for the operation in all programs.

V8i VBA text wrapping

JJ Wutt — Wed, 20 Aug 2014 02:17:04 GMT

I'm trying to find a way to add text nodes that will wrap based on a specified line length using VBA. I would also like to preserve the ability to use handles to manually decrease the text wrapping (i.e. make text lines longer), so I don't want to split the string into multiple parts and add multiple lines because this will only allow you to increase the wrapping (make lines shorter). I have tried using ActiveSettings.TextStyle.NodeLineLength which appears to have no effect (intentionally commented out below), and oNode.LineLength which causes every word to be wrapped and then will not allow the text wrap to be decreased beyond the linelength using handles. Is there some other way? Here is some code I have been using as a test. Sorry, I don't know how to post code so it looks right.



Sub TextNodeWrapTest()
 Dim oNode As TextNodeElement

 With ActiveSettings.TextStyle
  .Width = 1
  .Height = 1
  .NodeJustification = msdTextJustificationLeftTop
 '.NodeLineLength = 10
  .NodeLineSpacing = 1
  .NodeLineSpacingType = msdTextNodeLineSpacingTypeExact
 End With

 Set oNode = CreateTextNodeElement1(Nothing, Point3dFromXYZ(0, 0, 0), Matrix3dIdentity)
 oNode.AddTextLine "THIS IS A STRING OF TEXT THAT I WANT TO WRAP"
 oNode.LineLength = 15
 ActiveModelReference.AddElement oNode

'Debug.Print "NodeLineLength = " & ActiveSettings.TextStyle.NodeLineLength
 Debug.Print "LineLength = " & oNode.LineLength

End Sub

V8i - modify Standard tool box?

JJ Wutt — Wed, 05 Mar 2014 00:10:42 GMT

I would like to add a custom tool to the Standard tool box. I know how to make custom tools/boxes, but is it possible to customize MicroStation's "Application Tools" tool boxes?

I have created my own custom Standard tool box, which is a copy of all the tools from that Standard tool box plus my custom tools, but now the status bar prompts (bottom left corner) for standard tools like NEW (create drawing) change from "Create Design File" to "Custom Tool" and I would prefer the original prompts. Perhaps there is a key-in to update the prompt?

V8i - convert Enter Data Field to text?

JJ Wutt — Thu, 13 Feb 2014 16:45:09 GMT

Still adjusting to V8i...

With V8 you could remove Enter Data Fields by editing text and removing the << >> surrounding the text. How do you manually convert an EDF to normal text in V8i? Can it be done?

I've searched and searched and can't find a way to do this.

V8i midpoint handles?

JJ Wutt — Wed, 12 Feb 2014 16:45:15 GMT

Recently switched from V8 to V8i and it appears that V8i does not provide midpoint handles for rectangles anymore?

With V8 you could select a rectangle, click it again, and you would get handles for the midpoints that would allow you to resize that edge of the rectangle. This was very useful to me. But it appears that the only handles available with V8i are the corners of the rectangle. Is that capability just gone now? Or is there a setting somewhere?

The attached image is an generic example. What I want to do is modify the rectangle so that the midpoint of the right edge is on the radius of the circle (creating a square). There used to be a handle about where the mouse pointer is that I could click, drag, and snap to the circle and be done. I really hope there is still a way to do this.

[V8i VBA] Text node rewrite error - changing level & color

JJ Wutt — Tue, 21 Jan 2014 21:39:58 GMT

When I run the code below I get an error when attempting to rewrite one specific text node element in the attached file. This does not happen for all of the other text nodes, and I can't figure out how this one text node is any different than the rest. Another strange thing is that the error does not happen in V8, only in V8i. Any ideas? Help!

Sub ChangeTranslatedElementLevelAndColor()Dim TranslatedElement As Element Dim TranslatedTextE As TextElement Dim TranslatedNode As TextNodeElement Dim NodeEE As ElementEnumerator Dim EnglishColor As Long Dim VersionTest As String Dim oEnglishLevel As Level Dim EE As ElementEnumerator Dim oCriteria As ElementScanCriteriaSet oCriteria = Nothing Set oCriteria = New ElementScanCriteria With oCriteria .ExcludeAllTypes .IncludeType msdElementTypeText .IncludeType msdElementTypeTextNode .IncludeOnlyVisible .ExcludeAllClasses .IncludeClass msdElementClassPrimary .IncludeClass msdElementClassDimension End With Set EE = ActiveModelReference.Scan(oCriteria) Do Until EE.MoveNext = False'define English Level Set oEnglishLevel = ActiveDesignFile.Levels("English Translation") 'define color EnglishColor = ActiveDesignFile.ExtractColorTable.FindClosestColor(RGB(128, 255, 255))'MicroStation V8 requires adjustment to 'color number to get the correct color VersionTest = Application.Version If Left$(VersionTest, 13) = "Version 08.05" Then EnglishColor = EnglishColor - 1 End If'change level and color of text element If EE.Current.IsTextElement Then Set TranslatedTextE = EE.Current With TranslatedTextE .Level = oEnglishLevel .Color = EnglishColor .Rewrite .Redraw End With End If 'change level and color of text node If EE.Current.IsTextNodeElement Then Set TranslatedNode = EE.Current 'change each text element within the text node Set NodeEE = TranslatedNode.GetSubElements Do While NodeEE.MoveNext Set TranslatedTextE = NodeEE.Current With TranslatedTextE .Level = oEnglishLevel .Color = EnglishColor .Rewrite .Redraw End With Loop 'change level and color of text node element Set TranslatedElement = TranslatedNode With TranslatedElement .Level = oEnglishLevel .Color = 23 .Rewrite .Redraw End With End If Loop End Sub