| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX | | | |  | Productronica 2025 - Weltleitmesse für Elektronikfertigung, eine Veranstaltung am 18.11.2025
|
|
Autor
|
Thema: neue componente erzeugen (1073 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: 126
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 |
| | Bautechniker und Bauzeichner (m/w/d) für die Beton- / Betonfertigteilplanung | GOLDBECK realisiert zukunftsweisende Immobilien in Europa. Wir verstehen Gebäude als Produkte und bieten alle Leistungen aus einer Hand: vom Design über den Bau bis zu Services im Betrieb. Aktuell beschäftigt unser Familienunternehmen mehr als 13.000 Mitarbeitende an über 100 Standorten bei einer Gesamtleistung von über 6,3 Mrd. Euro. Unser Anspruch ?building excellence? steht dabei für Spitzenleistungen ... | | 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 >>)
 |
Foren auf CAD.de
| 
