Thank you gile,
See as this working.
1 - (setq P1 (cadr (grread 5))) -> (246.28 106.895 0.0)
2 - (setq P2 (dcl_GetDwgMouseCoords)) -> (269.159 61.7892 0.0)
3- (setq Pnew (mapcar '+ pt2 (mapcar '- pt1 pt2))) -> (246.28 106.895 0.0)
dcl_GetDwgMouseCoords -> Function of OpenDCL
With this I only need the function Grread to create a reference coordinate.
I am trying to create a function of I drag for an object.