CADForums.net

acrctba · Guest

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 · Guest

Why not post it?

acrctba · Guest

It's too big to be posted...

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

acrctba · Guest

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 · Guest

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@jiveforum2.autodesk.com...

	CADForums.net Forum Index -> VBA	All times are GMT
Page 1 of 1