---

Gibt es eine Methode ein Polygon zu messen un den Umfang als Text am curser hängen zu haben ?

Gruß

------------------
ML

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

---

Hallo ML,
die Möglichkeit gibt es. Speichere folgendes Programm unter
"MessUmf.bas" oder sonst irgendeinen schlüssigen Namen, Haupsächlich mit " .bas" am Ende und in dem Verzeichnis wo Deine Macros gespeichert sind, Starten unter MS mit ->Extras->Makros :

' Auf die schnelle mal so eben gemacht
' abspeichern als MessUmf.bas
' kein support

Sub main

  Dim area#, perimeter#
' Variablen für Koordinaten
    Dim view as Integer
    Dim P1 As MbePoint

' Verarbeiten des Befehls Fläche messen
    MbeSendCommand "MEASURE DISTANCE ICON "

    MbeSendCommand "MEASURE AREA ICON "

    area = MbeState.measureResult1

    perimeter = MbeState.measureResult2
'    warten auf einen Datenpunkt oder Reset
        MbeGetInput MBE_DataPointInput, MBE_ResetInput
'---------
'  Wenn Reseteingabe, dann Ende Programm
        if MbeState.inputType = MBE_ResetInput Then Goto Ende
'---------
'    verarbeiten des Datenpunktes, coordinaten und Fenster
        status = MbeState.getInputDataPoint (P1, view)

    MbeSendKeyin "place text"
'  Ausgabe Umfang 
    MbeSendKeyin Str$(perimeter)
'  Ausgabe Fläche
'    MbeSendKeyin Str$(area)

'    MbeCurrentTransform.scalarFromUors
Ende:
end Sub

---------------------

------------------
Tschüss

Reinhard

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

---

Hey cool
Aber ich hab immer nur ne 0 am curser
Gruß

------------------
ML

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

---

Hallo ML,
Du hast recht, gebe zu, war zu schnell.
Werde, aber die Lösung finden. So in etwa weiß ich schon woran es liegt.....

Sorry

------------------
Tschüss

Reinhard

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

---

Klass

------------------
ML

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

---

1. Ich meinte klasse
2. Kennst du die Mdl Appl A tool 95 ?

------------------
ML

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

---

Nein kenn ich nicht!
So, bei http://www.cadgurus.com/learn/freedwnl/default.asp

gibt es ein kleines Programm

81  Measure Length and Place Text

kannste ja mal runterladen und ausprobieren, so 100pro funktioniert es bei mir nicht. Aber wir arbeiten dran.

------------------
Tschüss

Reinhard

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

---

Na hast Du's Dir bei Cadgurus geholt??

Bei mir ist die Prozedur immer beim 2.mal ausgestiegen. Wenn es bei Dir auch aussteigt, dann ersetze den 1. Teil des Programms mit folgenden Zeilen:

'----------------------------------------
Sub measureAndPlaceText (point as MbePoint, view as Integer)
    Dim area As String
    Dim perimeter As String

    ' MEASURE THE ELEMENT LENGTH
    MbeSendCommand "MEASURE DISTANCE ICON "

    MbeSendCommand "MEASURE AREA ICON "
    MbeRelocate point, view
    MbeSendDataPoint point, view
    area = str$(MbeState.measureResult1)

    perimeter = str$(MbeState.measureResult2)

    MbeSendKeyin "place text"
'  Ausgabe Umfang
    MbeSendKeyin perimeter
'  Ausgabe Fläche
'    MbeSendKeyin area
End Sub
'-----------------------------------

Danach hat es bei mir wunderbar geklappt. Auch bei verschiedenen Objekten.

------------------
Tschüss

Reinhard

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

---

Klasse man
Es klappt
1000 Dank

------------------
ML

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