---

Hallo Leute,

ich nutze beim MDT ein altes VBA-Tool, mit dem Attribute vom MDT-Parts in Schriftfelder kopiert werden können.
Seit dem Wechsel auf 2008 funktioniert das Tool nicht mehr und produziert folgenden Fehler:

Die Fehlermeldung lautet
"13" "Typen unverträglich"

Leider habe ich von VBA keine Ahnung.
Folgende Teil der Routine produziert den Fehler:

    Dim oMcad As McadApplication
    Dim oSymbb As McadSymbolBBMgr
    Dim oBomMgr As McadBOMMgr
    Dim oBomStd As McadBOMStandard
    Dim oTarget As AcadBlock
    Dim oRootDef As McadComponentDefinition
    Dim oBomColumns As McadColumnDefinitions
    Dim oBom As McadBOM
    Dim oBomItems As McadBOMItems
    Dim oBomItem As McadBOMItem
    Dim vBomData As Variant
    Dim iRow As Integer
    Dim sItemName, sColumnName As String
    Dim sAttrib, sData As String
    Dim sBlockName As String
    Dim sAllatts As String
    Dim sBothAtts As String
    Dim sPatt As String
    Dim sBatt As String
    Dim ssP As AcadSelectionSet, fType(1) As Integer, fData(1)
    Dim blkRef As AcadBlockReference, atts As Variant, i As Long
   
   
    Set oMcad = ThisDrawing.Application.GetInterfaceObject("Mcad.Application")
   
    Set oSymbb = ThisDrawing.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
    Set oBomMgr = oSymbb.bommgr
    Set oBomStd = oSymbb.StandardMgr.CurrentStandard.BOMStandard
    Set oTarget = ThisDrawing.ModelSpace
    Set oRootDef = oMcad.ActiveDocument.AssemblyMgr.RootDefinition <<< hier tritt der Fehler auf

Kann mir jemand helfen, das Programm wieder zum Laufen zu bekommen.

Grüße

Manfred

 

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

---

Hallo Manfred,

hab leider kein MDT und kann daher den Fehler nicht richtig nachvollziehen.

Zitat:

---

Dim oRootDef As McadComponentDefinition
...
Set oRootDef = oMcad.ActiveDocument.AssemblyMgr.RootDefinition <<< hier tritt der Fehler auf
...

---

Schau doch mal im Objektbrowser (F2) was es für einen Rückgabetyp sein soll.
Alternativ kannst du mal versuchen oRootDef as OBJECT zu deklarieren.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hallo Wilfried,

Danke für den Hinweis, werde ich probieren.
Habe das Problem gestern gelöst, in dem ich als Datentyp Variant verwendet habe.

Grüße

Manfred

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