| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX | | | |  | SIEMENS PLM CONNECTION 2026 | 22. - 24. Juni 2026 | Lufthansa Konferenzzentrum Seeheim |
|
Autor
|
Thema: neue componente erzeugen (1189 mal gelesen)
|
l.pesch Mitglied
 
 Beiträge: 312 Registriert: 22.01.2004
|
erstellt am: 15. Sep. 2005 21:21 <-- editieren / zitieren --> Unities abgeben:         
Hallo alle zusammen, hab da wieder mal ein Problem möchte in meinem assembly eine neu leere componente erzeugen. Jetzt bekomme ich den code leider nicht hin. deklarire ich "units" schreibt er mir es ist eine Shared funktion, ist es aber nicht. Lass ich "units" weg funktioniert es nicht. Kann mir jemand von euch bei diesem Problem helfen? Code: Module NXJournal Sub Main Dim theSession As Session = Session.GetSession() Dim parent_part As Tag Dim new_part_name As String = "neu" Dim refset_name As String Dim instance_name As String Dim layer As Integer = 1 Dim origin As Double() = {0, 0, 0} Dim csys_matrix As Double() = {1.0, 0.0, 0.0, 0.0, 1.0, 0.0, 0.0, 0.0, 1.0} Dim n_objects As Integer Dim objects, instance As NXOpen.Tag Dim units As Integer ufassem.CreateComponentPart(parent_part, new_part_name, refset_name, instance_name, units, layer, origin, csys_matrix, n_objects, objects, instance) End Sub End Module
danke in voraus gruß l.pesch Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
stefan.f Mitglied
 
 Beiträge: 127 Registriert: 03.09.2002
|
erstellt am: 16. Sep. 2005 08:06 <-- editieren / zitieren --> Unities abgeben:          Nur für l.pesch
Hallo Leonid, so sollte es funktionieren: ---------------Schnipp------------------- Imports NXOpen Imports NXOpen.UF Imports NXOpen.Assemblies Module NXJournal Sub Main Dim theSession As Session = Session.GetSession() Dim ufSess As UFSession = UFSession.GetUFSession() Dim parent_part As Tag = theSession.Parts.Work.Tag Dim new_part_name As String = "neu" Dim refset_name As String Dim instance_name As String Dim layer As Integer = 1 Dim origin As Double() = {0, 0, 0} Dim csys_matrix As Double() = {1.0, 0.0, 0.0, 0.0, 1.0, 0.0} Dim n_objects As Integer Dim objects, instance As NXOpen.Tag Dim units As Integer = 1 ufSess.Assem.CreateComponentPart(parent_part, new_part_name, refset_name, instance_name, units, layer, origin, csys_matrix, n_objects, objects, instance) End Sub End Module ---------------Schnapp------------------- Gruß Stefan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |

| | Instandhaltungsleitung OSB Werk (m/w/d) | Sonae Arauco resultiert aus der Partnerschaft zweier großer Marken in der Welt des Holzes, Sonae Indústria und Arauco. Beide teilen die gleichen internationalen Wachstumsziele und eine langfristige Geschäftsvision. Unser Ziel ist es, die Marke der Wahl von Kunden, Mitarbeitern, Lieferanten und Gemeinschaften zu sein. Wir streben nach Exzellenz und führen die Innovation und Transformation von Holz weiter.... | | Anzeige ansehen | Feste Anstellung |
|
l.pesch Mitglied
 
 Beiträge: 312 Registriert: 22.01.2004
|
erstellt am: 16. Sep. 2005 08:22 <-- editieren / zitieren --> Unities abgeben:         
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |