---

Hallo zusammen,

habe folgendes Problem, dass doch sicherlich gelöst werden kann:

Ich möchte, dass von einer Fläche, die ich anklicke, der Flächenschwerpunkt berechnet wird und anschließend eine horizontale und eine vertikale Hilfslinie in genau diesen Punkt gelegt wird.

Das Macro könnte man dann einfach mit s starten.

Kann mir jemand weiterhelfen?

Danke
Uemit Aydin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi
gehe auf menu messen. dann wähle flächenattribut. gibt nun optional eine dichte ein und klicke nun in deine fläche. bei der frage nach der ausgabe gib screen ein.
da findest du alles was du brauchst.

gruss aus finsterhennen

------------------
awi
André Weidmann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für Deine Antwort,

jedoch möchte ich, dass das automatisch geschieht. ME10 zeigt mir den Punkt an. Dann muss ich die Schwerpunktdaten dazu verwenden die Hilflinien zu ziehen.

Jedoch muss es doch hierfür einen automatischen weg geben, oder??

Vielleicht kennt ja jemand anders eine automatische Lösung über ein
Macro?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

anbei die Lösung für dein Problem.

DEFINE area_cgeo
LOCAL dumm
READ PNT 'Bitte die Fläche selektieren' dumm
check_point dumm
END_DEFINE

DEFINE check_point
PARAMETER where
AREA_PROPERTY where DEL_OLD 'dully.txt'
END
find_point

END_DEFINE

DEFINE find_point
LOCAL zeile
LOCAL i

OPEN_INFILE 1 'dully.txt'
LET i 1
LOOP
READ_FILE 1 zeile
LET i (i+1)
EXIT_IF
        ( i = 17)
        IF
                (i = 16)
                LET searchpoint (SUBSTR (zeile) 16 49)
                LET searchpoint (TRIM (searchpoint))
        END_IF
END_LOOP
{LET searchpoint (VAL (searchpoint))
}
C_LINE HORIZONTAL (VAL (searchpoint)) END
C_LINE VERTICAL (VAL (searchpoint)) END
REDRAW
END_DEFINE

{Startmacro }
DEFINE Frs_m_find_gravity
area_cgeo
END_DEFINE

*****************************************
Mit freundlichen Grüßen

Frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frank,

echt suuper,

Danke für das Macro.

Gruß
Ümit Aydin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP