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