Oppervlak [m²] in tekening bijschrijven ook in LT

3/7/2018

Hoe kun je in AutoCAD LT het oppervlak (in m2) van een arcering of gesloten polyline in de tekening bijschrijven?
De meeste gebruikers die met deze vraag geconfronteerd worden zullen via het properties palette de Area eigenschap uitlezen en overnemen in de tekening. Prima als dat een keer voorkomt.
Als deze vraag vaker terugkomt is het zeker de moeite waard hiervoor een aparte knop te maken die na het selecteren van een polyline of hatch direct de m2 in de tekening plaatst. In AutoCAD LT kunnen we daarvoor een macro schrijven waarbij gebruik gemaakt gaat worden van een speciale taal (Language) genaamd DIESEL. In onze cursussen en workshops leggen we in detail uit bij welke praktisch toepassingen je dit nog meer kunt inzetten.

Stappenplan

Plaats met het command:TEXT<enter> op de juiste laag een voorbeeld, "A=100m2"
Zet het Toolpalette aan met command:TP <enter> of CTRL+3
Klik met de Rechter Muis Knop op een van de tab in het Toolpalette en kies New Palette
Type een naam in voor het nieuwe palette tab, bijvoorbeeld METEN IS WETEN
Sleep nu de voorbeeld tekst (uit stap 1) naar het lege palette. Eventueel slepen met de rechter muis knop ingedrukt
Klik met de Rechter Muis Knop op de nieuwe knop Dtext en kies Properties...
Wijzig de Name in "Oppervlak[m2]" en de Description in "Bijschrijven oppervlak in tekening."
Kopieer (CTRL+C) en plak (CTRL+V) de hieronder in rood geschreven tekst naar de Command String
*^C^C_AREA;Object;\TEXT;\350;0;A=$M=$(rtos,$(/,$(getvar,area),1000000),2,2)m²;
Sluit af met OK.

Testen

Teken nu een rechthoek met het commando RECTANGLE van bijvoorbeeld 3000x4000mm.

Command: RECTANGLE<enter>
Specify first corner point or [Chamfer/Elevation/Fillet/Thickness/Width]:<klik>
Specify other corner point or [Area/Dimensions/Rotation]: @3000,4000<enter>

Klik nu de knop Oppervlak uit het Toolpalette aan en zie hoe makkelijk de m2 in de tekening kan worden geplaatst.

Opmerking

In dit voorbeeld wordt een teksthoogte van 350units aangehouden en de gemeten waarde omgerekend van mm² naar m². Dit is natuurlijk naar eigen inzicht aan te passen.

Video uitleg

30 Comments

Rudi Drieghe

18/11/2019 20:10:39

Hallo, Ik werk pas met 2020 LT (voorheen 2008 LT) en heb je tip gebruikt. Dit geeft bij mij echter gewoon "0" (nul) als oppervlakte, en ook de letters "m²" ontbreken. Zou dit ergens een verkeerde instelling zijn, of heb ik iets verkeerd gedaan?

RODEMA link

19/11/2019 20:23:34

Dag Rudi, in dit voorbeeld wordt er van uitgegaan dat in de currrent textstyle een teksthoogte van 0.0 units is ingesteld. Mogelijk is dit waarom er in jouw situatie een 0 wordt geschreven. Mocht dat niet zo zijn stuur dan even de dwg zodat ik kan aangeven wat er mis gaat. Succes!

wesley

19/4/2020 11:23:35

Beste,

ik teken in cm wat moet ik dan aanpassen in de formule ?

mvg,

wesley

20/4/2020 10:42:25

Dag Wesley,

Wanneer jouw tekeneenheid cm is en je wilt het oppervlak in m2 vermelden, deel je het getal door 100x100=10000 ipv 1000000. Dus 1000000 in de macro aanpassen naar 10000 en zo nodig de teksthoogte 350 aanpassen naar 35. Ik hoop dat je vraag daarmee beantwoord is?

Jan

4/8/2020 08:57:25

Super handig dit! Was ik al een tijdje naar op zoek! Bestaat zoiets ook voor de omtrek?
BVD!

17/8/2020 08:38:38

Dag Jan, het is zeker mogelijk de macro aan te passen zodat deze de omtrek bijschrijft. In plaats van AREA kun je ook de PERIMETER uitlezen en dit getal delen door 1000 in plaats van 1000000. Ik hoor graag of het is gelukt, anders help ik je daar graag bij. Succes!

26/8/2020 11:39:02

Yes, gelukt met de command string (LT2019):

*^C^C_AREA;Object;\TEXT;\0;Perimeter=$M=$(rtos,$(/,$(getvar,perimeter),1000),2,2)m;

Bedankt, super!

Ruben

5/10/2021 16:25:01

Top! Is super handig.
Is er ook een mogelijkheid dat wanneer bepaalde oppervlaktes of lengtes worden aangepast in een tekening, deze waardes automatisch mee aangepast worden?

Alvast bedankt!

14/10/2021 09:04:28

Dank je wel Ruben! Met het commando FIELD kun je een oppervlak of lengte uitlezen, zodat bij wijziging ook de tekstwaarde update to date blijft.

Ruud

18/11/2021 21:03:20

Bij het wijzigen van het object veranderd de naam waardoor de field zijn link verliest ... of ??

rodema link

19/11/2021 12:25:36

Dag Ruud, Field blijft gekoppeld aan het object ook als je het object aanpast. Echter er zijn "aanpassingen" waarbij het object wordt opgeheven, denk aan explode dan zal het field niet meer de gekoppelde property kunnen vinden. Maar bij stretchen, scalen en grip bewerkingen zal steeds de actuele waarde getoond worden in het FIELD-object.

Mark

2/2/2022 08:14:34

Heel interessant die tips & trucs!
Het aanmaken van een Field in een tekst en deze aan een Polyline koppelen om de m2's eruit te halen had ik zelf al gevonden.
Wat ik niet voor elkaar krijg is om hier een knopje of een commando voor te maken, zodat je dan alleen nog maar een Polyline hoeft aan te wijzen en de tekst neer te zetten en hij dus zelf verder het Field met de juiste parameters aanmaakt.
Alvast bedankt!

2/2/2022 08:29:56

Dag Mark,
Dank je wel voor je compliment. Een oplossing voor jouw vraag is in AutoCAD LT helaas niet mogelijk. In AutoCAD is dat wel te maken door gebruik te maken van de programmeertaal AutoLISP.

2/2/2022 12:19:22

Geen dank, dat is verdiend!
Excuses ik teken zelf met een gewone AutoCAD, ik had wat vollediger moeten zijn!

Inge

14/2/2022 11:41:55

Hoi, ik heb een vraag. Ik werk in meters dus heb dit aangepast in de text line. Dit werkt, alleen krijg ik achter de tekst nu een m? ipv m2. Weet iemand hoe dit verholpen kan worden?

14/2/2022 12:07:54

Dag Inge, leuk dat het gelukt is de macro op jouw wensen af te stemmen. Het vraagteken (?) verschijnt als je een lettertype gebruikt dat het kwadraat -teken (²) niet ondersteund. Oplossing wijzig het gebruikte lettertype of wijzig het kwadraat-teken in een gewone 2. Succes!

Inge Brekelmans

14/2/2022 12:11:07

Bedankt voor de snelle reactie! Dit is inmiddels gelukt door het aanpassen van het lettertype! Nog wel een andere vraag, ik zou graag afronden op hele vierkante meters. Heeft dit ook met de lettertype style te maken of is dit aan te passen de properties van het tool pallete?
Alvast bedankt!

14/2/2022 12:47:56

Graag gedaan, afronden op hele m2 in een macro kan door de DIESEL-functie rtos aan te passen. van 2,2 naar 2,0.

Johan link

14/2/2022 17:59:19

Ik krijg een punt als decimaal teken; hoe krijg ik daar een komma. Dus 13,4 m2 ipv 13.4 m2 ?

15/2/2022 08:11:59

Dat klopt Johan, voor alle getallen in AutoCAD wordt een punt als decimaal scheidingsteken gebruikt. 1 uitzondering is de mogelijkheid om in een maatlijn een komma te schrijven. In AutoCAD LT betekent dit handmatig aan passen of accepteren dat we ene punt schrijven. Werk je met de volledige versie van AutoCAD dan zou je via een Lisp routine dit vraagstuk eenvoudig kunnen oplossen.

Patrick Kennis

5/7/2022 15:59:53

Hoi, ik heb alles gedaan zoals getoond in de video, echter nadat ik het object heb geselecteerd vraagt hij "specify start point of text or", als ik dan ergens klik krijg ik een geluid van foutmelding te horen en vraagt hij terug "specify objects".
Wat doe ik fout?

14/7/2022 08:58:42

Dag Patrick, meestal heeft dat je maken met een vaste hoogte in de current textstyle. Zie het AutoCAD Textwindow (F2) om te zien waar de fout optreed. Stuur andere nog even een e-mail naar mail(at)rodema.nl met een screenshot.

Dennis

22/7/2022 11:40:54

Hoi,

Ik ben super geholpen met de command string voor het weergeven in de tekening van het oppervlakte.
Nu komt het voor dat ik het oppervlakte van meerdere gesloten polylines bij elkaar op wil tellen.
Met de command string *^C^C_AREA;Add;Object;\TEXT;\350;0;A=$M=$(rtos,$(/,$(getvar,area),1000000),2,2)m2; kan ik de polylines 1 voor 1 aanklikken echter kan ik dan uiteindelijk niet de opgetelde waarde ergens laten weergeven in de tekening (zonder text, en deze zelf over te nemen). Kan ik dit automatisch in een command string verwerken? Ik werk met autoCAD LT

2/9/2022 13:01:34

Ik heb je een oplossing inclusief korte video per e-mail toegestuurd.

Andre Michielsen

17/12/2022 17:15:12

Om hem werkend te krijgen heb ik hem een klein beetje aangepast, in de huidige vorm probeerde hij de oppervlakte in de commandoregel te plakken, ik gebruik 2023 LT, wellicht dat het hem daarin zit.
*^C^C_AREA;Object;\TEXT;\0;garage $M=$(rtos,$(/,$(getvar,area),1000000),2,1)m²;

Nog wel een vraag: is het mogelijk om er 2 regels van te maken. in bovengenoemd voorbeeld heb ik als tekst "garage" en het zou mooi zijn als onder "garage" de oppervlakte komt te staan. op deze wijze komt hij erachter.

19/12/2022 13:39:13

Mooi dat het gelukt is de macro werkend te krijgen. Overigens heeft het niet met de versie van AutoCAD te maken. Je moet het eerder zoeken in de eigenschappen van de actieve tekststyle en andere settings in jouw tekening. Denkrichting om er 2 regels van te maken, bij objecttypeTEXT dan de macro twee keer laten uitvoeren. Objecttype wijzigen in MTEXT. succes weer en bedankt voor je reactie.

Hans Kuhn

18/1/2023 11:43:10

Geweldig dit Robért!

Ik ben naast tekenaar ook weer aan het calculeren en waar ik 'vroeger'gebruik maakte van een digiviser (elektronische lineaal) gebruik ik nu autocad als inmeet tool
PDF inlezen in autocad, onderdelen intekenen en met de m² en m¹ macro kan ik nu de omtrekken en oppervlakte's inmeten.

18/1/2023 11:52:49

Dank voor je reactie, Hans!

18/1/2023 12:06:10

Het maakt alleen maar nieuwsgieriger om de routine verder uit te breiden. Nu nog eens puzzelen om de macro zo te schrijven dat hij in één keer de oppervlakte én de omtrek neerzet. Dat scheelt weer een handeling. Of nog uitgebreider de breedte, lengte/hoogte én de oppervlakte en omtrek in één keer zou de perfecte tool maken voor luie calculators . . .

19/1/2023 09:44:08

In AutoCAD LT kunnen we zeker met macro's aangevuld met diesel functies handig oplossingen maken. Wil je nog een stap verder kijk dan eens naar een pakket die ook AutoLISP ondersteund. Bijvoorbeeld AutoCAD of een goedkoper en licentie vriendelijker alternatief, zoals bijvoorbeeld GstarCAD of Draftsight

Your comment will be posted after it is approved.

Tips & Trucs