Copy & Increment Text

There is certainly room for improvement there.

Another thing that is rather annoying is that it only works on texts and not on text nodes. When you place a text, even something as simple as A1, in a DWG then text is always converted to a text node wich means the copy increment text tool doesn't work at all when working in a DWG. Even saving the DWG as a DGN will still have the tool not work on text originating from the DWG (even after dropping the complex status to simple text).

If they're going to work on this tool they might as well consider adding the option of incrementing the text instead of the number. e.g. from 7A to 7B, 7C, etc.

Since this is a preexisting issue I brought this out into the light for all to share input.  If this is a much desired feature I would reccommend putting up a poll to see community interest and then have a change request files on it.

here is the macro without password.

Sorry for that, but it was (still is) just a quick, not well documented program.

Karsten

Great, it worked.  

I had a user reach out about a similar vba that I thought other users may benefit from if they're browsing a similar issue. I borrowed Karsten's increment_text.mvba as a backbone. This vba works by the user creating a selection set of all the text items they want incremented, and then running the module. The module will increment each text item by one. It will not change an "A" to a "B". I will increment the number in a string that has the number at the end of the string.increment_selectionset.mvba

Hello everybody,

I have some problem with copy/increment text that I cannnot solve by above tips and any other I tried to find on forum.

I was trying to use some forum's macros but i haven't got what i want.

Here is my problem:

I need to annotate some 100 meteres points by chainage in fomat 000.0 (comma or point doesn't matter for my drawing).

When I'm using copy/increment tool it allows me to increment by integer numer ( help file says), so when i set tag increment to 1 it increments my 459.1 + 1(increment) the result is 459.2 but when it comes to 459.9+1 the result is 459.10 and it istn't what i want = 460.0. Do you have any solution for that?

Below is screen with my tries...

Unknown said:

I need to annotate some 100 meteres points by chainage in fomat 000.0

Try the Text Increment tool that we wrote.  It will accept a decimal value for increments.

This is just an incrementor — it doesn't do copy-and-increment.  But since the source code is included in the VBA project, you can modify it to do what you want.

Unknown said:

I need to annotate some 100 meteres points by chainage in fomat 000.0

Try the Text Increment tool that we wrote.  It will accept a decimal value for increments.

This is just an incrementor — it doesn't do copy-and-increment.  But since the source code is included in the VBA project, you can modify it to do what you want.

Jon,

Thank You for your macro, it helps me with my work. 

I've got one more qustion to You - how to maintain trailing zero, now when I increment by 0.1 after 459.9 the result is 460 not 460.0 - can you tell where in the code I should do some changes?

To others:

My workflow to annotate chainage:

1. Create complex chain

2. Annotate first point eg. 459.0

3. Array text (not text node) along path by distance for first km

4. Run LA Solutions's TextIncrementor macro by key-in:

     vba run [textincrementor]modmain.main .1   .1 - is my increment for hektometers

5. Select text to increment

6. Copy or array first km 459.0 ...459.9 to next kilometers

7. Run again LA Solutions's TextIncrementor macro by key-in:

     vba run [textincrementor]modmain.main 1   1 - is my increment for kilometers

8. Select text to increment kilometers

Done ;-)

Regards, Marek

Unknown said:

I've got one more question to You - how to maintain trailing zero, now when I increment by 0.1 after 459.9 the result is 460

Try the modified Text Increment tool.  It attempts to preserve the number of decimals in the incremented text.