Jeff Dragowski's Activities

Breaks are not recognized when extracting graphics and building triangles

Jeff Dragowski — Tue, 07 Feb 2017 19:56:04 GMT

I am trying to append a .dat file to include breaks. I start in DTM>Extract>Graphics, and in the "Extract Graphics" window I use the following settings: File Type: Ascii, File Open: Append, Feature: Breaks, Mode: Extraction, No stroking, Decimal: 2, Extract: Selection Set. I select the chain that I would like to have used in my .tin as a breakline, but when I click Apply my .dat file will not append. There are no changes to the "Date Modified" time signature of my .dat, but the lower left corner of my screen does say "Extract selection set complete." I then go to Build>Triangle and create a new .tin with my should be appended .dat, but the new tin does not have breaklines in it. I am using MicroStation V8i (Select Series 3), Version 08.11.09.655. Does anyone know why Extract Graphics will not recognize selected chains as breaklines?

[V8i] Is there a way to reference text into a VBA?

Jeff Dragowski — Tue, 10 Mar 2015 19:26:36 GMT

I am looking for a way to reference text within a drawing into a VBA. For example, if I had a point numbered as 100, would it be possible to click on the point number, 100, and have it show up within my VBA? My objective is to have this text appear in the reference ID of a URL. My current code I am posting bellow will add a static link to an element and will open the Edit Link window after, but before these tasks occur, I would like a selected point number to appear in the reference ID of my URL:

Sub Macro1()

Dim startPoint As Point3d

Dim point As Point3d, point2 As Point3d

Dim lngTemp As Long

' Start a command

CadInputQueue.SendKeyin "ELEMENT CREATE LINK URL http://www.google.com/THIS IS WHERE THE REFERENCE ID WOULD APPEAR"

' Send a keyin that can be a command string

CadInputQueue.SendKeyin "links edit"

' Send a data point to the current command

point.X = startPoint.X

point.Y = startPoint.Y

point.Z = startPoint.Z

CadInputQueue.SendDataPoint point, 1

CommandState.StartDefaultCommand

End Sub

Control Editor

Jeff Dragowski — Wed, 05 Aug 2015 16:03:54 GMT

Hello,

I have uploaded a few datasets from .raw files into a drawing only to realize a few of the control coordinates I used to import the data needed to be adjusted. Is there a way using control editor, or something like it, to adjust the topo data and linework I already have in the drawing to match the adjusted controls?

[VBA] Object Required, need help with detect and/or create level VBA

Jeff Dragowski — Fri, 27 Mar 2015 18:56:45 GMT

Hi All,

I have been trying to create a VBA that will detect if a level exists, if it does then set that level to active, if it doesn't then create that level and set it active. I wrote a code that I thought would work, but I am receiving a compile error saying that an object is required with the following part of the code highlighted:

Sub CreateOrActiveLevel()

Dim LevelName As String
Dim LinksLevel As Level
Dim oLevel As Level

Set LevelName = "Links"
Set LinksLevel = ActiveDesignFile.Levels(Links).IsDisplayed
If LinksLevel = True Then
    ActiveSettings.Level = ActiveDesignFile.Levels(Links)
    Else
    Set oLevel = ActiveDesignFile.AddNewLevel(LevelName)
    Levels.Rewrite
    ActiveSettings.Level = ActiveDesignFile.Levels(Links)
End If

End Sub

I have already found a similar post relating to this (communities.bentley.com/.../88062) but despite Jon Summers always helpful and informative posts, I couldn't get my own to work. Can anyone see where I'm going wrong?

P.S. I am new to VBAs and coding, so it would be great if answers were kept in laymans terms.

Jeff

[VBA] Error 424: Object Required

Jeff Dragowski — Thu, 19 Mar 2015 18:14:45 GMT

Can anyone please let me know why my code is not working? I keep receiving Error 424: Object Required. I'm pretty new to VBA and coding so it might be something very simple. This is what I would like my code to do:

There are text elements in a level.
The text content are numbers (1, 2, 3, 4, etc.).
I want to be able to select one text element, parse its content as a number and attach this number to a defined general URL.
The result should be attached to the selected element as URL link.

This is my code:

Sub Init()
Dim oText As TextElement
Set oText = ElementEnumerator.Current.AsTextElement
Dim content As String
content = oText.Text
CreateLink content
End Sub
Sub CreateLink(ByVal content As String)
Dim strURL As String
strURL = "http://www.google.com" & "/" & content
Debug.Print "My URL=" & strURL
CadInputQueue.SendKeyin "ELEMENT CREATE LINK URL " & strURL
End Sub

[VBA] In Need of Layman's Terms

Jeff Dragowski — Wed, 18 Mar 2015 16:04:49 GMT

I have no experience with writing code of any kind. I have been able to glean a few tips regarding how to make a VBA from reading a number of trouble shooting posts and the MicroStationVBA.chm, but can someone please answer the following questions in the most simple way they know how? In other words, in layman's terms.

1. What does the variable type Long do?

2. What is an element enumerator?

3. What does adding .Text to a variable type do? For instance, textEl.text

4. I know that a dimensioned variable name as a string can store text, but how do I insert that text back into my VBA? Example:

Someone has helped me get this far with figuring out how to parse text from a selection set

Dim textEl As TextElement
Set textEl = ee.Current.AsTextElement
Dim myText As String
myText = textEl.Text

I assumed that I can now use the variable myText to insert the text that I have parsed out back into my VBA, but after trying this I found out I could not. Can someone explain to me in layman's terms how to insert a string back into my VBA?

If the language I used is off, please do not take this opportunity to make fun of me as others have, I am very new at this.

P.S. I know about the Learning MicroStation VBA book, I cannot afford it.

[V8i VBA] Need to find a way to parse text from a text element

Jeff Dragowski — Fri, 13 Mar 2015 22:13:47 GMT

I am looking for a method that would allow me to parse text from a selected text element and attach the parsed text to a defined general url, then I would then add the url link to the original element.

I know that this is a tall order, but I cannot seem to figure this one out. I am currently looking into the GetCustomProperty method, but I was wondering if there was a more well defined way to accomplish my task.

VBA that can edit a link?

Jeff Dragowski — Mon, 09 Mar 2015 20:43:46 GMT

Hello Everyone,

I am working with a VBA that will add a link to an element, but I would like to have the option to edit the link once I have added it to an element. For instance, I would like to be able to select an element, run my VBA, and then have the Edit Link window appear (see following picture).

Here is my VBA so far:

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

' Start a command
CadInputQueue.SendKeyin "ELEMENT CREATE LINK URL http://www.google.com"

CommandState.StartDefaultCommand
End Sub

Can VBAs self-populate?

Jeff Dragowski — Wed, 11 Mar 2015 17:45:54 GMT

I would like to know if anyone has had any success populating a VBA with text within a DGN.

For example:

If within my VBA I had the following URL to attach to an element:

[V8i] Can I combined Add Link to Element and Incremental Text?

Jeff Dragowski — Fri, 06 Mar 2015 15:58:10 GMT

In Microstation V8i, is there a way to combine "Copy/Increment Text" and "Add Link to Element"? The result I would like to see as I add URL links to a series of elements is something like this: www.webpage.com/1, www.webpage.com/2, www.webpage.com/3, etc., as I click from element to element while adding links.

Please let me know if this can be accomplished.