INSERT AREA
Regards @rolisonfelipe
Try this code with a few minor changes to the one posted, to get the area in m2.
(defun C:ATXT (/ e th val unit fmt pt)
(setvar "cmdecho" 0)
(setq ESCALA (getreal "\n INFORME UNA ESCALA 1:")
HTEXTO (* 0.1 (/ ESCALA 50))
e (entsel "\nPlease select an entity...")
)
(command "area" "o" (car e))
(setq VAL (getvar "area")
unit (getvar "lunits")
pt (cadr e)
)
(command "style" "AREALOTE" "ARIAL" "" "" "" "" "")
(if (= (tblsearch "LAYER" "TOP AREA LOTE"))
(command "-LAYER" "M" "TOP AREA LOTE" "c" "004" "" "LT" "Continuous" "" "LW"
"0.00" "" ""
)
)
(setq fmt (strcat "AREA= " (rtos val 2 2) " M2"))
(command "text" PT HTEXTO 0 Fmt)
(command "move" "SI" "L" PT Pause)
(setvar "cmdecho" 1)
(princ)
) ; ends atxt.lsp
(prompt "\nType ATXT to envoke the command")
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
If this was posted because it doesn't work and you want to know why, I see there is no setting of the PT variable for the Text insertion point.
Also, I notice that it will make the Text only if LUNITS = 4 or 5 [Architectural or Fractional], but 3 [Engineering] is also an inches-based setting, so it should be included. But though it takes the area and divides it by 144 to convert square inches to square feet, it keeps the square-meters ending in the text content.
It does nothing if LUNITS is set for metric -- there is no 'else' argument if LUNITS is not 4 or 5.
By the way, you can get the "squared" part as superscript even in plain Text -- m² [which I think is more "standard" than with a capital M], or if you still want an option for imperial units, ft². It works inside AutoLisp functions. You can copy/paste it from here, or type it in by holding the Alt key down while pressing, on the numeric keypad [not the number keys across the top], 253 [without Enter to conclude] and then releasing the Alt key.
Dear @rolisonfelipe
I agree with kent, the suffix m2, looks better with the superscript m².
You can make the change here:
(setq fmt (strcat "AREA= " (rtos val 2 2) " m²"))
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
