---

Hallo zusammen, 

ich möchte gerne mithilfe von iLogic eine Bohrung über das Bohrungs-Feature erstellen. Weiß jemand von euch, wie das funktioniert? 

Vielen Dank im voraus für eure Hilfe / Beiträge

Grüße

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

---

Moin

Füll mal bitte deine SysInfo aus, damit man wenigstens weiß von welcher Inventorversion wir reden.
Grob zusammengefasst muss deine Regel eine der Add-Methoden des HoleFeatures-Objektes aufrufen, nachdem du alle für die Erstellung notwendigen Infos zusammengesammelt hast. Welche das sind, hängt von der Art der Bohrung ab.
Oder willst du "nur" den Bohrung Befehl starten? Das geht über den CommandManager für ein Bauteil mit

Code:

---

ThisApplication.CommandManager.ControlDefinitions("PartDMHoleCmd").Execute

---

------------------
MfG
Ralf

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

---

Hallo Ralf, ich bin gerdae auf den Beitrag/ deine Antwort gestoßen. Ich bin absoluter anfänger in ilogic/ VB
Ich finde es lästig zB. bei einer Gewinde Bohrung M5 immer wieder alles auszufüllen. Ich wollte mir eine Regel für ein Icon machen wo die Werte interkegt sind. Ich habe dann ein Sikkze mit einem Mittelpunkt, drücke das Icon M5 und kann gleich die Mittelpunkt wählen. Mit deinem Code geht der Bohrbefehl schonmal auf. Aber wie mache ich wieter. Wie komme ich an die richten Parameternamen. ZB. Typ Bohrung= Gewinde & Aufsatz= keinen...Kannst du mir da tipps geben? Wo/Wie kann ich mich da schlau machen? Besten Dank vorab! Grüße Marco

------------------
Probleme!? nö Herausforderungen.....

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

---

Zitat:

---

Original erstellt von MaVolk:
Ich finde es lästig zB. bei einer Gewinde Bohrung M5 immer wieder alles auszufüllen

---

dann ist der Einstieg über Presets / Voreinstellungen die bessere Wahl.
die sind genau dafür geschaffen worden ...

https://help.autodesk.com/view/INVNTOR/2022/DEU/?guid=GUID-0FDF0162-5374-4FC8-B6E3-59FDBC9AAA40

------------------

------------------
Es reicht nicht, sich Blödsinn nur auszudenken, wenn man ihn nicht auch bis zur letzten Konsequenz durchzieht!

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

---

Moin

100% Ack, nutze die gespeicherten Voreinstellungen für ein Vorhaben. Ich glaube, dann brauchst du keine Programmierung.

Man hat im Inventor über die API keinen dokumentierten Zugriff auch die Dialoge. Das heißt, ich kann nicht den Bohrungsbefehl starten und irgendwelche Werte eintragen bzw. Optionen auswählen. Man könnte, theoretisch, mit Sendkeys eine Folge aus Tabulator, Leertaste und Zeichen aufrufen und so eine Bedienung des Dialoges durch den Benutzer mit der Tastatur simulieren. Das passiert dann im Blindflug, es gibt keine Kontrolle was man da macht.

------------------
MfG
Ralf

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

---

Besten Dank! Habe ich nicht gekannt!

------------------
Probleme!? nö Herausforderungen.....

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

---

Hallo Ralf, besten Dank für deine Antwort! Das mit den Voreinstellungen habe ich nicht gekannt! Das holft mir schon mal weiter. Schade das diese nicht geht, denn dann wäre es ja noch ein paar klicks weniger....
Grüße & Danke
Marco

------------------
Probleme!? nö Herausforderungen.....

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

---

Moin

Man könnte schon ein Makro bauen, dass einen Skizzenpunkt als Eingabe annimmt und eine fix definierte Bohrung einfügt. Mal als Beispiel:

Code:

---

Public Sub HoleSample()
    Dim oPartDoc As PartDocument = ThisApplication.ActiveDocument
    Dim oCompDef As PartComponentDefinition = oPartDoc.ComponentDefinition
    Dim oHoleCenters As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection
    oHoleCenters.Add(ThisApplication.CommandManager.Pick(kSketchPointFilter, "Bitte Skizzenpunkt auswählen...(ESC für Abbruch)")
   
    If oHoleCenters.Count = 0 Then Exit Sub

    ' erstellt eine Durchgangsbohrung mit 1cm Durchmesser
    Call oCompDef.Features.HoleFeatures.AddDrilledByThroughAllExtent(oHoleCenters, "1 cm", kPositiveExtentDirection)
End Sub

---

------------------
MfG
Ralf

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

---

Hallo Ralf, danke für deine Rückmeldung und den Code. Ich habe ein wenig probiert und mit hilfe von KI hat das dann funktioniert. Dazu habe ich ein Icon gemach. Wenn ich auf ein Bauteil eine Skizze mit einem Punkt lege und dann das Icon drücke kann ich den Punkt wählen und die Borhrung wird ausgeführt.
Genau so dachte ich mir das. Mit einem Mausklick....
Wie geschrieben bin ich Anfänger...
In der Lezten Zeile "' Durchgangsbohrung Ø 1 cm" steht ja der Borhbefehl mit den Bohrparametern.Richtig?
Wie komme ich an die jweieilgen parameter für Gewinde, Senkung usw.?
Könnt ich auch Vorlagen anlegen und diese im Makro aufrufen.

Public Sub HoleSample()

    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument

    Dim oCompDef As PartComponentDefinition
    Set oCompDef = oPartDoc.ComponentDefinition

    Dim oHoleCenters As ObjectCollection
    Set oHoleCenters = ThisApplication.TransientObjects.CreateObjectCollection

    Dim oPick As Object

    On Error Resume Next
    Set oPick = ThisApplication.CommandManager.Pick( _
        kSketchPointFilter, _
        "Bitte Skizzenpunkt auswählen... (ESC für Abbruch)")
    On Error GoTo 0

    If oPick Is Nothing Then Exit Sub

    oHoleCenters.Add oPick

    ' Durchgangsbohrung Ø 1 cm
    Call oCompDef.Features.HoleFeatures.AddDrilledByThroughAllExtent( _
        oHoleCenters, "1 cm", kPositiveExtentDirection)

End Sub

------------------
Probleme!? nö Herausforderungen.....

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

---

Moin

Die verschiedenen Bohrungstypen werden mit unterschiedlichen Add-Methoden erzeugt. Am Besten mal die zugehörige API-Doku für das HoleFeature lesen. Man kann die jeweils erforderlichen Werte alle im Code hinterlegen.

------------------
MfG
Ralf

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