CPoint class module

[acrctba]

I have a CPoint class module that helps me work with the coordinates of the elements. I don't have to work with arrays. I made something like that:

' change the insertion point of an AcadText
Dim pPoint as CPoint
pPoint = EGUtil.PointFromArray3d(pText.InsertionPoint)

' change coordinates
pPoint.X = 5 : pPoint.Y = 10: pPoint>X = 0#

' save back to original element
pText.InsertionPoint = EGUtil.Array3dFromPoint(pPoint)

If anyone has interest in that contacts me.

Ari C. Raimundo
Engefoto S/A
Curitiba-PR-Brazil

[Allen Johnson]

Why not post it?

[acrctba]

It's too big to be posted...

I can send you by e-mail...
acrctba@hotmail.com

[acrctba]

Here's the idea:

Public Function PointToArray3D(ByRef point As CPoint) As Variant
' retorna um array de coordenadas 3d Ã* partir de um ponto

Dim pPoint(0 To 2) As Double

pPoint(0) = point.X
pPoint(1) = point.Y
pPoint(2) = point.Z

PointToArray3D = pPoint

End Function

Public Function Array3DToPoint(ByRef points As Variant) As CPoint
' retorna um ponto Ã* partir de um array 3d

Dim pPoint As New CPoint

pPoint.X = points(0)
pPoint.Y = points(1)
pPoint.Z = points(2)

Set Array3DToPoint = pPoint

End Function

[Bobby C. Jones]

You have a class that represents a point and it's too big to be posted???
I'd love to have a look at it.
--
Bobby C. Jones

"acrctba" <nospam@address.withheld> wrote in message
news:21831792.1103116767056.JavaMail.jive@jiveforu m2.autodesk.com...

It's too big to be posted...

I can send you by e-mail...
acrctba@hotmail.com