LISP Request - Acre to Text
A Search of this Forum will find routines to label lot outlines with acres. [Some require picking an object such as a Polyline, some only picking inside an area, some label with square feet and acres, some with other features, most include setting a Layer and text Style, some place the label in the middle and some ask the User where to put it, etc.] Any of them could be easily modified to set the height as you want it instead of whatever they originally use, and to add the plus-or-minus at the end. If you find one that does what you want but just needs those modifications, post it and we can suggest adjustments.
(Defun C:AREAT ( / ss sqf2 acre2 sqyd2 hect2 pt)
(setq ss (entsel "\nSelect Object To Get Area of: "))
(if ss
(progn
(command "AREA" "o" SS)
(setq sqf2 (/ (getvar 'AREA) 1)) ;decimal
(setq acre2 (cvunit sqf2 "sq feet" "acres"))
(setq sqyd2 (cvunit sqf2 "sq feet" "sq yard"))
(setq sqmt2 (cvunit sqf2 "sq feet" "sq meter"))
(setq hect2 (cvunit sqf2 "sq feet" "hectare"))
(princ
(strcat "\n Decimal Scale"
"\n"
"\n Square Feet = " (rtos sqf2 2 2)
"\n Acres = " (rtos acre2 2 3)
"\n"
)
)
(PRINC)
(setq pt (getpoint "Specify Insertion Point"))
(entmake
(list
(cons 0 "MTEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcDbMText")
(cons 1 (strcat "Area = " (rtos sqf2 2 2) " SF " (rtos acre2 2 3) " AC"))
(cons 10 pt) ; Insertion Point
)
)
(princ)
)
)
)Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@JohnC_ISM wrote:
.... its trying insert something and idk why. ....
....
(command "insert" "darea" pt 1 1 0 "Area" (strcat (rtos SQF2 2 2) " SF") (strcat (rtos ACRE2 2 3) " AC"))
)
Because that one does it by means of a Block with Attributes. If @hak_vz 's suggestion in Message 4 doesn't do what you want, describe what you would like to be different.
(Defun C:AREAT ( / ss sqf2 acre2 sqyd2 hect2 pt)
(setq ss (entsel "\nSelect Object To Get Area of: "))
(if ss
(progn
(command "AREA" "o" SS)
(setq sqf2 (/ (getvar 'AREA) 1)) ;decimal
(setq acre2 (cvunit sqf2 "sq feet" "acres"))
(setq sqyd2 (cvunit sqf2 "sq feet" "sq yard"))
(setq sqmt2 (cvunit sqf2 "sq feet" "sq meter"))
(setq hect2 (cvunit sqf2 "sq feet" "hectare"))
(princ
(strcat "\n Decimal Scale"
"\n"
"\n Square Feet = " (rtos sqf2 2 2)
"\n Acres = " (rtos acre2 2 3)
"\n"
)
)
(PRINC)
(setq pt (getpoint "Specify Insertion Point"))
(entmake
(list
(cons 0 "MTEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcDbMText")
(cons 40 (* 0.1 (getvar 'dimscale)))
(cons 7 "Romans")
(cons 1 (strcat "Area = " (rtos sqf2 2 2) " SF " (rtos acre2 2 3) " AC"))
(cons 10 pt) ; Insertion Point
)
)
(princ)
)
)
)
For MTEXT DXF codes consult this link.
To use ROMANS font create text style Romans with font Romans used. Apply for other fonts
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@hak_vz wrote:
....
To use ROMANS font create text style Romans with font Romans used. Apply for other fonts
@JohnC_ISM, you can use any name for the Style, as long as the font you want is assigned to it [you may have one already defined]. Just be aware that it is the Style name, not the Font name, that goes into the code.
Also, as an aside, I wouldn't bother using Mtext for this. The M stands for Multi-line -- if you're doing only one line, use plain Text. Only if you want more than one line in one object, such as to show square feet and acres on separate lines, or if you need stacked fractions, or if you want to change some property of only part of the contents [such as some characters in a different color], is there any reason to use Mtext. [And plain Text uses slightly less memory for single-line content.]
