calculating polygons areas using autocad field

[franciscorefosco]

;SqMetersField;(vl-load-com);
;^C^C^P(or C:SqMetersField (load "SqMetersField.lsp"));SqMetersField
(defun c:SqMetersField (/ ufa actDoc tab obid tpt lin plineReactor) 
;|  (defun ufa (notifier-object reactor-object parameter-list) 
    (cond 
      ((vlax-property-available-p notifier-object "Area") 
       (setq actDoc 
       (vla-get-ActiveDocument (vlax-get-acad-object))) 
       (vla-SAVE actDoc) 
      ) 
    ) 
  ) |;
  (setvar"cmdecho" 0) 
 (princ "\nSelect closed Object or Hatch ")
 (setq ss (ssget "+.:E:S" '((0 . "lwpolyline,spline,circle,ellipse,hatch"))))
; :E  Everything in aperture
; :S  Force single object selection only
; The "+." puts (ssget) into "point" mode. It helps the ":S"
; single-mode act just like (entsel) by avoiding implied
; selection windows.
; (if ss
   (setq ent (ssname SS 0)
         EnTyp (cdr (assoc 0 (entget ent)))
         obj (vlax-ename->vla-object ent)
           obid (vla-get-objectid obj)
           tpt (getpoint"\nSelect Area Text Point: ")
   )
   (setq lin (strcat "%<\\AcObjProp Object(%<\\_ObjId " (rtos obid 2 0) ">%).Area \\f \"%lu2%pr3%ps[±, Sq Meters]%ct8[1e-004]%th44\">%"))
  (command "mtext" tpt "w" "0" lin "") 
  (princ) 
)

so it should be like this?

[Tom Beauford]

;SqMetersField;(vl-load-com);
;^C^C^P(or C:SqMetersField (load "SqMetersField.lsp"));SqMetersField
so it should be like this?

No. The semicolon is for comments. Nothing after one on that line is evaluated. Just put the (vl-load-com) on a new line before everything else. It only has to be loaded once so I have it in my Acad.lsp file rather than putting it in all my routines.

[AaOeberg]

Hi!

Tried this function and everything seems okay until it places the square meter text. Instead of writing the square meter information it writes #### instead.
What’s wrong? I use AutoCAD 2013

[irneb]

Not sure of 2013 ... perhaps something's changed. Unfortunately I'm still on 2012. The routine seems to work for me.

Perhaps try my version from here: http://forums.augi.com/showthread.ph...l=1#post967005
It's a bit more comprehensive as it allows you to change settings like unit conversion, prefix / suffix, and add/subtract multiple polygons into the fieldcode.

[kannan.vin681064]

Hi Tom,

When I run the lisp, after selecting the object i show the text location the field is showing the content #### (not the area). How to solve this?