---

Ja es arbeiten ja mehrere an ähnlichen Problemen.
Referenzebenen und Keypointcurve haben wir ja nun. Aber damit haben die Lücken in der API-Doku oder meinem Verständnis kein Ende.

Ich würde gerne eine Schnittkurve zwischen einer BlueSurf und einer Referenzebene erstellen. Die Methode dazu benötigt zwei FACES-Objekte.
Aus der BlueSurf ist das kein Problem. Aber die Referenzebene scheint sowas nicht zu unterstützen. Wo krieg ich die nun her? Hab ich was übersehen?

Sub main()

Dim o_app As SolidEdgeFramework.Application
Dim o_doc As SolidEdgePart.PartDocument
Dim o_refPlanes As RefPlanes
Dim o_refPlane As RefPlane
Dim o_consts As Constructions
Dim o_bs1 As BlueSurf
Dim o_bs2 As BlueSurf
Dim o_iscs As IntersectionCurves
Dim o_isc As IntersectionCurve
Dim o_f1 As Faces
Dim o_f2 As Faces

Set o_app = GetObject(, "SolidEdge.Application")
Set o_doc = o_app.ActiveDocument

Set o_consts = o_doc.Constructions
Set o_refPlanes = o_doc.RefPlanes
Set o_Refplane = o_Refplanes.Item(1)

'BlueSurfs ermitteln
Set o_bs1 = o_consts.BlueSurfs(1)
Set o_bs2 = o_consts.BlueSurfs(2)

' Intersection Curve

    Set o_f1 = o_bs1.Faces(1)
'?? Set o_f2 = ??????

    Set o_iscs = o_consts.IntersectionCurves
    Set o_isc = o_iscs.Add(o_f1,o_f2)

End Sub

------------------
APeters@BSS-Online.de

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