---

Wenn man eine große Anzahl Punkte importiert hat, gibt es eine Möglichkeit diese ohne jeden Punkt einzeln selektieren zu müssen mit einer Spline zu verbinden?

------------------
Gruß Dirk

Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)

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

---

What's new in Inventor 2009 ... 

------------------

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

---

Hallo Kraxelhuber,

WSD

http://ww3.cad.de/foren/ubb/Forum50/HTML/015744.shtml#000000

@nightsta1k3r
Da hast du ihm aber echt geholfen. 

------------------
Gruß, Gandhi
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du.
RPG FORUM---Siegen spielt

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

---

@ nightsta1k3r: I love subscription...

Danke Gandhi, ich habe mir das Makro von daywa1k3r implementiert was auch funzt...
Jetzt müßte ich nur noch wissen wie man auch per knopfdruck aus Skizzenpunkte -> Arbeitspunkte macht?!? Dann isses perfekt!

------------------
Gruß Dirk

Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)

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

---

Kann mir jemand helfen und sagen wie man aus Skizzenpunkte Arbeitspunkte macht?
Aber für eine große Anzahl von Skizzenpunkten, für einzelne Skizzenpunkte ist mir das klar.

------------------
Gruß Dirk

Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)

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

---

Hi, ich habe es ein wenig erweitert. Macht jetzt die Arbeitspunkte aus den Skizzenpunkten.

Code:

---

Sub PointsSpline()
    If ThisApplication.Documents.Count = 0 Then
        MsgBox "Das Bauteil öffnen.", vbExclamation, "Kein Bauteil"
        Exit Sub
    End If
   
   
    If ThisApplication.ActiveDocumentType <> kPartDocumentObject Then
        MsgBox "Das Bauteil öffnen.", vbExclamation, "Kein Bauteil"
        Exit Sub
    End If
   
    Dim oPart As PartDocument
    Set oPart = ThisApplication.ActiveDocument
   
    Dim oSketch As Sketch
    Dim oPoint As SketchPoint
   
    For Each oSketch In oPart.ComponentDefinition.Sketches
        For Each oPoint In oSketch.SketchPoints
            oPart.ComponentDefinition.WorkPoints.AddByPoint oPoint
        Next
    Next
   
    Dim oPoints As ObjectCollection
    Set oPoints = ThisApplication.TransientObjects.CreateObjectCollection
   
    For i = 2 To oPart.ComponentDefinition.WorkPoints.Count
        oPoints.Add oPart.ComponentDefinition.WorkPoints(i).Point
    Next
   
    Dim oSketch3D As Sketch3D
    Set oSketch3D = oPart.ComponentDefinition.Sketches3D.Add
   
    oSketch3D.SketchSplines3D.Add oPoints
End Sub

---

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

FX64 Software Solutions

[Diese Nachricht wurde von daywa1k3r am 27. Mrz. 2008 editiert.]

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

---

bu.JPG su.JPG

Hi Igor,

dieser Code funktioniert irgendwie nicht bei mir. Ich habe mal die Fehlermeldungen als Bild angehängt.
Bild SU.jpg = Fehler beim Ausführen in der Skizzenumgebung.
Bild BU.jpg = Fehler beim Ausführen in der Bauteilumgebung.
Wenn ich wieder Arbeitspunkte vorgebe, funktioniert es genauso wie das andere Makro.

------------------
Gruß Dirk

Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)

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

---

 

Zitat:

---

Original erstellt von Kraxelhuber:
Hi Igor,

dieser Code funktioniert irgendwie nicht bei mir. Ich habe mal die Fehlermeldungen als Bild angehängt.
Bild SU.jpg = Fehler beim Ausführen in der Skizzenumgebung.
Bild BU.jpg = Fehler beim Ausführen in der Bauteilumgebung.
Wenn ich wieder Arbeitspunkte vorgebe, funktioniert es genauso wie das andere Makro.

---

Ah, deine Punkte befinden sich in den 3D Skizzen?

Probier dann mal das:

Code:

---

Sub 3DPointsToSpline()
    If ThisApplication.Documents.Count = 0 Then
        MsgBox "Das Bauteil öffnen.", vbExclamation, "Kein Bauteil"
        Exit Sub
    End If
   
   
    If ThisApplication.ActiveDocumentType <> kPartDocumentObject Then
        MsgBox "Das Bauteil öffnen.", vbExclamation, "Kein Bauteil"
        Exit Sub
    End If
   
    Dim oPart As PartDocument
    Set oPart = ThisApplication.ActiveDocument
   
    Dim oSketch As Sketch3D
    Dim oPoint As SketchPoint3D
   
    For Each oSketch In oPart.ComponentDefinition.Sketches3D
        For Each oPoint In oSketch.SketchPoints3D
            oPart.ComponentDefinition.WorkPoints.AddByPoint oPoint
        Next
    Next
   
    Dim oPoints As ObjectCollection
    Set oPoints = ThisApplication.TransientObjects.CreateObjectCollection
   
    For i = 2 To oPart.ComponentDefinition.WorkPoints.Count
        oPoints.Add oPart.ComponentDefinition.WorkPoints(i).Point
    Next
   
    If oPoints.Count > 0 Then
        Dim oSketch3D As Sketch3D
        Set oSketch3D = oPart.ComponentDefinition.Sketches3D.Add
   
        oSketch3D.SketchSplines3D.Add oPoints
    End If
End Sub

---

Und immer aus der Bauteilumgebung starten.

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

FX64 Software Solutions

[Diese Nachricht wurde von daywa1k3r am 27. Mrz. 2008 editiert.]

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

---

spline.JPG

Funktioniert tadellos!!!

Danke Igor!

------------------
Gruß Dirk

Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)

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

---

Jetzt muß ich doch nochmal nachfragen Igor!
1. Woher weiß das Makro welche Punkte welcher Skizze, wenn z.B. 10 Skizzen in einem Bauteil sind, es berücksichtigen soll?
2. Kann man das Makro so anpassen, daß nach Erstellung der Spline die Arbeitspunkte die dafür erzeugt wurden wieder gelöscht werden?

------------------
Gruß Dirk

Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)

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

---

Hallo,

1. Geht alle 3D Skizzen durch und nimmt alle 3D Punkte
2. Würde funktionieren (kannst aber auch manuell machen)

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

FX64 Software Solutions

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

---

Kann man das denn so programmieren das nur die letzte Skizze verwendet wird?

------------------
Gruß Dirk

Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)

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

---

Zitat:

---

Kann man das denn so programmieren das nur die letzte Skizze verwendet wird?

---

Ja!

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

Mh, war wohl nicht deutlich genug...

Könnte mir das jemand der sich mit sowas auskennt mal anpassen?
Ich würde es ja selber machen wenn ich es könnte...

------------------
Gruß Dirk

Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)

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

---

Zitat:

---

Original erstellt von Kraxelhuber:
Ich würde es ja selber machen wenn ich es könnte...

---

Hallo Dirk,

schau in den Code und lerne draus - einfach mit try & error

BTW: das 1. Zauberwort dazu heisst 'bitte' und das 2. Zauberwort heisst '...WorkPoints(xx).Delete'

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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

---

Hallo Paul,

upps, das 1. Zauberwort habe ich eben vergessen...
Sollte eben natürlich nicht so plump rüberkommen!

Das mit den "WorkPoints(xx).Delete" schaue ich mir nochmal an.
Wichtiger fände ich noch, dass er nur die Punkte der letzten Skizze berücksichtigt.
Hättest du dafür auch etwas im repatoir?

------------------
Gruß Dirk

Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)

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

---

Zitat:

---

Hättest du dafür auch etwas im repatoir?

---

Ja!

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

Könntet ihr mich "1.Zauberwort" evtl. an eurem Wissen teilhaben lassen, sodass ich die umschriebene Problematik auch versuchen kann zu lösen?
Wäre echt nett... BITTE!
Alles andere bringt den Informationsfluß für zukünftige Wissenbedürftige auch nicht gerade auf den Punkt, wenn sie sich 10 Beiträge die eigentlich unnötig sind, durchlesen müssen...

------------------
Gruß Dirk

Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)

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

---

Mit:

Code:

---

    Set oSketch = oPart.ComponentDefinition.Sketches3D(1)

---

belegst du deine oSketch Variable mit der ersten Skizze. Und mit:

Code:

---

        For Each oPoint In oSketch.SketchPoints3D
            oPart.ComponentDefinition.WorkPoints.AddByPoint oPoint
        Next

---

läufst du alle Punkte durch.

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

FX64 Software Solutions

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

---

Vielen Dank Igor!

------------------
Gruß Dirk

Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)

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