Hallo Leute,
bekomme bei folgendem Code/VBA-Modul eine Fehlermeldung beim Aufruf der Funktion 'ZoomToElement' im Sub 'Main':
Die Fehlermeldung lautet: 'Fehler beim Kompilieren: Variable nicht definiert' Habe keine Ahnung woran es liegen könnte. Davor kam die Fehlermeldung: 'Sub oder Funktion nicht definiert'. Jedenfalls steigt der Kompiler beim Aufruf der Funktion aus, obwohl die Funktion imselben Modul aufgerufen wird.
MfG Peacer
* Topic verschoben *
bekomme bei folgendem Code/VBA-Modul eine Fehlermeldung beim Aufruf der Funktion 'ZoomToElement' im Sub 'Main':
Visual Basic-Quellcode
- Option Explicit
- Option Base 0
- ' ---------------------------------------------------------------------
- ' Main entry point. Command-line syntax:
- ' vba run [ElementLocator]modMain.Main <element id>
- ' Substitute a valid MicroStation graphic element ID for <element id>
- ' ---------------------------------------------------------------------
- Public Sub Main()
- Dim id As DLong
- id = DLongFromString(KeyinArguments)
- Dim Zero As DLong
- Dim oTarget As Element
- On Error GoTo err_ElementNotFound
- ' Next line throws an error if the ID is not valid
- Set oTarget = ActiveModelReference.GetElementByID(id)
- ZoomToElement oTarget, 1
- Exit Sub
- err_ElementNotFound:
- MsgBox "Element having ID " & DLongToString(id) & " not found", vbOKOnly Or vbInformation, "Invalid Element ID"
- End Sub
- ' ---------------------------------------------------------------------
- ' ZoomToElement
- ' ---------------------------------------------------------------------
- Function ZoomToElement(ByVal oTarget As Element, ByVal nView As Integer) As Boolean
- ZoomToElement = False
- If (oTarget.IsGraphical) Then
- Const Zoom As Double = 4
- Dim range As Range3d
- range = oTarget.range
- Dim oView As View
- Set oView = ActiveDesignFile.Views.Item(nView)
- Dim extent As Point3d
- extent = Point3dScale(Point3dSubtract(range.High, range.Low), Zoom)
- oView.Origin = Point3dSubtract(range.Low, Point3dScale(extent, 0.5))
- oView.Extents = extent
- oView.Redraw
- Else
- MsgBox "Element having ID " & DLongToString(oTarget.id) & " is not a graphical element", vbOKOnly Or vbInformation, "Invalid Element"
- End If
- Exit Function
- err_ZoomToElement:
- ReportError strMODULE_NAME, "ZoomToElement"
- End Function
Die Fehlermeldung lautet: 'Fehler beim Kompilieren: Variable nicht definiert' Habe keine Ahnung woran es liegen könnte. Davor kam die Fehlermeldung: 'Sub oder Funktion nicht definiert'. Jedenfalls steigt der Kompiler beim Aufruf der Funktion aus, obwohl die Funktion imselben Modul aufgerufen wird.
MfG Peacer
* Topic verschoben *
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „der_Kurt“ ()