|
Inventor VBA : Bauteil von einer Baugruppe in andere Baugruppe verschieben/kopieren
KraBBy am 21.04.2023 um 09:27 Uhr (1)
das "Kopieren" muss vmtl. als Komponente einfügen umgesetzt werden. Assembly Add Occurrence API Sample Das "Verschieben" von einer zur anderen Bgr. könnte über ein Promote und Demote funktionieren.Promote occurence API SampleDemote occurence API Sample------------------Gruß KraBBy
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Userform Parameter mitgeben?
SHP am 30.10.2006 um 21:25 Uhr (0)
Hallo,kann man einer Userform Parameter mitgeben?Public Sub Test() Dim oDoc As AssemblyDocument Set oDoc = ThisApplication.ActiveDocument Dim oCompDef As AssemblyComponentDefinition Set oCompDef = oDoc.ComponentDefinition Call Ebenen.UserForm_Initialize(oCompDef, "test")End SubPublic Sub UserForm_Initialize(Komponenten As AssemblyComponentDefinition, name as string) Prüfen ob obere WE vorhanden ist On Error Resume Next Dim oPlane As WorkPlane Set oPlane = Komponenten.WorkPlanes.Item(name)End S ...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Bauteile/Baugruppen in Modelbrowser-Ordner verschieben
Andreas01 am 18.11.2022 um 23:40 Uhr (1)
Hallo Ralf,ich bekomme es Teilweise hin. Ich kann die Ordner erstellen, wenn diese nicht vorhanden sind und die Bauteile in die richtigen Ordner zu verschieben funktioniert auch. Jedoch weiß ich nicht wie ich es abfragen kann ob ein Bauteil schon in einem Ordner liegt, denn dann würde ich das Bauteil übergehen wollen.Habe schon vieles versucht und probiert aber leider ohne Erfolg.GrußAndreas
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteil entlang einer Achse, Kante verschieben
GeorgK am 02.10.2015 um 09:05 Uhr (1)
Hallo zusammen,ich komme leider mit dem folgenden Problem nicht weiter. Ich würde gerne ein Bauteil entlang einer Kante / Achse verschieben.Public Sub MovePart() Dim occ As ComponentOccurrence Set occ = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter,"Select an occurrence.") Dim i As Integer For i = 1 To 10 Dim trans As Matrix Set trans = occ.Transformation trans.Cell(2, 4) = trans.Cell(2, 4) + .5 occ.Transformation = trans Next End SubVielen Dank für Eure HilfeGeorg
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Makro um iams zu verschieben
PaulSchuepbach am 12.08.2005 um 11:46 Uhr (0)
Hallo Heiko,erst einmal Hallo im WBF.Wenn ich Dich richtig verstehe, willst alle Instanzen aus der 3. Ebene (oder aus allen Sub-Assemblies) in die erste Ebene verschieben. Also mal so gesagt: gehen tut das schon - ist aber insofern nicht ganz einfach, wenn es explizit nur die 3. Ebene sein soll - oder verstehe ich hier was falsch ?Sicher ist aber, dass dabei die Abhängigkeiten verloren gehen.Was willst Du damit erreichen ?Grüsse,Paul www.morecam.ch/cad.htm
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Führungslinientext verschieben - aber wie?
yamaha am 24.11.2008 um 12:32 Uhr (0)
Hallo zusammen,weiß jemand wie man in einer IDW einen Führungslinientext verschiebt.Habe folgendes probiert, es gibt auch keine Fehlermeldung, jedoch verschieben tut sich auch nichtsCode:Public Sub LeaderNoteTextVerschieben() Dim oDrawDoc As DrawingDocument Set oDrawDoc = ThisApplication.ActiveDocument Dim oActiveSheet As Sheet Set oActiveSheet = oDrawDoc.ActiveSheet Dim dblXMin As Double Dim dblYMin As Double For Each objLeaderNote In oDrawDoc.SelectSet Set objPoint = objLeaderNote.Position ...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Baugruppen Komponenten im 1st Level auf Referenz prüfen
Fred310 am 28.06.2023 um 19:17 Uhr (15)
Hallo KraBByFind ich.Danke für den Tip.------------------Gruß Fred
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Komponenten ersetzen
Volker E am 05.04.2017 um 17:59 Uhr (1)
Hall KraBByich probiers mal aus und streich das was ich nicht benötige wegAber trotzdem Danke für den Tipp
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : aus einer Zeichnung ...
daywa1k3r am 25.04.2006 um 17:33 Uhr (0)
Also ReferencedFiles scheint es in 11er gar nicht zu geben, so kann ich es gar nicht nachvollziehen. Aber so weit ich mich erinnern kann, bezieht sich ReferecedFiles (zumindest für ApprenticeDocument) auf die in der Baugruppe (falls einer ist) vorhandenen Dateien und nicht Komponenten. So wenn du jetzt eine Baugruppe mit 2x4 gleichen Schrauben hast, wird die ReferencedFiles von der Baugruppe nur 2 Dateien und damit 2 Mal das Gewicht von den Schrauben zurückgeben. In Wirklichkeit sind es aber 8 Schrauben (K ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Bauteil von einer Baugruppe in andere Baugruppe verschieben/kopieren
Meinrad am 21.04.2023 um 08:10 Uhr (1)
Hallo zusammen,ich stehe vor einer "Herausforderung" fuer Inventor 2021. Ich suche eine Methode/Macro um ein Bauteil von einer Baugruppe in eine andere Baugruppe verschieben bzw. kopieren zu koennen.Beide Baugruppen befinden sich in einer IAM welche geoeffnet ist.Mit "ComponentOccurrence Object" komme ich leider nicht weiter. Hier finde ich nur delete- und replace-Methoden aber keine copie-Methode in eine andere BaugruppeÜber kurze Hinweise oder einen Tipp wuerde ich mich freuen.Gruesse Meinrad[Diese Nachr ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Bohrungen mit VBA verschieben
Steff16 am 16.07.2003 um 16:01 Uhr (0)
Vielen Dank für die schnelle Antwort. Werde es gleich testen
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Führungslinientext verschieben - aber wie?
yamaha am 24.11.2008 um 13:10 Uhr (0)
Nein, geht leider nicht------------------Gruß Jörn
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteile/Baugruppen in Modelbrowser-Ordner verschieben
Andreas01 am 10.11.2022 um 13:44 Uhr (15)
Hallo zusammen,ich möchte mein Modelbrowser etwas "Aufräumen" und bestimmte Bauteile bzw. Baugruppen in verschiedene Ordner verschieben.Wie ich einen Ordner erstelle und gleichzeiteg die Bauteile/Baugruppen dort hin verschiebe, das habe ich schon herausgefunden und das funktioniert. Dim oOcc As ComponentOccurrence For Each oOcc In oDef.Occurrences Dim oNode As BrowserNode oNode = oPane.GetBrowserNodeFromObject(oOcc) oCollectionNormteile.Add(oNode) Next Dim oFolder As BrowserFolder ...
|
| In das Form Inventor VBA wechseln |
