Hi Guys, I have a problem with some lisps. I capture the point with getpoint and when designing and using the acquired point, the object is not in the right position. the problem only occurs when the UCS is away from origin. follows one of lisps: [code] (defun c:AREAFIELDMETER (/ Get-ObjectIDx64 space ss pt) (defun Get-ObjectIDx64 (obj / util) (setq util (vla-get-Utility (vla-get-activedocument (vlax-get-acad-object)))) (if (> (vl-string-search "x64" (getvar "platform")) 0) (vlax-invoke-method util "GetObjectIdString" obj :vlax-False) (itoa (vla-get-Objectid obj)) ) ) (setq space (vla-get-modelspace (vla-get-ActiveDocument (vlax-get-acad-object)) ) ) (if (and (setq ss (car (entsel "\n Select Object for Area : "))) (setq pt (getpoint "\n Specify Text Location :")) ) (vla-addMText space (vlax-3d-point pt) 1. (strcat "%<\\AcObjProp Object(%<\\_ObjId " (Get-ObjectIDx64 (vlax-ename->vla-object ss)) ">%).Area \\f \"%lu2%pr2%ps[, m²]%ct8[1]\">%" ) ) (princ) ) (princ) (c:AREAFIELDMETER) [\ code]