---

Hallo CAD.de Community,

ich möchte in meinem VBA Makro eine Zeilen Code in eine function packen, da ich diese Zeilen mehrere Male im Quelltext in der selben Variante verwende. Genauer gesagt geht es ums Speichern einer Zeichnung, also wird von der function nicht wirklich ein Wert zurückgegeben. Wie kann ich das machen. Hier der Code der zusammengefasst werden soll:

Public Function Zeichnung_Speichern()

Set drawingDocument0 = CATIA.ActiveDocument
drawingDocument0.SaveAs (filename_zeichnung)

If Err.Number = 0 Then

MsgBox "Die Zeichnung wurde erfolgreich unter gespeichert" & vbCrLf & vbCrLf & filename_zeichnung & vbCrLf & vbCrLf & "gespeichert!", vbInformation, "Speichern    erfolgreich!"

End If
 
End Function

Diesen Code möchte ich jetzt einfach mit dem Befehl Zeichnung_Speichern an den entsprechenden Stellen aufrufen können. Aber leider funktioniert das nicht. Wenn ich den Code komplett an die jeweiligen Stellen schreibe geht es ohne Probleme, dann hab ich aber mehreren Stellen immer wieder die selben Zeilen stehen, was ich nicht möchte. Wie kann ich das realisieren?

Beste Grüße

misterfpx

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

---

Servus
Wenn du keinen Rückgabewert hast, kannst du den Code auch in eine Unterroutine (Sub) schreiben.
Wo ist den die Variable "filename_zeichnung" definiert?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hi Bernd, danke für die Antwort.

Wie definiere ich denn eine Unterroutine und wie rufe ich sie dann aus einem anderen Sub auf?
Die Variable filename zeichnung wird aus einem Pfad + mehreren Strings aus Textfelder in der Hauptroutine zusammengesetzt.

Grüße
Oliver

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

---

Hallo misterfpx,

in Deinem Fall würde ich das als Function anlegen; etwa so:

Public Function Zeichnung_Speichern(strFName As String) As Long
 
  Dim drawingDocument0 As DrawingDocument
 
  On Error GoTo SaveAs_ErrorHandler
 
  Set drawingDocument0 = CATIA.ActiveDocument
  drawingDocument0.SaveAs (strFName)
 
  'falls beim speichern ein Fehler auftritt, geht's von hier in die Fehler-Routine;
  'der return der fehlerroutine macht dann hier wieder weiter
 
  'ohne fehlermeldung geht's sonst hier weiter
  If Err.Number = 0 Then
      MsgBox "Die Zeichnung wurde erfolgreich unter gespeichert" & _
        vbCrLf & vbCrLf & filename_zeichnung & vbCrLf & vbCrLf & "gespeichert!", _
        vbOKOnly Or vbInformation, "Save As"
  End If
 
  Zeichnung_Speichern = Err.Number            'den fehler ans programm zurückgeben
Exit Function
'---------------------------------------------------
SaveAs_ErrorHandler:

  Dim errMsg As String
  Dim errRet As VbMsgBoxResult

  Select Case Err.Number
      'case 58              'hier wären fehler a la 'file already exists(Error 58)' abzuhandeln
'      Case 438
'      Case -2147467259
      Case Else
        errMsg = Err.Number & ": " & Err.Description & " in procedure SaveAs"
        errRet = MsgBox(errMsg, vbOKOnly, "SaveAs")
  End Select

'nach bearbeiten der fehlermeldung entweder return(noch mal probieren) oder return next(ignorieren und weiter
'oder ohne Return raus aus der function
  Return

End Function

Der Funktionsaufruf wäre dann:

  Dim lRet as long

  lRet = Zeichnung_Speichern(DerVollständigePfadStehtHier)
  if lRet = 0 then
      'weiter im programm
  else
      'auf fehler reagieren
      Exit Sub 'oder End
  endif

  Oder kürzer:
 
  if Zeichnung_Speichern(DerVollständigePfadStehtHier) <> 0 then exit sub

Wenn ich Deine Situation richtig einschätze, fängst Du mit VB/Catia-Makros grad an.
Als Stichworte der VB-Hilfe wären vermutlich 'Sub', 'Function', 'Error', 'Scope of Variables' interessant.

Hope it helps,
Joe

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