how extract coodenates acadtext

[jandres]

Hello people:
I hava a problem with extract corrdenates the a acadobject.
I have next example:

dim objTexto as AcadText
dim point( 0 to 2) as Double

point=objTexto.TextAlignmentPoint

But this is not right, anyone know make this??, thanx!!

[rkmcswain]

Hello people:
I hava a problem with extract corrdenates the a acadobject.
I have next example:

dim objTexto as AcadText
dim point( 0 to 2) as Double

point=objTexto.TextAlignmentPoint

But this is not right, anyone know make this??, thanx!!

Do not use dim point( 0 to 2) as Double

Use Dim point As Variant

If you look at the documentation on TextAlignmentPoint, you will see that it returns a Variant.

[jandres]

Hello people:
I hava a problem with extract corrdenates the a acadobject.
I have next example:

dim objTexto as AcadText
dim point( 0 to 2) as Double

point=objTexto.TextAlignmentPoint

But this is not right, anyone know make this??, thanx!!

Do not use dim point( 0 to 2) as Double

Use Dim point As Variant

If you look at the documentation on TextAlignmentPoint, you will see that it returns a Variant.

that not problem:
dim Point as Variant
Point = objTextoEmpalme.TextAlignmentPoint(1)

This return 0....????

[rkmcswain]

that not problem:
dim Point as Variant
Point = objTextoEmpalme.TextAlignmentPoint(1)

This return 0....????

Did you read all the documentation on TextAlignmentPoint ?

If the Alignment property is set to "acAlignmentLeft", then TextAlignmentPoint will return 0. Is this your case?

There are also other items that affect the returned value of this property. Read the "Remarks" section.

[jandres]

that not problem:
dim Point as Variant
Point = objTextoEmpalme.TextAlignmentPoint(1)

This return 0....????

Did you read all the documentation on TextAlignmentPoint ?

If the Alignment property is set to "acAlignmentLeft", then TextAlignmentPoint will return 0. Is this your case?

There are also other items that affect the returned value of this property. Read the "Remarks" section.

I not sure, but writte this after call alignamentpoint:
objTexto.Alignment = acAlignmentRight
MsgBox objTexto.TextAlignmentPoint(0)

this return 0,thanx