@cjshaw14 wrote:
Thank you, for doing a few area measurements these are all great suggestions. However, on the dwg I am working on, there are over one hundred areas to measure, then type each number into a text field for that area. Back to the original question, is it possible to have the prompt set as Select Object or even better, which I am researching, can a one button shortcut (macro) be created and added to the panel.
Similar to the CUI, I’ve customized the mouse right click and a pulldown menus to only the items used most often like Clipboard, Copy Basepoint, Paste As Block, etc.
So what you are really looking for is a way to place text in the drawing that displays the area of a bunch of objects?
That task vould be automated with a LISP routine that has you select the object, and it adds a piece of text with a field linked to the object.
Ive got one, but wont have access to get it for about an hour.
(defun LinkedArea (ent pt / obj objID ip width str)
(setq obj (vlax-ename->vla-object ent)
objID (vla-get-objectid obj)
ip (vlax-3D-Point pt)
width 0.0
str (strcat
"%<\\AcObjProp Object(%<\\_ObjId " (itoa objID) ">%).Area \\f \"%lu2%pr2\">%"
)
)
(setq tobj (vla-addMText (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) ip width str))
)
(defun c:QTA (/ a b)
(setq a (car (entsel)) b (getpoint "\n Select Point: "))
(linkedarea a b)
)
Christopher T. Cowgill, P.E.
AutoCAD Certified Professional
Civil 3D Certified Professional
Civil 3D 2026 on Windows 11

Please select the Accept as Solution button if my post solves your issue or answers your question.