Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  NX Programmierung
  point on surface

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:  point on surface (1346 mal gelesen)
Hauki2905
Mitglied
Softwareentwicklung CAD-CAM


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

Beiträge: 113
Registriert: 03.02.2011

NX 7.5; 8.0; 8.5, 9.0, 10 auf Win 8.1 x64

erstellt am: 17. Mrz. 2011 16: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

hi,
weiß jemand auf die schnelle, wie ich einen punkt auf einer fläche plazieren kann? jpurnal aufzeichnen ist da ein wenig unübersichtlich.
ich bin soweit, dass ich die fläche auswählen kann und auch den punkt bekomme ich drauf. nun ist das Problem, dass ich den punkt gerne genau da einfügen will, wo ich hiongeklickt habe (sozusagen ähnlich der NX-Operation "Punkt auf fläche")
wo bekommt man diese komischen scalare, mit denen man die Lage des Punktes rel zum Nullpunkt der Fläche festlegen kann her??
Das hier habe ich bisher:
Code:

    Private Function createPointOnSurface(ByVal MyPart As Part, ByVal surface As Face) As Point

        Dim nullfeature As Features.Feature = Nothing
     
        Dim scalar As Scalar
        Dim scalar2 As Scalar
        scalar = MyPart.Scalars.CreateScalar(0.2, scalar.DimensionalityType.None, SmartObject.UpdateOption.WithinModeling)
        scalar2 = MyPart.Scalars.CreateScalar(0.85, scalar.DimensionalityType.None, SmartObject.UpdateOption.WithinModeling)
        Try
            Dim pointbuilder As NXOpen.Features.PointFeatureBuilder = MyPart.BaseFeatures.CreatePointFeatureBuilder(nullfeature)
            Dim tag As NXOpen.TaggedObject = surface
            Dim point As Point = MyPart.Points.CreatePoint(surface, scalar, scalar2, NXOpen.SmartObject.UpdateOption.AfterModeling)
            Dim point2 As Point = MyPart.Points.CreatePoint(point.Coordinates)
            pointbuilder.Point = point2

            pointbuilder.Commit()
            Return point2
        Catch ex As NXException
            Dim str As String = ex.StackTrace
        End Try
        Return Nothing

    End Function


danke schonmal für eure Hilfe!

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