iLogic Funktion: "Komponente hinzufügen" - auf Mauszeiger platzieren

iLogic Funktion: "Komponente hinzufügen" - auf Mauszeiger platzieren

praktikant-prf
Participant Participant
891Aufrufe
6Antworten
Nachricht 1 von 7

iLogic Funktion: "Komponente hinzufügen" - auf Mauszeiger platzieren

praktikant-prf
Participant
Participant

Guten Tag,

 

ich füge momentan Komponenten über die iLogic-Funktion "Komponente hinzufügen" in eine Baugruppe ein. Da diese in den freien Raum platziert werden müssen (ohne Abhängigkeiten), wäre es sehr praktisch, wenn diese an einem vorher definierten Ort platziert wird. Am allerbesten ähnlich wie bei der Funktion "iLogic-Komponente platzieren" auf dem Mauszeiger. So erspart man sich die Suche nach der hinzugefügten Komponente in der Baugruppe.

Vielen Dank im Voraus für die Mühe.

 

MfG

Stefan

0 „Gefällt mir“-Angaben
Akzeptierte Lösungen (1)
892Aufrufe
6Antworten
Antworten (6)
Nachricht 2 von 7

S_May
Mentor
Mentor
Akzeptierte Lösung

Hi @praktikant-prf 

 

das wird aktuell nur in der FDU unterstützt.

Nachricht 3 von 7

praktikant-prf
Participant
Participant

Hi @S_May

 

danke für deine Antwort. Weisst du welche Eingabeoptionen ich dann bei "position := " habe?

(Snippet: Komponente hinzufügen)

Vielen Dank im Voraus.

 

MfG

Stefan

0 „Gefällt mir“-Angaben
Nachricht 4 von 7

Anonymous
Nicht anwendbar

Guten Tag,

 

über VBA geht das so:

 

Public Sub addlastGenDoc()

'access the active document

Dim oDoc As Document

Set oDoc = ThisApplication.ActiveDocument



'get the document type

Dim eDocumentType As DocumentTypeEnum

eDocumentType = oDoc.DocumentType



Dim sDocumentType As String

Select Case eDocumentType:

Case kAssemblyDocumentObject

sDocumentType = "Assembly Document"
End Select

If sDocumentType <> "Assembly Document" Then
Exit Sub
End If

Dim fileName As String, textData As String, fileNo As Integer
fileName = "C:\CAD-WORKSPACE\..."
fileNo = FreeFile 'Get first free file number

Open fileName For Input As #fileNo
textData = Input$(LOF(fileNo), fileNo)
Close #fileNo

'Dim oApp As Inventor.Application
'Dim oDoc As Inventor.Document
Dim InventorsLogicalFileName As String
InventorsLogicalFileName = textData 'voller Dateiname der einzufügender Datei


Set oapp = GetObject(, "Inventor.Application")
Set oDoc = oapp.ActiveDocument
'Aufruf des Kommandos :
oapp.CommandManager.PostPrivateEvent kFileNameEvent, InventorsLogicalFileName
oapp.CommandManager.StartCommand kPlaceComponentCommand


End Sub
Nachricht 5 von 7

praktikant-prf
Participant
Participant

Vielen Dank @Anonymous,

 

leider programmiere ich direkt mit iLogic und bin noch ziemlich unerfahren mit dem Progreamm. Kann ich diesem VBA Code in einen bestehenden iLogic Code einsetzen (falls ja wie?) oder kennt jemand eine direkte Lösung in iLogic?

Vielen Dank im Voraus.

 

MfG

Stefan

0 „Gefällt mir“-Angaben
Nachricht 6 von 7

Anonymous
Nicht anwendbar

Guten Morgen,

 

direkt einfügen können Sie es nicht.

Aber man kann  Makros(VBA) über iLogic ausführen lassen.

Siehe hier: https://inventorfaq.blogspot.com/2017/04/uber-ilogic-vba-macro-ausfuhren-auch.html

Nachricht 7 von 7

Anonymous
Nicht anwendbar

Nochmal zu meinem Vorschlag oben:

 

Ich mache es so, dass ich über iLogic eine Text Datei erstelle inder der Filename der Datei steht die platziert werden soll.

 

iLogic führt dass Makro dann aus.

 

Das Makro liest die Text Datei ein und Platziert die Komponente.

 

Hoffe ist so verständlicher!