Thema "Betreff: Ebene Tangential zur Oberfläche einer kugel und parallel zu Ebene mit ilogic" in Inventor - Deutsches Forum

Ebene Tangential zur Oberfläche einer kugel und parallel zu Ebene mit ilogic

samuel_dietrich — Tue, 18 Jul 2023 13:42:57 GMT

Hallo zusammen.

Ich versuche gerade eine Arbeitsebene auf die Oberfläche einer kugel zu erzeugen. Nur komme ich mit den Bedingungen nicht so zurecht. Ich schick unten direkt mal den ilogic Code, den ich gemacht hab mit rein.

Dim oApp As Inventor.Application
oApp = ThisApplication

Dim oPartCompDef As PartComponentDefinition
oPartCompDef = oApp.ActiveDocument.ComponentDefinition

Dim oSketch As PlanarSketch
oSketch =oPartCompDef.Sketches.Add(oPartCompDef.WorkPlanes.Item(3))

Dim oTG As TransientGeometry
oTG = oApp.TransientGeometry

'Punkte erstellen
Dim oSkPnts As SketchPoints
oSkPnts = oSketch.SketchPoints

Call oSkPnts.Add(oTG.CreatePoint2d(0/10, 3/10), False)
Call oSkPnts.Add(oTG.CreatePoint2d(0/10,-3/10),False)
Call oSkPnts.Add(oTG.CreatePoint2d(0/10, 0/10), False)

'Linien erstellen
Dim oLines As SketchLines 
oLines = oSketch.SketchLines

Dim oLine As SketchLine
oLine = oLines.AddByTwoPoints(oSkPnts(1), oSkPnts(2))

'Halbkreisbogen erstellen
Dim oArcs As SketchArcs
oArcs = oSketch.SketchArcs

Dim oArc As SketchArc
oArc = oArcs.AddByCenterStartEndPoint(oSkPnts(3), oSkPnts(1), oSkPnts(2))

'Kugel erstellen
Dim oProfile As Profile
oProfile = oSketch.Profiles.AddForSolid

Dim oRevFeature As RevolveFeature
oRevFeature = oPartCompDef.Features.RevolveFeatures.AddFull(oProfile, oLine, kJoinOperation)

'Hilfsebene erzeugen
Dim oWorkPlane As WorkPlane
oWorkPlane =oPartCompDef.WorkPlanes.AddByPlaneAndTangent(XY_WorkPlane,oProfile,oSkPnts(1))

Betreff: Ebene Tangential zur Oberfläche einer kugel und parallel zu Ebene mit ilogic

Martin-Winkler-Consulting — Wed, 19 Jul 2023 09:44:17 GMT

Kannst du den Zusammenhang deiner Frage etwas genauer beschreiben?

Warum willst du das mit iLogic machen? Wofür brauchst du das dann.....

Was meinst du mit "Bedingungen" ?

Grüße Martin

Betreff: Ebene Tangential zur Oberfläche einer kugel und parallel zu Ebene mit ilogic

samuel_dietrich — Thu, 20 Jul 2023 07:31:27 GMT

Ja klar.

Ich möchte versuchen parametrisiert Kugeln bearbeiten zu können. Dafür muss ich das in ilogic machen. Und für eine weitere Bearbeitung brauche ich die Möglichkeit Arbeitsebenen an der Oberfläche der Kugel zu erzeugen.

Mit ,,Bedingung" mein ich, das was im Add-Befehl in die Klammer kommt. Da steht sowas wie Face, Direction und ähnliches. Und ich weiß leider nicht, was damit genau gemeint ist und wie das Vorgehen bei der Erzeugung von Arbeitsebenen ist.

Vielleicht ist so eher die Problemstellung klarer geworden.

Betreff: Ebene Tangential zur Oberfläche einer kugel und parallel zu Ebene mit ilogic

Martin-Winkler-Consulting — Fri, 21 Jul 2023 18:08:58 GMT

Ich weiß das du meine Antwort nicht mögen wirst...

Wenn du so etwas programmieren möchtest musst du dich tiefer mit der Funktionsweise der API beschäftigen.

Insbesondere mit Erzeugung von Objekten. Genau das sind diese .Add(....) Befehle.

Mir hat dabei das arbeiten in VBA sehr geholfen, da man sich dort den Zustand von Objekten gut ansehen kann. In iLogic ist das schwierig bis unmöglich. Allerding muss VBA Code umgeschrieben werden um ihn als iLogic regel verwenden zu können. Denn in iLogic wird entweder VB.Net Code oder spezielle iLogic Befehle verwendet (Spalte links im iLogic Fenster)

Eine Möglichkeit dir einen Überblick zu verschaffen findest du z.B. hier:

https://help.autodesk.com/view/INVNTOR/2022/ENU/?guid=GUID-4939ABD1-A15E-473E-9376-D8208EC029EB

Ich nehme an, du hast den Code von irgendwo kopiert. Wenn man nicht versteht was da passiert, sind funktionierende Regeln am Ende ein Zufallsprodukt. Und du willst bestimmt etwas zuverlässiges haben.

Suchbegriffe bei Google: inventor api reference manual

Entschuldige bitte das ich dich da auf die "Ochsentour" verweise.

Falls im Detail Fragen auftauchen helfe ich gerne weiter.

Grüße Martin

Betreff: Ebene Tangential zur Oberfläche einer kugel und parallel zu Ebene mit ilogic

samuel_dietrich — Fri, 21 Jul 2023 18:50:33 GMT

Vielen Dank,

der Code war zwar selbst gemacht, aber ich nehme jeden Literaturverweiß dankend an.

Das hilft mir schon ungemein weiter, wenn ich ne Möglichkeit habe mich in so Sachen reinzulesen. Deshalb vielen Dank für die Antwort, ich arbeite mich da mal durch und wenn es dann noch fragen gibt kann ich die ja stellen.

Betreff: Ebene Tangential zur Oberfläche einer kugel und parallel zu Ebene mit ilogic

Martin-Winkler-Consulting — Sat, 22 Jul 2023 07:33:53 GMT

Hallo Samuel,

jetzt hat es mir doch noch in den Fingern gejuckt, zumal du geschrieben hast das du den Code selber entwickelt hast.

Hier die Lösung wie du die Arbeitsebene erstellen kannst. Das funktioniert allerdings nur einmal in einem leeren Bauteil. Danach kommt eine Fehlermeldung wegen Parametern. Die habe ich jetzt nicht weiter untersucht. Achte zukünftig darauf die richtigen Typen zu verwenden. Welcher Typ erforderlich ist wird in der IntelliSense Anzeige angegeben.

Dim oApp As Inventor.Application oApp = ThisApplication Dim oPartCompDef As PartComponentDefinition oPartCompDef = oApp.ActiveDocument.ComponentDefinition Dim oSketch As PlanarSketch oSketch =oPartCompDef.Sketches.Add(oPartCompDef.WorkPlanes.Item(3)) Dim oTG As TransientGeometry oTG = oApp.TransientGeometry 'Punkte erstellen Dim oSkPnts As SketchPoints = oSketch.SketchPoints oSkPnts.Add(oTG.CreatePoint2d(0/10, 3/10), False) oSkPnts.Add(oTG.CreatePoint2d(0/10,-3/10),False) oSkPnts.Add(oTG.CreatePoint2d(0/10, 0/10), False) 'Linien erstellen Dim oLines As SketchLines oLines = oSketch.SketchLines Dim oLine As SketchLine oLine = oLines.AddByTwoPoints(oSkPnts(1), oSkPnts(2)) 'Halbkreisbogen erstellen Dim oArcs As SketchArcs oArcs = oSketch.SketchArcs Dim oArc As SketchArc oArc = oArcs.AddByCenterStartEndPoint(oSkPnts(3), oSkPnts(1), oSkPnts(2)) 'Kugel erstellen Dim oProfile As Profile oProfile = oSketch.Profiles.AddForSolid Dim oRevFeature As RevolveFeature oRevFeature = oPartCompDef.Features.RevolveFeatures.AddFull(oProfile, oLine, kJoinOperation) Dim oPoint As Point = oTG.CreatePoint(0/10, 3/10,0) 'Hilfsebene erzeugen Dim oWorkPlane As WorkPlane 'Bei der .AddByPlaneAndTangent Funktion wird eine Ebene erwartet. Die Arbeitsebenen sind durchnummeriert so wie sie im Browserbaum stehen. 'wobei die Ebenen 1,2,3 die Ursprungsebenen sind. oPartCompDef.WorkPlanes(3) ist dann also die XY-Ebene 'oPartCompDef.WorkPlanes(4) wäre dann die neu erzeugte Arbeitsebene 'Dann musst du die Oberfläche der Kugel angeben, also Face von dem zuvor erzeugten Kugelobjekt 'Als drittes einen Punkt um die Richtung anzugeben auf welche die Arbeitsebene gesetzt werden soll. 'Dafür kannst du aber nicht die zuvor erzeugten SketchPoints nehmen da hier der Objekttyp Point (3D) gefragt ist. Daher habe ich diesen dann neu erstellt. 'API Referenz dazu: https://help.autodesk.com/view/INVNTOR/2023/ENU/?guid=GUID-ECAB3EF3-8ECA-416E-A886-0ADF80B92654 oWorkPlane = oPartCompDef.WorkPlanes.AddByPlaneAndTangent(oPartCompDef.WorkPlanes(3),oRevFeature.Faces(1),oPoint)

Viel Erfolg damit!

Gruß Martin

Betreff: Ebene Tangential zur Oberfläche einer kugel und parallel zu Ebene mit ilogic

samuel_dietrich — Sat, 22 Jul 2023 09:13:18 GMT

Vielen Dank dir.

Die Erklärungen bringen mich schon mal weiter. Nur bei Oberflächen stand immer nur was von Zylinern. Wie wird grundsätzlich dem Programm klar gemacht, dass es sich um die Oberfläche von einem anderen Körper wie eine Kugel, Kegel oder Ähnliches handelt?
Hast du dazu noch eine Seite, die das kleinschrittig erklärt?

Auf jeden Fall vielen Dank Martin

Viele Grüße Samuel