Text strings

Text strings

Anonymous
Not applicable
327 Views
4 Replies
Message 1 of 5

Text strings

Anonymous
Not applicable
I am having a problem with a text string cutting off the letter 'E' It
doesnt seem to cut off any other letter.. and only cuts of 'E' if it is the
last letter in the string..

please someone explain this to me?

Thanks,
Nate
0 Likes
328 Views
4 Replies
Replies (4)
Message 2 of 5

Anonymous
Not applicable
Is this within VBA code?

If so, post relevant portions of the code.

"Nate" wrote in message
news:EBF11204476BFA8CF810C582F8C55D3F@in.WebX.maYIadrTaRb...
> I am having a problem with a text string cutting off the letter 'E' It
> doesnt seem to cut off any other letter.. and only cuts of 'E' if it is
the
> last letter in the string..
>
> please someone explain this to me?
>
> Thanks,
> Nate
>
>
0 Likes
Message 3 of 5

Anonymous
Not applicable
Yes.. I thought I did sorry.. 🙂

The text that cuts off trailing e's is the 'cgPoint.FullDescription'
which you may guess is an AeccPoint


Dim Text As AcadText
Dim Textstring As String
Textstring = (Format(StationEq, "00+00.00")) & " " & (Format(Offset,
"00.00" & " " & cgPoint.FullDescription))
Set Text = ThisDrawing.ModelSpace.AddText(Textstring, Placepoint,
txtHeight)
Text.Rotate Placepoint, (direction - 1.57)
Text.Update



"TomD" wrote in message
news:107F36234ED54A7C5200D4BEF1CED4B5@in.WebX.maYIadrTaRb...
> Is this within VBA code?
>
> If so, post relevant portions of the code.
>
> "Nate" wrote in message
> news:EBF11204476BFA8CF810C582F8C55D3F@in.WebX.maYIadrTaRb...
> > I am having a problem with a text string cutting off the letter 'E' It
> > doesnt seem to cut off any other letter.. and only cuts of 'E' if it is
> the
> > last letter in the string..
> >
> > please someone explain this to me?
> >
> > Thanks,
> > Nate
> >
> >
>
>
0 Likes
Message 4 of 5

Anonymous
Not applicable
Sorry I don't have time to check my answer for correctness, but at first
glance it looks like the paren's are messed up on your second FORMAT.
Maybe:
(Format(Offset, "00.00") & " " & cgPoint.FullDescription)
0 Likes
Message 5 of 5

Anonymous
Not applicable
lol..

Bingo... Thanks a bunch..


"James Belshan" wrote in message
news:439415DDE0B215C6CF923F933C6AB914@in.WebX.maYIadrTaRb...
> Sorry I don't have time to check my answer for correctness, but at first
> glance it looks like the paren's are messed up on your second FORMAT.
> Maybe:
> (Format(Offset, "00.00") & " " & cgPoint.FullDescription)
>
>
0 Likes