---

moin zusammen,

bisher nutzte ich ein Macro (in INV 2018) wie dieses hier, in leicht abgewandelter Form, um eine Skizze in ein anderes Bauteil zu kopieren:
https://help.autodesk.com/view/INVNTOR/2023/ENU/?guid=GUID-5545F8F7-B04A-464D-BB51-BA986F0B04F1

Mit der Umstellung auf INV2023 ist das einfügen von Skizzen aber Mauszeigerabhängig, d.h. meine Skizze wird nicht mehr auf dem Ursprung eingefügt.

Wie kann ich den Einfügepunkt der Skizze festlegen?
Über die Suche oder Google bin ich leider zu keiner Lösung gekommen

------------------
MfG HawK

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

---

Moin

Nimm die Sketch.CopyContentsTo($TargetSketch) Methode
Link

------------------
MfG
Ralf

RKW Solutions GmbH

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

---

Danke für den Tipp,

leider scheint mir das nicht über eine Bauteilgrenze hinweg zu funktionieren, oder ich mache was falsch 

Ausführung des folgenden Codes innerhalb eines Bauteils funktioniert ohne Probleme.
Sobald ich aber in ein anderes Dokoment verweise mag er nicht mehr (oMasterDef):

Code:

---

Private Sub Copy_Sketch(base_sketch As String, destination_sketch As String, fixed As Boolean)
   
    Call Config
   
   
    ' Set a reference to the component definition.
    Set oDef = oPartDoc.ComponentDefinition
       
   
    ' Set a reference to the first sketch in the part.
    Dim oSketchToCopy As PlanarSketch
    Set oSketchToCopy = oDef.Sketches.Item(base_sketch)
   
    Dim oSketchDestination As PlanarSketch
    Set oSketchDestination = oMasterDef.Sketches.Item(destination_sketch)
   
    ' Select the sketch to copy.
    Call oSketchToCopy.CopyContentsTo(oSketchDestination)
   

End Sub

---

------------------
MfG HawK

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

---

Moin

Geh im Debugmodus schrittweise durch und kontrolliere den Inhalt deiner Variablen. Insbesondere die, deren Definition man hier nicht sehen kann. Stimmen die Skizzennamen? Werden die Skizzen auch den Variablen zugewiesen? Ist oMasterDef die ComponentDefinition die sie sein soll? usw.
Es funktioniert auch über Bauteilgrenzen hinweg.

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

habe den Fehler gefunden, verstehen tue ich ihn nur nicht:

definiert war/ist folgendes:
oMasterdef = oMasterDoc.ComponentDefinition

folgende Zeile funktionierte aber nicht:
Set oSketchDestination = oMasterDef.Sketches.Item(destination_sketch)

diese habe ich nun geändert in:
Set oSketchDestination = oMasterDoc.ComponentDefinition.Sketches.Item(destination_sketch)

...und es läuft 

Besten Dank für die unterstützung 

------------------
MfG HawK

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

---

Moin

oMasterDef, im Gegensatz zu oPartDoc und oMasterDoc, nicht als globale Variable definiert und deshalb außerhalb der Main Sub nicht gültig vielleicht? Globale Variablen sollte man vermeiden. Besser als Argument an die Funktion mit übergeben.
Globale Variablen sind, wie der Name sagt, global gültig. Das könnte dazu führen, das andere Prozeduren mit den gleichen Variablen ungewollt den Wert auslesen oder ihn ändern. Das sind nur die harmlosen, nicht bösartigen Möglichkeiten.

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

ja stimmt,

oDef war als Private definiert und oMasterDef nicht, jetzt macht es Sinn

Besten Dank nochmal 

------------------
MfG HawK

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