---

Kurventabellengesteuert.jpg Tabellenocken.jpg

Hallo Leute.

im oberen Bild sieht man was ich habe,im unteren Bild was es werden muss. Geht es überhaupt.

Gruß Eduard   

------------------
Klug zu fragen ist schwieriger, als klug zu antworten.  

[Diese Nachricht wurde von Eduard Beser am 08. Okt. 2008 editiert.]

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

---

Voilà!
Aus der SolidWorks API Hilfe und ein paar anderen Tweaks...
Schreibt Dir eine Textdatei mit X, Y, Z Koordinaten welche Du dann wieder als Kurve importieren kannst.
Hoffe, dass Dir das weiterhilft.

Code:

---

Dim swApp As Object
Dim Part As Object
Dim sketchPointArray As Variant

Dim theSketchPoint As Object
Dim pointCount As Integer
Dim xValue As Double
Dim yValue As Double
Dim zValue As Double

Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set theSketch = Part.GetActiveSketch2

Dim intOutHandle As Integer    ' Handle Ausgabedatei
Dim strOneLine As String
Dim IVPoutput As String

intOutHandle = FreeFile
IVPoutput = "c:\test_cleaned.txt"
Open IVPoutput For Output As #intOutHandle

sketchPointArray = theSketch.GetSketchPoints2
pointCount = UBound(sketchPointArray) + 1

' For each SketchPoint
For i = 0 To (pointCount - 1)

' Get the coordinates
xValue = Round(sketchPointArray(i).X, 8) * 1000
yValue = Round(sketchPointArray(i).Y, 8) * 1000
zValue = Round(sketchPointArray(i).Z, 8) * 1000

If xValue = Empty Then xValue = "0"
If yValue = Empty Then yValue = "0"
If zValue = Empty Then zValue = "0"

' <Do something useful with the data> Hopefully! :D
strOneLine = xValue & Chr(9) & yValue & Chr(9) & zValue

Print #intOutHandle, strOneLine

Next i
Close #intOutHandle
MsgBox "Fertig!"
End Sub

---

EDIT: Makro war in METER!!! Jetzt in mm!

HenryV, merci für mi doof Fähler z'behäbe!   

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

[Diese Nachricht wurde von G. Dawg am 26. Jun. 2008 editiert.]

[Diese Nachricht wurde von G. Dawg am 26. Jun. 2008 editiert.]

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

---

Danke schön für die schnelle antwort, aber ich kenn mich damit überhaupt nicht  aus. WO muss ich diesen CODE eingeben?

------------------
Klug zu fragen ist schwieriger, als klug zu antworten. 

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

---

Ganz einfach:
Extras -> Makros -> Neu... Namen eingeben (PunkeinDatei oder was auch immer)

Code einfügen (wenn etwas dort stehen sollte, einfach überschreiben). Dann speichern.
Extras -> Makros -> Ausführen... Makro auswählen und los.

Wichtig: die Skizze muss in Bearbeitung sein, sonst gehts nicht.

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

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

---

NockenAuslaßventil.txt

Hab's ausprobiert, aber es passierte nichts.

Den Nocken habe ich jetzt hier reingestellt, könntest du mir vlt ein tip geben wo der fehler ist vlt muss die Skizze geändert werden?

Gruß Eduard

------------------
Klug zu fragen ist schwieriger, als klug zu antworten. 

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

---

Ach, Ihr (D)s und Euer doofes scharfes S! 
Das geht in keinem Browser, oder doch?

Was meinst Du damit, es passiert nichts?!
Hast Du keine Datei c:\test_cleaned.txt bekommen? Bei mir hat er eine rund 20kB Datei erstellt.
Leider habe ich keine Ahnung und keine Kontrolle, in welche Richtung das Makro die Punkte einliest. Denn, wenn ich eine Kurve damit zeichnen möchte, sagt SolidWorks, dass diese sich selbst überschneidet! 

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

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

---

Ah, Linien und Punkte löschen welche nicht benutzt werden!
Jede Kurve einzeln bearbeiten!

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

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

---

Kopiere das Makro nochmals!
Der Mist war noch in Meter! 

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

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

---

txtdatei.jpg neueKurve.jpg

Das Mokro klappt ja(bild1).

Aber komisch ist, dass wenn ich die Kurve wieder in SWX durch X,Y,Z-Kurve einzeichnen will, dann sieht es wie im Bild2 aus.

Und was heiß es jetzt hat das Makro ein Fehler oder spinnt SWX wieder mal?

Gruß Eduard

------------------
Klug zu fragen ist schwieriger, als klug zu antworten. 

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

---

Moin,

ersetze mal die Kommas durch einen Punkt!

Jan

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

---

Tuh ich morgen

jetzt mach ich FEIERABEND, nach hause und zum Spiel vorbereiten.

Russia-Champion, und die Finale gewinnen wir auch            

------------------
Klug zu fragen ist schwieriger, als klug zu antworten. 

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

---

Zitat:

---

Original erstellt von Eduard Beser:
... dann sieht es wie im Bild2 aus. ...

---

Ansicht -> Kurven! 

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

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

---

3D_Spline_Kurve.jpg

Also die Kommas haeb ich jetzt durch Punkte ersetzt.

Was kommt =========>>

P.S.: Russland hat verloren        

------------------
Klug zu fragen ist schwieriger, als klug zu antworten. 

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

---

Zitat:

---

Original erstellt von Eduard Beser:
Also die Kommas haeb ich jetzt durch Punkte ersetzt.

Was kommt =========>>

---

Ja, wie gesagt! Leider weiss ich nicht in welche Richtung das Makro die Punkte einliest.
Ob er von Oben nach Unten, oder Links nach Rechts oder sogar Kreuz und quer die Punkte aufnimmt, kann es sein, dass die Kurve sich überschneidet.
Es ist alles andere als perfekt, das Makro. Eigentlich müsstest Du die Liste jetzt in Excel (oder was auch immer) sortieren. So, dass die Koordinaten in der richtigen Reihenfolge gezeichnet werden. Tja.... tut mir leid, dass das nicht mit 2 Klicks gemacht ist! 

BTW: Spanien hat gewonnen! Und gewinnt gleich nochmals, am Sonntag!   

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

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