Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor .NET
  Finden von Edges

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 Autodesk Produkte
Autor Thema:  Finden von Edges (812 mal gelesen)
yamaha
Mitglied
Konstrukteur


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

Beiträge: 374
Registriert: 19.05.2004

Autocad/Inventor 2019, Windows 7 Pro 64Bit

erstellt am: 25. Jun. 2010 10:59    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 zusammen,

eine Frage zu Kanten/Edges.
Man stelle sich einen Würfel vor und
ich selektiere eine Kante des Würfels.
Die Kante hat zwei Enden (StartVertex, StopVertex)

Wie finde ich am einfachsten die drei anderen Kanten
die am StartVertex zusammenkommen?

Vielen Dank für eure Hilfe.

------------------
Gruß Jörn

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

daywa1k3r
Moderator
Softwareentwickler




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

Beiträge: 3497
Registriert: 01.08.2002

Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570
Laptop: Alienware m17x
Win7, Inventor2012

erstellt am: 25. Jun. 2010 11:21    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 Nur für yamaha 10 Unities + Antwort hilfreich

Hallo Jörn,

mir ist die einfachere Methode nicht bekannt, aber eine Funktion wie z.B.

Code:

private Edge GetNextEdge (Edge argEdge)
{
// foreach...
}

die alle Kanten durchläuft und die Start/End Punkte vergleicht und die Edge zurück liefert ist doch gleich geschrieben?

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

yamaha
Mitglied
Konstrukteur


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

Beiträge: 374
Registriert: 19.05.2004

Autocad/Inventor 2019, Windows 7 Pro 64Bit

erstellt am: 25. Jun. 2010 11:45    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 Igor,

nur zu meinem Verständniss.
A) Du schlägst vor eine Methode zu erstellen, nach
- Variante 1:
1. von gewählten Kante, erhalte ich zwei Faces
2. von den Faces komme ich zu den anderen Faces
3. von den anderen Faces zu den jeweiligen Kanten.
- Variante 2
1. von gewählten Kante, komme ich zum Würfel
2. vom Würfel komme ich zu den Faces
3. von den anderen Faces zu den jeweiligen Kanten.

B) Ich wollte gefragt haben, ob es in der API eine Funktion gibt
nach Art: FindeAlleTeileDieAufPunktLiegen(PunktXVZ)

C) Funktioniert eigentlich?
    Edges1.StartVertex.Point = Edges2.StartVertex.Point

------------------
Gruß Jörn

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

yamaha
Mitglied
Konstrukteur


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

Beiträge: 374
Registriert: 19.05.2004

Autocad/Inventor 2019, Windows 7 Pro 64Bit

erstellt am: 25. Jun. 2010 14:35    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 zusammen,

hab das jetzt so gelöst

Code:

Dim oHS As Inventor.HighlightSet
Set oHS = ThisApplication.ActiveDocument.CreateHighlightSet
Set oGreen = ThisApplication.TransientObjects.CreateColor(0, 255, 0)
oHS.Color = oGreen
oHS.Clear

Dim oSelect As New clsSelect
Set oEdge = oSelect.Pick(kAllLinearEntities)
For Each oEdge1 In oEdge.Faces(1).FaceShell.SurfaceBody.Edges
    If ((oEdge1.StartVertex.Point.x = oEdge.StartVertex.Point.x) And _
        (oEdge1.StartVertex.Point.Y = oEdge.StartVertex.Point.Y) And _
        (oEdge1.StartVertex.Point.z = oEdge.StartVertex.Point.z)) Or _
          ((oEdge1.StopVertex.Point.x = oEdge.StartVertex.Point.x) And _
          (oEdge1.StopVertex.Point.Y = oEdge.StartVertex.Point.Y) And _
            (oEdge1.StopVertex.Point.z = oEdge.StartVertex.Point.z)) Then
        If (oEdge1.StartVertex.Point.x = oEdge.StartVertex.Point.x) And _
            (oEdge1.StopVertex.Point.x = oEdge.StartVertex.Point.x) Then
            oHS.AddItem oEdge1
        End If
    End If
Next



------------------
Gruß Jörn

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




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

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 25. Jun. 2010 16:27    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 Nur für yamaha 10 Unities + Antwort hilfreich

Hallo

Das könnte aber bei großen Modellen länger dauern. Mein Vorschlag wäre von der selektierten Edge auf deren Start- und Stopvertex, der wiederum alle in ihm endenden Edges liefert.

Code:
Private Sub EdgeTest()

Dim oSelect As New clsSelect
Set oEdge = oSelect.Pick(kAllLinearEntities)
Dim oHS As Inventor.HighlightSet
Set oHS = ThisApplication.ActiveDocument.CreateHighlightSet
Set oGreen = ThisApplication.TransientObjects.CreateColor(0, 255, 0)
oHS.Color = oGreen
oHS.Clear
Dim oVertex As Vertex
Set oVertex = oEdge.StartVertex
Dim oNeighbourEdge As Edge
For Each oNeighbourEdge In oVertex.Edges
        oHS.AddItem oNeighbourEdge
Next
Set oVertex = oEdge.StopVertex
For Each oNeighbourEdge In oVertex.Edges
        oHS.AddItem oNeighbourEdge
Next
End Sub


------------------
MfG
RK

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

yamaha
Mitglied
Konstrukteur


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

Beiträge: 374
Registriert: 19.05.2004

Autocad/Inventor 2019, Windows 7 Pro 64Bit

erstellt am: 25. Jun. 2010 18:33    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 rkauskh,

vielen Dank für deine Hilfe.
So etwas habe ich gesucht.

10 points

------------------
Gruß Jörn

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