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