|
NX Programmierung : VB.Net Light erstellen
met am 06.07.2011 um 10:37 Uhr (0)
Hallo Michael,der CreateLightBuilder benötigt ein nxopen.light. Wie kann ich das erstellen?Code: Dim theSession As Session = Session.GetSession() Dim workPart As Part = theSession.Parts.Work Dim displayPart As Part = theSession.Parts.Display Dim LB As Display.LightBuilder = Nothing Dim L As Light = Nothing LB = displayPart.Views.CreateLightBuilder(L) LB.LightType = LightType.Distant LB.LightShadowType = Display.LightBuilder.ShadowType.SoftEdged LB.SourcePosition.SetCoordinates(Ne ...
|
|
NX Programmierung : VB.NET: dll ausführen in NX5
met am 16.01.2008 um 07:56 Uhr (0)
Hallo,ich habe folgenden code als dll kompiliert und auf einem Server im Hausnetz abgelegt.Warum läuft das Programm nicht auf jedem Rechner (Datei-Ausführen-NX Open...)? An einigen Rechnern kommt eine Zugriffswarnung. Auf allen Rechnern ist aber sogar das Framework 3 installiert.Wenn ich das Programm lokal auf den Rechner kopiere und ausführe läuft es einwandfrei.code:Code:Option Strict Off Imports NXOpenImports NXOpen.UFImports NXOpen.UIImports NXOpen.UtilitiesModule MyProject Function ufcre() As Integer ...
|
|
NX Programmierung : Bohrung an Bezugspunkt
met am 18.03.2008 um 17:52 Uhr (0)
Hallo zusammen,mit folgenden journal kann man eine Bohrung auf eine Ebene platzieren.Wie kann ich die Bohrung automatisch auf einen Bezugspunkt den ich auswähle festsetzen?Code: NX 5.0.1.4 Journal created by met on Fri Feb 29 08:22:10 2008 Westeuropäische NormalzeitOption Strict OffImports SystemImports NXOpenModule NXJournal1 Sub Main() Dim theSession As Session = Session.GetSession() Dim theUI As UI = UI.GetUI() Dim workPart As Part = theSession.Parts.Work Dim ObjList() As NXObject = Nothing ...
|
|
NX Programmierung : deleteFaceBuilder
met am 30.03.2011 um 07:41 Uhr (0)
Hallo,für Strg+a gibt es wahrscheinlich keine NXOpen Funktion, oder ?! Gruß, met
|
|
NX Programmierung : Radius von Fläche
met am 17.03.2011 um 11:30 Uhr (0)
Hallo,für Cylindrical habe ich es hinbekommen. Aber wie bekomme ich den Radius von SurfaceOfRevolution?Code:Imports SystemImports NXOpenModule Module1 Dim theSession As NXOpen.Session = Session.GetSession() Sub Main() Ausgabe(Now) Dim workPart As Part = theSession.Parts.Work For Each aktAttribut As NXObject.AttributeInformation In workPart.GetAttributeTitlesByType(NXObject.AttributeType.Any) Ausgabe(aktAttribut.ToString) Next Flächen im workPart For Each aktBody As Body In workPart ...
|
|
NX Programmierung : Radius von Fläche
met am 17.03.2011 um 10:05 Uhr (0)
Hallo,hat jemand ne Ahnung, wie die den Radius von SurfaceOfRevolution und Cylindrical auslesen kann?Wenn man eine Fläche auswählt und Informationen--Objekt.. klickt, wird der Radius im ListingWindow ausgegeben.Code:Imports SystemImports NXOpenModule Module1 Dim theSession As NXOpen.Session = Session.GetSession() Sub Main() Ausgabe(Now) Dim workPart As Part = theSession.Parts.Work Flächen im workPart For Each aktBody As Body In workPart.Bodies Ausgabe(aktBody.JournalIdentifier & " - " & ...
|
|
NX Programmierung : Synchronize Subassembly Properties mit NXopen
met am 25.08.2011 um 14:48 Uhr (0)
Hallo,wie kann ich per Journal/NXopen "Component Properties -- Assembly -- Synchronize Subassembly Properties -- Display" ausführen?Oder gibt es eine andere Funktion, die das gleiche bewirkt?
|
|
NX Programmierung : Synchronize Subassembly Properties mit NXopen
met am 26.08.2011 um 06:28 Uhr (0)
Hallo Michael,es taucht nur auf, wenn in der Komponente Änderungen vorgenommen werden.Ich habe z.B. folgendes gemacht:1. je ein Teil mit einem Würfel und einem Kugel erstellt2. Baugruppe BGxx mit Komponente Würfel und Kugel3. Baugruppe BGrot mit Komponente BGxx erstellt4. in BGrot den Würfel und die Kugel rot eingefärbt5. Baugruppe BGblau mit Komponente BGxx erstellt6. in BGblau den Würfel und die Kugel blau eingefärbt7. Baugruppe BGkpl mit Komponenten BGrot und BGblau erstelltIn GBkpl werden die Würfel un ...
|
 |
NX Programmierung : Linie in Skizze erstellen
met am 27.04.2017 um 10:13 Uhr (15)
Hallo zusammen,hier die Lösung:UFSession.Csys.MapPointCode:Option Strict OffImports SystemImports NXOpenModule NXJournal300 Sub Main() Dim theSession As Session = Session.GetSession() Dim workPart As Part = theSession.Parts.Work Dim displayPart As Part = theSession.Parts.Display Dim mySketch As Sketch = Nothing Try For Each tmpFeature As Features.Feature In workPart.Features If tmpFeature.Name = "Skizze_Text" Then mySketch = CType(tmpFeature, Features.SketchFeature).Ske ...
|
