RODEMA Engineering, Bureau voor CAD ondersteuning
  • Welkom
  • Tips
  • Cursussen
  • CAD Downloads

Tips & Trucs

"Praktische CAD Tips en Hints"

Oppervlak [m²] in tekening bijschrijven ook in LT

3/7/2018

7 Reacties

 
Foto
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. 

Foto

Stappenplan

  1. Plaats met het command:TEXT<enter> op de juiste laag een voorbeeld, "A=100m2"
  2. Zet het Toolpalette aan met command:TP <enter> of CTRL+3
  3. Klik met de Rechter Muis Knop op een van de tab in het Toolpalette en kies New Palette
  4. Type een naam in voor het nieuwe palette tab, bijvoorbeeld METEN IS WETEN
  5. Sleep nu de voorbeeld tekst (uit stap 1) naar het lege palette. Eventueel slepen met de rechter muis knop ingedrukt
  6. Klik met de  Rechter Muis Knop op de nieuwe knop Dtext en kies Properties...
  7. Wijzig de Name in "Oppervlak[m2]" en de Description in "Bijschrijven oppervlak in tekening." 
  8. 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²;
  9. 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

7 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!

Antwoord
wesley
19/4/2020 11:23:35

Beste,

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

mvg,

wesley

Antwoord
RODEMA link
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?

Antwoord
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!

Antwoord
RODEMA link
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!

Antwoord
Jan
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!


Uw commentaar zal worden geplaatst nadat het is goedgekeurd.


Laat een antwoord achter.

    CAD Tips&Trucs

    Praktische tips en handigheidjes..

    Filter

    Alles
    Afdrukken
    AutoCAD
    AutoCAD LT
    Instellingen
    Tekenen

    Archieven

    December 2020
    November 2020
    Oktober 2020
    Augustus 2020
    Maart 2020
    Februari 2020
    Januari 2020
    Juli 2019
    Mei 2019
    December 2018
    Augustus 2018
    Juli 2018
    Juni 2018
    Februari 2018
    November 2017
    Juli 2017
    April 2017
    December 2016
    Oktober 2016
    Mei 2016
    Februari 2016
    Januari 2016
    December 2015
    November 2015
    September 2015
    Juli 2015
    Mei 2015
    April 2015
    Maart 2015
    Februari 2015
    December 2014
    November 2014

    RSS-feed

CAD Hulp
CAD Opleidingen
CAD Tips
CAD Downloads

CAD Diensten

(Auto)CAD opleidingen
(Auto)CAD Workshops
Helpdesk
Tips en Trucs
Downloads

Bedrijfsinformatie

Foto
Over ons
Contact
Tel. +31 (0)72-532.08.30

Formulieren

Nieuwsbrief
Deelnameformulier
Evaluatieformulier
Algemene Voorwaarden Opleidingen

Blijf GRATIS op de hoogte

Copyright © 1990-2020. All rights reserved. RODEMA Engineering | Molenlei 1j, 1921 CX Akersloot | 072 532 08 30| mail@rodema.nl