Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  NX Programmierung
  Journal (VB) - Senkbohrung erstellen

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
Autor Thema:  Journal (VB) - Senkbohrung erstellen (839 mal gelesen)
met
Mitglied
CAD-Admin / Konstrukteur


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

Beiträge: 137
Registriert: 23.07.2004

erstellt am: 14. Okt. 2014 15:32    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,

hat jemand ein Beispiel wie man in einem Journal eine Senk-Bohrung auf eine ausgewählte Datum-Plane mit best. Koordinaten erstellen kann?

Danke im Voraus

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



Techniker für Heiz-, Kühldeckensysteme (m/w/d)

Techniker für Heiz-, Kühldeckensysteme (m/w/d)

Online bewerben

Mit WhatsApp bewerben

Standort: Frankfurt

Ihre Benefits - Attraktiv

  • Ihnen sind keine Grenzen gesetzt: Bei wego vti stehen Ihnen alle Türen offen, Ideen einzubringen und umzusetzen, Projekte mitzugestalten und sich persönlich weiterzuentwickeln.
  • Eine leistungsgerechte Vergütung und attraktive Erfolgsprämien....
Anzeige ansehenVerfahrenstechnik
met
Mitglied
CAD-Admin / Konstrukteur


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

Beiträge: 137
Registriert: 23.07.2004

Solidworks 2017
TCE 9.1.3
NX 5
3ds max 2017/2019
CorelDraw 12

erstellt am: 15. Okt. 2014 14:20    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,

das funktioniert schon mal...

Code:
' NX 5.0.6.3
' Journal created by met on Tue Oct 14 14:41:22 2014 Mitteleuropäische Sommerzeit
'
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

        theSession.ListingWindow.Open()

        Dim Hole As Features.Feature = CreateHole(workPart, _
                                                  CType(workPart.Bodies.FindObject("EXTRUDE(11)"), Body), _
                                                  New Point3d(0, 40, 20), 6, 5)
    End Sub

    Function CreateHole(myPart As Part, myBody As Body, myPoint As Point3d, _
                        myDiameter As Double, myDepth As Double) As Features.Feature
        Dim HolePoint As Point = myPart.Points.CreatePoint(myPoint)
        Dim holePackageBuilder1 As Features.HolePackageBuilder
        holePackageBuilder1 = myPart.Features.CreateHolePackageBuilder(Nothing)
        holePackageBuilder1.HolePosition.AddSmartPoint(HolePoint, 1)
        holePackageBuilder1.GeneralTipAngle.RightHandSide = "0"
        holePackageBuilder1.GeneralHoleDiameter.RightHandSide = myDiameter
        holePackageBuilder1.GeneralHoleDepth.RightHandSide = myDepth
        Dim targetBodies5(0) As Body
        targetBodies5(0) = myBody
        holePackageBuilder1.BooleanOperation.SetTargetBodies(targetBodies5)
        Dim Hole As Features.Feature = holePackageBuilder1.Commit()

        Return Hole
    End Function

End Module


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)2023 CAD.de | Impressum | Datenschutz