Bauteil in Baugruppe und Unterbaugruppe in VB (Autodesk/Inventor .NET)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

PNY präsentiert die PRO Elite High Endurance microSD-Flash-Speicherkarten für Videoüberwachung und kontinuierliche Aufzeichnung, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Bauteil in Baugruppe und Unterbaugruppe in VB (1236 mal gelesen)

hundeschnauze
Mitglied
Konstrukteur

Senden Sie eine Private Message an hundeschnauze

Schreiben Sie einen Gästebucheintrag für hundeschnauze

Beiträge: 4
Registriert: 27.01.2010

erstellt am: 19. Feb. 2012 18:58

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo Zusammen,
Ich bin heute zum ersten Mal in diesem Forum und habe gleich eine Frage.
In Inventor habe ich schon einige Erfahrung, aber jetzt soll ich in VBA eine Aufgabe lösen.
Und zwar habe ich eine Hauptbaugruppe mit Unterbaugruppen und in diesen Unterbaugruppen sind Bauteile verbaut. Nun will ich aus der Hauptbaugruppe über die Unterbaugruppe einige Parameter der Bauteile ändern und zwar mit VBA.
Bitte kann mir irgendeiner von Euch da weiterhelfen und mir ein Beispiel oder ähnliches zukommen lassen

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer

Senden Sie eine Private Message an CAD-Huebner

Schreiben Sie einen Gästebucheintrag für CAD-Huebner

Beiträge: 9812
Registriert: 01.12.2003

Inventor 20xx, Visual Studio Express

erstellt am: 19. Feb. 2012 20:29

<-- editieren / zitieren -->

Unities abgeben:

Nur für hundeschnauze

Es reicht völlig, die Frage in einem Breiech zu stellen - Doppelpostings sind nicht so gern gesehen.
Also am besten hier weitermachen. http://ww3.cad.de/foren/ubb/Forum258/HTML/001291.shtml

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

Anzeige:	Infos zum Werbeplatz >>
BauCaD Architektur CAD APP für 3D, AEC - Architektur-, Ingenieur- und Bauwesen BauCaD für Hochbau/2D/3D/BIM Einfache Befehle, mächtige Workflows und individuelle Auswertungen bis hin zum BIM-konformen 3D-Modell. Aber egal, ob Sie 2D zeichnen, 3D modellieren oder BIM auswerten, mit BauCaD Architektur, haben Sie die notwendige Software dafür.

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik, Master Eng. IT-Security & Forensic

Senden Sie eine Private Message an rkauskh

Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2933
Registriert: 15.11.2006

Windows 10 x64, AIP 2020-2025

erstellt am: 20. Feb. 2012 21:35

<-- editieren / zitieren -->

Unities abgeben:

Nur für hundeschnauze

Was genau soll denn geändert werden? Ein bestimmter Parameter? Name? Wert? Beschreib mal genauer was du vor hast. Eine relativ einfache Möglichkeit wäre durch die referenzierten Dokumente zu gehen und wenn der Parametername bekannt ist, den Wert neu zu setzen.

Code:
Private Sub ParameterChange()
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oRefedDoc As Document
Dim oRefedPartDoc As PartDocument
Dim orefedAssDoc As AssemblyDocument
Dim oParameter As Parameter
For Each oRefedDoc In oDoc.AllReferencedDocuments
If TypeOf oRefedDoc Is PartDocument Then
Set oRefedPartDoc = oRefedDoc
Set oParameter = oRefedPartDoc.ComponentDefinition.Parameters.Item("Name_des_Parameters")
oParameter.Value = 123 '...usw
ElseIf TypeOf oRefedDoc Is AssemblyDocument Then
Set orefedAssDoc = oRefedDoc
Set oParameter = orefedAssDoc.ComponentDefinition.Parameters.Item("Name_des_Parameters")
oParameter.Value = 123 '... usw
End If
Next
End Sub

------------------
MfG
RK

[Diese Nachricht wurde von rkauskh am 20. Feb. 2012 editiert.]

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

BauCaD Architektur CAD APP für 3D, AEC - Architektur-, Ingenieur- und Bauwesen