| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Cideon Sparify - der digitale Ersatzteilkatalog für alle, ein Webinar am 15.10.2024
|
Autor
|
Thema: Spline über importierte Punkte ziehen... (483 mal gelesen)
|
Kraxelhuber Mitglied staatlich geprüfter Techniker Fachrichtung Maschinentechnik
Beiträge: 726 Registriert: 28.03.2007 MS Windows 7 64-bit; Intel Core i7 CPU 965 @ 3.20GHz, 12GB RAM; NVIDIA Quadro 5000 - 2,5GB; HP LP3065 - 30" TFT Monitor; AIP 2014
|
erstellt am: 26. Mrz. 2008 15:05 <-- editieren / zitieren --> Unities abgeben:
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 |
nightsta1k3r Ehrenmitglied V.I.P. h.c. plaudern
Beiträge: 11273 Registriert: 25.02.2004 Hier könnte ihre Werbung stehen!
|
erstellt am: 26. Mrz. 2008 15:21 <-- editieren / zitieren --> Unities abgeben: Nur für Kraxelhuber
|
muellc Ehrenmitglied V.I.P. h.c. ICT Specialist
Beiträge: 3501 Registriert: 30.11.2006 Inventor 2017.4.12 64 bit Windows 10 Enterprise 64 bit 3DEXPERIENCE R2016x -------------------- HP Z-Book 15 G4 32 Gig Ram NVIDIA Quadro M2200 2x HP E243i
|
erstellt am: 26. Mrz. 2008 15:33 <-- editieren / zitieren --> Unities abgeben: Nur für Kraxelhuber
|
Kraxelhuber Mitglied staatlich geprüfter Techniker Fachrichtung Maschinentechnik
Beiträge: 726 Registriert: 28.03.2007 MS Windows 7 64-bit; Intel Core i7 CPU 965 @ 3.20GHz, 12GB RAM; NVIDIA Quadro 5000 - 2,5GB; HP LP3065 - 30" TFT Monitor; AIP 2014
|
erstellt am: 26. Mrz. 2008 16:05 <-- editieren / zitieren --> Unities abgeben:
@ 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 |
Kraxelhuber Mitglied staatlich geprüfter Techniker Fachrichtung Maschinentechnik
Beiträge: 726 Registriert: 28.03.2007 MS Windows 7 64-bit; Intel Core i7 CPU 965 @ 3.20GHz, 12GB RAM; NVIDIA Quadro 5000 - 2,5GB; HP LP3065 - 30" TFT Monitor; AIP 2014
|
erstellt am: 27. Mrz. 2008 07:32 <-- editieren / zitieren --> Unities abgeben:
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 |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 27. Mrz. 2008 07:59 <-- editieren / zitieren --> Unities abgeben: Nur für Kraxelhuber
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 |
Kraxelhuber Mitglied staatlich geprüfter Techniker Fachrichtung Maschinentechnik
Beiträge: 726 Registriert: 28.03.2007 MS Windows 7 64-bit; Intel Core i7 CPU 965 @ 3.20GHz, 12GB RAM; NVIDIA Quadro 5000 - 2,5GB; HP LP3065 - 30" TFT Monitor; AIP 2014
|
erstellt am: 27. Mrz. 2008 08:21 <-- editieren / zitieren --> Unities abgeben:
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 |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 27. Mrz. 2008 08:29 <-- editieren / zitieren --> Unities abgeben: Nur für Kraxelhuber
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 |
Kraxelhuber Mitglied staatlich geprüfter Techniker Fachrichtung Maschinentechnik
Beiträge: 726 Registriert: 28.03.2007 MS Windows 7 64-bit; Intel Core i7 CPU 965 @ 3.20GHz, 12GB RAM; NVIDIA Quadro 5000 - 2,5GB; HP LP3065 - 30" TFT Monitor; AIP 2014
|
erstellt am: 27. Mrz. 2008 08:37 <-- editieren / zitieren --> Unities abgeben:
|
Kraxelhuber Mitglied staatlich geprüfter Techniker Fachrichtung Maschinentechnik
Beiträge: 726 Registriert: 28.03.2007 MS Windows 7 64-bit; Intel Core i7 CPU 965 @ 3.20GHz, 12GB RAM; NVIDIA Quadro 5000 - 2,5GB; HP LP3065 - 30" TFT Monitor; AIP 2014
|
erstellt am: 27. Mrz. 2008 09:25 <-- editieren / zitieren --> Unities abgeben:
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 |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 27. Mrz. 2008 10:00 <-- editieren / zitieren --> Unities abgeben: Nur für Kraxelhuber
|
Kraxelhuber Mitglied staatlich geprüfter Techniker Fachrichtung Maschinentechnik
Beiträge: 726 Registriert: 28.03.2007 MS Windows 7 64-bit; Intel Core i7 CPU 965 @ 3.20GHz, 12GB RAM; NVIDIA Quadro 5000 - 2,5GB; HP LP3065 - 30" TFT Monitor; AIP 2014
|
erstellt am: 27. Mrz. 2008 10:12 <-- editieren / zitieren --> Unities abgeben:
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 |
SEHER Mitglied Systemanalytiker
Beiträge: 1203 Registriert: 13.03.2001 Inventor 2 bis 2022 häufig wechselnder Rechnerverkehr
|
erstellt am: 27. Mrz. 2008 11:03 <-- editieren / zitieren --> Unities abgeben: Nur für Kraxelhuber
|
Kraxelhuber Mitglied staatlich geprüfter Techniker Fachrichtung Maschinentechnik
Beiträge: 726 Registriert: 28.03.2007 MS Windows 7 64-bit; Intel Core i7 CPU 965 @ 3.20GHz, 12GB RAM; NVIDIA Quadro 5000 - 2,5GB; HP LP3065 - 30" TFT Monitor; AIP 2014
|
erstellt am: 27. Mrz. 2008 11:21 <-- editieren / zitieren --> Unities abgeben:
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 |
PaulSchuepbach Mitglied Programmierer
Beiträge: 1005 Registriert: 01.10.2003
|
erstellt am: 27. Mrz. 2008 13:33 <-- editieren / zitieren --> Unities abgeben: Nur für Kraxelhuber
|
Kraxelhuber Mitglied staatlich geprüfter Techniker Fachrichtung Maschinentechnik
Beiträge: 726 Registriert: 28.03.2007 MS Windows 7 64-bit; Intel Core i7 CPU 965 @ 3.20GHz, 12GB RAM; NVIDIA Quadro 5000 - 2,5GB; HP LP3065 - 30" TFT Monitor; AIP 2014
|
erstellt am: 27. Mrz. 2008 14:14 <-- editieren / zitieren --> Unities abgeben:
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 |
SEHER Mitglied Systemanalytiker
Beiträge: 1203 Registriert: 13.03.2001 Inventor 2 bis 2022 häufig wechselnder Rechnerverkehr
|
erstellt am: 27. Mrz. 2008 14:23 <-- editieren / zitieren --> Unities abgeben: Nur für Kraxelhuber
|
Kraxelhuber Mitglied staatlich geprüfter Techniker Fachrichtung Maschinentechnik
Beiträge: 726 Registriert: 28.03.2007 MS Windows 7 64-bit; Intel Core i7 CPU 965 @ 3.20GHz, 12GB RAM; NVIDIA Quadro 5000 - 2,5GB; HP LP3065 - 30" TFT Monitor; AIP 2014
|
erstellt am: 27. Mrz. 2008 14:39 <-- editieren / zitieren --> Unities abgeben:
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 |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 27. Mrz. 2008 15:14 <-- editieren / zitieren --> Unities abgeben: Nur für Kraxelhuber
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 |
Kraxelhuber Mitglied staatlich geprüfter Techniker Fachrichtung Maschinentechnik
Beiträge: 726 Registriert: 28.03.2007 MS Windows 7 64-bit; Intel Core i7 CPU 965 @ 3.20GHz, 12GB RAM; NVIDIA Quadro 5000 - 2,5GB; HP LP3065 - 30" TFT Monitor; AIP 2014
|
erstellt am: 27. Mrz. 2008 16:26 <-- editieren / zitieren --> Unities abgeben:
|