Hallo...
ich versuche gerade unter Assembly-Modus ein Punkt (Arbeitspunkt) über drei Ebenen zu erzeugen. Genaugenommen aus 2 (plane)Ebenen und einer Kugeloberfläche --> ergibt zwei Punkte....
Ich habe folgendes probiert...
Public Sub TestSelection()
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oSelect As New clsSelect
Dim oEbene1 As WorkPlane
Set oEbene1 = oSelect.Pick(kWorkPlaneFilter)
Dim oEbene2 As Face
Set oEbene2 = oSelect.Pick(kAllPlanarEntities)
Dim oEbene3 As Face
Set oEbene3 = oSelect.Pick(kPartFaceSphericalFilter)
Dim oPoint As WorkPoint
Set oPoint = oDoc.ComponentDefinition.WorkPoints.AddByThreePlanes(oEbene1, oEbene2, oEbene3)
End Sub
Ich bekomme die Fehlermeldung : Laufzeitfehler '...'
Die Methode 'AddByThreePlanes' für das Objekt '_IRxWorkPoints' ist fehlgeschlagen.
Wo liegt mein Problem? Ist es weil Inventor eine Kugeloberfläche nicht als 'Plane' ansieht? Wie kann man es sonst lösen?? Hat einer ne Idee?
Gruß
wehk
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP