Inventor 2018: Bauteile über XYZ kopieren?!

[TAR_Loki]

Hallo Zusammen,

gibt es eine möglichkeit, Bauteile über eine direkt Angabe von XYZ Koordinaten direkt zu kopieren, ohne den Musterbefehl zu benutzen.

Der Grund ist der, das ich gerne den Schritt des "Mustern aufhaben" einsparen möchte.

Gruß Loki

[Dennis.Ossadnik]

Hallo @TAR_Loki,

das klingt nach einer Aufgabe für einen Code (iLogic/VBA).

Teil kopieren, an gleicher Stelle einfügen, Versatz abfragen, Teil verschieben und evtl. fixieren.

Aber einen bestimmten Befehl dafür gibt es nicht, außer eben das Muster 

[TAR_Loki]

VBA klingt gut, nur leider hab ich da keine Ahnung von und würde mich über jede Hilfe freuen.

[Juergen_Wagner]

Verschieben mittels "Versatzwert" würde mittels Rasterfang gehen. Da wird aber leider die Komponente nicht kopiert.

Ich gehe davon aus, das du mit XYZ-Koordianten die relativen Koordinaten meinst, also den XZY-Versatz zum Ursprungsteil (auch weil die den Reihenbefehl angesprochen hast). Absolute Koordinaten (Versatz zum IAM-Ursprung) könntest du direkt in den iProperties des kopierten Teiles (STRG+C / STRG+V) eingeben.

[TAR_Loki]

Moin Jürgen,
Jo, ich beziehe mich hier auf die relativen Koordinaten zum Originalteil.
Gruß Sven

[WHolzwarth]

Schau Dir mal das an, Sven. Nicht grad' der direkteste weg, aber ..

[Dennis.Ossadnik]

Hallo @TAR_Loki,

man könnte vielleicht gut mit einer Kombination aus VBA und der Exemplar-Einstellung arbeiten, die @Juergen_Wagner vorgeschlagen hat.

Hier ein ganz simpler Entwurf eines Codes, der die Komponente in der Baugruppe dupliziert und fixiert.

Sub ASS_DuplicateOccurence()

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oOcc As ComponentOccurrence
Set oOcc = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter, "Select an occurence.")

Dim oNewOcc As ComponentOccurrence
Set oNewOcc = oDoc.ComponentDefinition.Occurrences.Add(oOcc.ReferencedDocumentDescriptor.FullDocumentName, oOcc.Transformation)

oNewOcc.Grounded = True

End Sub

Danach könnte man dann über die Exemplar-Einstellung die Verschiebung relativ angeben.

Hier mal ein kleines Video, wie das aussehen könnte:

Würde Dir das eventuell schon weiterhelfen?

---

Bitte nutzt den "Als Lösung akzeptieren"-Button, wenn ein Beitrag euer Problem oder eure Frage löst. Für hilfreiche Posts könnt ihr auch gerne Kudos vergeben.

[TAR_Loki]

@Dennis.Ossadnikund @Juergen_Wagner

Das kommt dem ganzen schon sehr nahe.

Wenn jetzt noch die Exemplar-Verschiebung in einem direkten Abfragefenster aufgehen würde wäre das ganze Perfekt.

[fullevent]

Hallo Sven,

ich habe sowas ähnliches für einen Kollegen auch gemacht. Allerdings hat er absolute Koordinaten eingeben wollen.
Sobald ich morgen im Büro bin schau ich gleich nach und poste das hier rein 🙂

[TAR_Loki]

Das klingt super, danke Dir! 🙂

[fullevent]

Hallo Sven,

ich hab dich total vergessen am Freitag.. tut mir leid

In diesem Post ganz unten beschreibt Jürgen kurz wie ein UserForm importiert wird. Für den Fall dass du das nicht mehr genau weißt.
Alt + F11 um den Editor zu öffnen dann bei Anwendungsprojekt RMT > Dateien importieren > frm-Datei auswählen

in ein Modul dann den Code einfügen

Sub Comp_copy()
    frmComp_copy.Show
End Sub

und wenn du magst das ganze als Icon ins Menü einbinden.
Jürgens Anleitung

Hier noch ein kurzer ScreenCast wie das funktioniert..

Hoffentlich hilft es dir weiter.
Viel Spaß

[fullevent]

hm.. ich kann die frm-Datei nicht anhängen 

Hier mal via dropbox

[Dennis.Ossadnik]

Hi @fullevent,

das Tool ist ja cool! 

[fullevent]

Danke Dennis 

allerdings muss ich gestehen das meiste damals von diversen Beiträgen von Jürgen, Verbeek Stefan und dir zusammen kopiert zu haben 

[m.gildehaus]

Das ist trotzdem ein sehr gutes Tool @fullevent

Meine Kudos hast du!

Mit freundlichen Grüßen | Best regards

Marius

[fullevent]

Danke Marius 

Jetzt ist es hoffentlich auch das was Sven haben wollte 

[TAR_Loki]

Hallo Zusammen,

vielen lieben Dank für Eure Mühen.

Ich bin heute noch nicht dazu gekommen, es auszuprobieren, verspreche aber dieses morgen nachzuholen und auch zu posten. 🙂

Gruß Sven

[TAR_Loki]

Moin Zusammen,

ich habe es gerade ausprobiert, bekomme allerdings eine Fehlermeldung, wenn ich versuche, das Formular einzufügen.

Sprich:

Im VBA-Editor bei Anwendungsprojekt RMT > Dateien importieren > frm-Datei auswählen

Danach zeigt er mir die Meldung:

Anweisung zu komplex

Ich habe die Dateien von @fullevent ebenfalls auf den zentralen Netzwerkordner gelegt, in dem sich auch die Projektdatei befindet.

Muss ich hier irgendetwas anders machen?

Gruß Sven

[fullevent]

Hallo Sven,

ich sehe diese Meldung zum ersten Mal 

Schon mal versucht die Datei zu importieren während sie lokal bei dir auf dem Rechner liegt?

Vielleicht kann dir @Dennis.Ossadnik hier weiter helfen oder @Juergen_Wagner.

[TAR_Loki]

Hi @fullevent,

muss die Datei denn nicht für alle erreichbar bleiben?

Oder wird Sie in die Projektdatei übertragen?

Gruß Sven