;schleife

If meshname$ <> ""
      PositionEntity achsepiv,objekt\posx,objekt\posy,objekt\posz
      Text 860,145, "X: " + objekt\scx + " / Y: " + objekt\scy + " / Z: " + objekt\scz;<--- das wird markiert
      Text 840,172, "PosX : " + objekt\posx
      Text 840,187, "PosY : " + objekt\posy
      Text 840,202, "PosZ : " + objekt\posz
   Else
      PositionEntity achsepiv,0,0,0
End If


If on_click(mh1,b_mladen,110,685) = 1 Then
      objekt.obj = m_laden()
End If

;schleife

Function m_laden.obj()
   FlushKeys()
   Locate 110,705
   pfad$ = Input("Dateiname: ")
   If pfad$ <> "" Then
      objekt.obj = New obj
      objekt\mesh = LoadMesh("models/" + pfad$)
      NameEntity objekt\mesh,pfad$
      meshname$ = pfad$
      EntityPickMode objekt\mesh,2,1
      objekt\scx = MeshWidth(objekt\mesh)
      objekt\scy = MeshHeight(objekt\mesh)
      objekt\scz = MeshDepth(objekt\mesh)
      objekt\posx = 0
      objekt\posy = 0
      objekt\posz = 0
   End If
   Return objekt
End Function

if on_click(blablabla) then
    objekt.obj = m_laden()
end if