---

Hallo!

ich bastel gerade an unserem Makro zum Ausfüllen des Schriftfeldes herum. Mein Ziel ist es, mit Hilfe des Makros Bezugshinweise im Schriftfeld zu ändern. Per Checkbox wähle ich aus, ob die Eigenschaft aus dem Modell genommen wird oder aus einer Eigenschaft der Zeichnung (die dann auch gleich mit dem Makro eingetragen wird)

Ein alleinestehendes Makro habe ich mittlerweile irgendwie hinbekommen (Fast so wie in der API Hilfe)

Code:

---

Option Explicit

Dim Suche  As String
Dim Ersetze  As String

Private Sub InitStrings()

  Suche = "$PRPSHEET:" + Chr(34) + "Description" + Chr(34)
  Ersetze = "$PRP:" + Chr(34) + "Description2" + Chr(34)
 
End Sub

Private Sub DoReplaceString(ByRef sNoteText As String)

sNoteText = Replace(sNoteText, Suche, Ersetze, 1, -1, vbTextCompare)

End Sub

Sub main()

    Dim swApp          As SldWorks.SldWorks
    Dim swModel        As SldWorks.ModelDoc
    Dim swDraw          As SldWorks.DrawingDoc
    Dim swView          As SldWorks.View
    Dim swNote          As SldWorks.Note
 
    Dim sNoteText      As String
    Dim nTextCount      As Long
    Dim i              As Long
 
    InitStrings
   
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel
   
    Set swView = swDraw.GetFirstView
 
    While Not swView Is Nothing
        Set swNote = swView.GetFirstNote
     
        While Not swNote Is Nothing
            If swNote.IsCompoundNote Then
                nTextCount = swNote.GetTextCount
               
                For i = 1 To nTextCount
                    sNoteText = swNote.GetTextAngleAtIndex(i)
                    DoReplaceString sNoteText
                    swNote.SetTextAtIndex i, sNoteText
                Next i
            Else
                sNoteText = swNote.GetText
                DoReplaceString sNoteText
                swNote.SetText sNoteText
            End If
           
            Set swNote = swNote.GetNext
        Wend
        Set swView = swView.GetNextView

    Wend

End Sub

---

Nun möchte ich das Makro in unser Makro für Schriftfelder einbauen. Hier erhalte ich jedoch nach Aufruf der Routine "Main" den Fehler:
---------------------------
Microsoft Visual Basic
---------------------------
Fehler beim Kompilieren:

Benutzerdefinierter Typ nicht definiert
---------------------------
OK  Hilfe 
---------------------------
Markiert ist diese Zeile:

Code:

---

Dim swApp          As SldWorks.SldWorks

---

Warum klappt das nicht? Hat da jemand einen Tip für mich?

Gruß

Mixie

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

---

Hast Du Deine Verweise (im VB-Editor: Extras -> Verweise) überprüft, ob da nicht noch Verweise gibt, welche es nicht geben sollte?
Es ist möglich, dass SolidWorks auf einen Verweis zugreiffen möchte, der aber nicht mehr existiert und somit ein Problem beim Ausführen des Makros bekommt.

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

http://www.worldcommunitygrid.org

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

---

Hallo!

Ja...da lag irgendwo mein Fehler. Ich habe das nun doch mal wieder komplett anders gemacht, da mein Vorhaben die Bezugshinweise im Schriftfeld zu Ändern einfach nicht klappen wollte. Auch nicht mit dem in der Hilfe beschriebenen Beispiel...

Vielen Dank für den Tip! Thema hat sich damit erledigt!

Gruß

Mixie

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