I have an old MDL application (incarray.ma). It works in version 08.05.02.70 but not in PowerGeopak version 08.11.07.615. It will not select the text. I do not have the base files to open the code to see how it was written so I am having to start from scratch. I have just recently began to learn how to code VBA so I do not know how to code this program in VBA V8i. I'm looking for any and all assistance on how to tackle this. I have attached the incarray.ma file with loading instructions for someone to see how it works.
This is the user form.
This message shows up at the bottom left asking to datapoint on the number text element to increment and array at the set distances set in form shown above.
This is the end result after the number text "1" at the bottom left is selected and incremented and arrayed by the user values.
To load in MicroStation:
MicroStation Menu / Utilities / MDL Applications
Browse to file location on PC
After loaded, key-in incarray in the MicroStation Key-In
incarray.zip
Here's a VBA implementation of the incarray MDL...
You can download the freeware VBA macro. As usual, the VBA project is not locked and you can browse the source code.
Regards, Jon Summers LA Solutions
Answer Verified By: Dustin Hunt
That works. I'll review the code so that I can see how it was done. Thanks for your time and help with this.
Dustin Hunt said:I'll review the code
I've added Named Group functionality. The text grid elements are added to a Named Group...
Thanks for the info. I'm not familiar with Named Groups. I've not used them in the 23 years that I've been working with MicroStation in the Roadway Design world.
Dustin Hunt said:I'm not familiar with Named Groups
I added that feature to the Text Grid Generator because it makes life easier after creating the grid. If you want to resymbolise or delete the grid, for example, then you can get at its contents using the Named Group dialog.
Dustin Hunt said:I've not used them in the 23 years that I've been working with MicroStation
Named Groups were introduced with MicroStation V8 in 2003. See the History of MicroStation.
You're not obliged to use any new feature of MicroStation. I guess there have been a few improvements in the past decades. When developing that tool, I found it convenient to be able to delete the entire grid with the minimum of fuss. The fact that the tool adds elements to a Named Group should not affect your use of it. And, since you have the source code, you can remove that facility if you don't like it!
I stand corrected. After downloading and seeing how it works, I can see the use of the named groups. I was using another increment tool that I found that increments by selection set. I modified it to include a form so that a user could input a value to increase/decrease existing sheet numbers. Using this tool with the named groups, the group can be easily erased and new numbers placed rather quickly. This tool will save a great deal of time when renumbering hundreds of cross-section sheets.
I am getting an error when I use this tool. If I make a mistake and use Cntl-Z to undo and try to rerun the program, I get the following error:
I do not get this error if I erase the text by graphic group or erasing them individually, make a few changes, and use the default "Text Grid Generator" named group without removing it first.
Dustin Hunt said:I am getting an error
Thanks for finding a bug in the Named Group API! I've written a work-around. You can download the updated macro from our web site.
Thanks for your gracious help!