Hallo zusammen,
ich greife hier ein altes Thema auf, was in dem Forum schon mehrfach behandelt wurde. Ich möchte beim Einfügen einer Baugruppe eine Auswahl der Ansichtsdarstellungen haben. Keine Detailgenauigkeiten! Für die Baugruppe habe ich das soweit auch hinbekommen, in dem ich einen iLogic Code abgeändert habe. Ist aber noch nicht perfekt.
Wie bekomme ich jetzt die Abfrage der Ansichten geregelt, wenn ich die BG in einer Gesamtbaugruppe einfüge? Muss ich ein Formular anlegen? Habe ich in dem Fall gemacht. Beim Einfügen kommt die Abfrage aber erst, wenn die erste Ansicht plaziert ist. Ist ja nicht Sinn der Sache. Die Angabe in dem Formular scheint da nicht klar.
Dim oDoc As Inventor.AssemblyDocument
oDoc = ThisDoc.Document
Dim oAsmCompDef As ComponentDefinition
oAsmCompDef = oDoc.ComponentDefinition
'Dim oLOD As LevelOfDetailRepresentation
'Dim oLODs As LevelOfDetailRepresentations
'oLODs = oAsmCompDef.RepresentationsManager.LevelOfDetailRepresentations
Dim oLOD As DesignViewRepresentation
Dim oLODs As DesignViewRepresentations
oLODs = oAsmCompDef.RepresentationsManager.DesignViewRepresentations
Dim sAuswahl As String
For Each oLOD In oLODs
sAuswahl = sAuswahl & oLOD.Name & ";"
Next
sAuswahl = sAuswahl.Substring(0,sAuswahl.Length - 1)
Dim sAuswahl_array() As String = Split(sAuswahl, ";")
sAuswahl = InputListBox(oAsmCompDef.RepresentationsManager.ActiveDesignViewRepresentation.Name, sAuswahl_array, "", Title := "Ansichtsdarstellungen", ListName := "Welche Ansicht?")
Try
'oLODs.Item(sAuswahl).Activate(True)
oLODs.Item(sAuswahl).Activate
Catch
'oLODs.Item("Hauptansicht").Activate(True)
oLODs.Item("Hauptansicht").Activate
End Try
oDoc.Update
oDoc.Update2
Ich würde mich über Rückmeldungen freuen.
Beste Grüße
Dirk
javascript:InsertSMI(' %20');
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP