Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  NX
  Reuse Library / VB Makro

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX
  
HBB Engineering: Kostenlose NX Lernvideos auf YouTube (NX)
Autor Thema:  Reuse Library / VB Makro (2218 mal gelesen)
HansMagik
Mitglied



Sehen Sie sich das Profil von HansMagik an!   Senden Sie eine Private Message an HansMagik  Schreiben Sie einen Gästebucheintrag für HansMagik

Beiträge: 22
Registriert: 18.05.2011

CATIA V5R19, Siemens NX 7.5.1.5/7.5.3.3

erstellt am: 19. Jul. 2011 14:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen,

ich habe folgendes:
Ein Assembly mit Arrangements, das ich via reuse library einfügen möchte. Es hat ein Bauteil, das entweder oben oder unten angeschraubt wird. Hierfür habe ich Arrangements angelegt.

Beim Einfügen möchte ich zwischen diesen Arrangements umschalten können. Hierfür habe ich das Product Template Studio benutzt.
Klappt aber leider nicht so, wie es soll, da Arrangements (anscheindend) nicht wie etwa Maße etc an das PTS weitergegeben werden.
Weitere Idee war, das via VB anzustoßen. Ich habe das erstmal das Journal aufnehmen lassen und wollte das Abspielen.
Tut aber nicht,
Vielleicht hat einer von Euch eine Idee, wie man Arrangements in templates integrieren kann?
Ich würde mich freuen.
Vielen Dank sagt Euer Hans

Code:
' NX 7.5.3.3
' Journal created by Daylight Time
'
Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Dim displayPart As Part = theSession.Parts.Display

' ----------------------------------------------
'  Menu: Assemblies->Arrangements...
' ----------------------------------------------
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Edit Assembly Arrangements")

Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Set Assembly Arrangement")

Dim arrangement1 As Assemblies.Arrangement = CType(workPart.ComponentAssembly.Arrangements.FindObject("Arrangement OBEN"), Assemblies.Arrangement)

workPart.ComponentAssembly.RootComponent.SetUsedArrangement(arrangement1)

theSession.DeleteUndoMark(markId2, Nothing)

' ----------------------------------------------
'  Menu: Tools->Journal->Stop Recording
' ----------------------------------------------

End Sub
End Module


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

mseufert
Ehrenmitglied V.I.P. h.c.
Freiberuflicher CAD/CAM Ingenieur


Sehen Sie sich das Profil von mseufert an!   Senden Sie eine Private Message an mseufert  Schreiben Sie einen Gästebucheintrag für mseufert

Beiträge: 2690
Registriert: 18.10.2005

HP Z420
WIN7 64 Win 10
UG NX6-2306
3D Printer Prusa MK2 S

erstellt am: 21. Jul. 2011 19:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für HansMagik 10 Unities + Antwort hilfreich

Hallo Hans,

an dem Journal ist nichts zu erkennen, was eindeutig falsch ist. Denkbar ist lediglich, daß in Deinem WorkPart das Arrangement OBEN nicht gefunden wird. Das WorkPart muß also zum Zeitpunkt der Ausführung das selbe sein, wie zum Zeitpunkt der Aufzeichnung, dann sollte es auch funktionieren.

Gruß, Michael

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz