AreaText.lsp updated for 64-bit AutoCAD

The freeware AutoLISP AreaText.lsp has been updated to run on 64-bit AutoCAD as well.

On the x64 platform, creating a Field expression from lisp (or VB) requires that you use the 64-bit ObjectID as a string so the source code had to be updated accordingly using this function I got from ADN:

(defun Get-ObjectIDx64 (obj / util)
  (setq util (vla-get-Utility (vla-get-activedocument (vlax-get-acad-object))))
  (if (= (type obj) 'ENAME)(setq obj (vlax-ename->vla-object obj)))
  (if (= (type obj) 'VLA-OBJECT)
    (if (> (vl-string-search "x64" (getvar "platform")) 0)
      (vlax-invoke-method util "GetObjectIdString" obj :vlax-False)
      (rtos (vla-get-objectid obj) 2 0)
    )
  )
)

Now just load AreaText.lsp using APPLOAD and run the command AT, select a polyline and specify where you want the text and you can get a result like this:

If you want other units or formats or scaling of the text see the post Customize AreaText.LSP for AutoCAD.