---

Hallo Zusammen
Ich habe eine Kurve die ich in eine Excel-Tabelle exportieren sollte. Hat mir jemand einen Tip? Die Kurve kommt aus einer Skizze. Ich hab bis jetzt nichts gefunden.
Grüsse
Patrice

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

---

Hallo,

eine SE-eigene Funktion habe ich dafür in der 18 auch nicht gefunden. Es würde mich aber wundern, wenn es dafür kein Makro geben würde.

Update: Ich habe eben die Suchfunktion etwas geschändet, aber bis auf einen Beitrag aus 2005 wo das auch schon ein Thema war, ist nichts zu finden.

Gruß Mike

[Diese Nachricht wurde von Mike Ulbrich am 06. Mrz. 2007 editiert.]

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

---

Hallo,

schau mal da, vielleicht hilft das weiter.
http://ww3.cad.de/foren/ubb/Forum3/HTML/003180.shtml

Gruss Matthias

------------------
SE V19 SP3
SePropManager.NET von
www.leemann-software.net

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

---

Moin,

kurzes Beispiel:

leeres Part nur mit 1 Skizze mit einer Kurve

dann kann man man die Punkte so auslesen. In Excel muessen sie dann
noch vor dem Speichern * 1000 genommen werden.

modeng

=======================

Private Sub Form_Load()

Dim objApp As SolidEdgeFramework.Application
Dim objPar As SolidEdgePart.PartDocument
Dim oBsplines As BSplineCurves2d
Dim lNodes As Long
Dim objNodes() As Double

On Error GoTo 0

Set objApp = GetObject(, "SolidEdge.Application")
Set objDoc = objApp.ActiveDocument

Set oBsplines = objDoc.Sketches.Item(1).Profiles.Item(1).BSplineCurves2d

If oBsplines.Count > 0 Then
    Call oBsplines.Item(1).GetData(Numberofnodes:=lNodes, Nodes:=objNodes)
    For i = 0 To UBound(objNodes) Step 2
        ' Achtung Werte x und y in Metern!
        Debug.Print "X = " & objNodes(i) & "  Y = " & objNodes(i + 1)
    Next i
End If
'
Set objApp = Nothing
Set objPar = Nothing
Set oBsplines = Nothing

End Sub

------------------
Don't feed the engineers!

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