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

9 Reacties

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?

Antwoord

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.

Uw commentaar zal worden geplaatst nadat het is goedgekeurd.

Tips & Trucs