---

Hallo Zusammen,

ich füge über VBA eine Powercopy ein.

Auf einem Rechner funktioniert es auf einem anderen Rechner nicht.
Hier mein Code
Dim factory As InstanceFactory
Set factory = part1.GetCustomerFactory("InstanceFactory")
factory.BeginInstanceFactory "PowerCopy.1", "G:\RB_Normen\POWERCOPY\KUEHLUNG\KUEHLBOHRUNG_MIT_SPITZE_PL.CATPart"
factory.BeginInstantiate
 
    '***Abfrage geöffnete Dokumente
    Set intWindowsObj = CATIA.Windows
    'On Error GoTo NoOpenDocErr
    If intWindowsObj.Count = 0 Then
        Err.Raise 1000
    End If
    On Error GoTo 0
        '***Objekte instanzieren
    Set intDocObj = CATIA.ActiveDocument
    Set intSelObj1 = intDocObj.Selection
        KUEHLBOHRUNG.Hide
   
    '***Selektion Linie
    intSelFilter1(0) = "AnyObject"
    intSelStateStr1 = intSelObj1.SelectElement2(intSelFilter1, "Bitte Linie selektieren / ESC zum Abbrechen", True)
    'On Error GoTo TyperNameErr
    If intSelStateStr1 = "Normal" Then
      Set intTypeNameStr1 = intSelObj1.Item(1).Value
    End If
   
intSelObj1.Clear
   
   
    Set intDocObj = CATIA.ActiveDocument
    Set intSelObj = intDocObj.Selection
 
     
        intSelObj.Clear
     
    Set intDocObj2 = CATIA.ActiveDocument
    Set intSelObj2 = intDocObj2.Selection
         
        '***Selektion Ebene
    intSelFilter2(0) = "AnyObject"
    intSelStateStr2 = intSelObj2.SelectElement2(intSelFilter2, "Bitte Ebene selektieren / ESC zum Abbrechen", True)
   
    'On Error GoTo TyperNameErr
    If intSelStateStr2 = "Normal" Then
        Set intTypeNameStr2 = intSelObj2.Item(1).Value
    End If
               
    intSelObj2.Clear
   
'Inputs übergeben
factory.PutInputData "Sketch.1", intTypeNameStr1
factory.PutInputData "yz plane", intTypeNameStr2

Dim Instance As ShapeInstance
Set Instance = factory.Instantiate
factory.EndInstantiate

factory.EndInstanceFactory
part1.Update

    KUEHLBOHRUNG.Show

End Sub
_______________________________________

Gruß

Ralf

------------------
KOBUE

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

---

Servus Ralf
Hast du auch die entsprechende Lizenz gezogen?
AFAIR wird dazu die KT1-Lizenz benötigt.

Gruß
Bernd

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

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

---

Hallo Bernd

habe ich auf beiden Rechnern

Gruß

Ralf

------------------
KOBUE

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

---

Sorry

war doch nicht so.
KT1 fehlte.
Ich dachtre in MD2 sei KT1 enthalten.

Mit KT1 geht es.

Gruß

Ralf

------------------
KOBUE

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