De visual basic a fox

Buenas

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

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)

El error que me aparece es que hay un error de argumentos

Alguine me puede ayuidar

Salduos


-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa