De visual basic a fox

Buenas

Estoy tratando de pasar una aplicación de VIsual Basic a Visual FOX y

En visual basic la rutina es como sigue:

' Create the line
Dim lineObj As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
endPoint(0) = 4#: endPoint(1) = 4#: endPoint(2) = 0#
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

donde Thisdrawing es el objecto de la aplicación

En FOX tengo

on error uno=getobject("","Autocad.application")
uno=getobject(,"Autocad.application")
on error
acadDoc = uno.ActiveDocument
DIMENSION KK(3),KK2(3)
KK(1)=1.0
KK(2)=1.0
KK(3)=0.0
KK2(1)=4.0
KK2(2)=4.0
KK2(3)=0.0
KK4¬ADDOC.MODELSPACE.ADDLINE(KK,KK2)

Bueno como nadie me ha podio ayudar, que tal esto:

En otro foro me dijeron que el problema consiste en que los parámetros
deben ser
DOUBLE. Como convierto los valores de VIsual FOx a DOUBLE??

Alguna ayuda??

Saludos



PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway