iLogic: Text auf Zeichnung schreiben, wenn dargestelltes Teil ein Blechteil ist

[Anonymous]

Inventor 2018:

Hallo Forum,

ich automatisiere gerade unsere Zeichnungserstellung mit iLogic. Folgendes fehlt noch:

Wenn ich auf dem leeren Zeichnungsblatt eine neue Ansicht erzeuge, dann möchte ich abfragen, ob das darzustellende Bauteil ein Blechteil ist. Wenn ja, dann kommt ein Skizzensymbol dazu und die Ansicht mit der Abwicklung.

Wenn es keinen passenden Ereignisauslöser gibt, dann könnte man ja auch iTrigger verwenden.

Ich habe leider bisher weder hier noch in den Weiten des Internets was Hilfreiches gefunden.

Ich wäre sehr dankbar für den einen oder anderen Tipp.

Danke,

Werner

[Juergen_Wagner]

Da fehlt eine Datei und zwar diese:

Das hat zur Folge, dass die Zeichnung ein Problem hat, die Ansicht korrekt zu laden, d.h. der Ansicht ist kein Modell zugeordnet und so kann auch der Code auch kein Modell ermitteln.

1. Sind die Fragezeichen bei dir auch an bzw. kommen auch die Meldungen?
   Falls Ja: Das ist die Ursache, das es nicht geht
2. Falls Nein: Mach ein Pack&Go ausgehen von der Zeichnung mit meinem Tool. Dann kommt die IDW, die Blech IPT und die Parameter-IPT mit. Da mein 1-Klick pack&Go ein ZIP macht (siehe Anleitung unten) kannst du ruck Zuck den ZIP-Pfad in die Zwischenablage kopieren und dann damit die ZIP hier hochladen.
   

 PS: Das ist übringens genau das, was ich oben rot hervorgehoben habe:

1. Da muss eine Ansicht auf dem Blatt sein
2. UND der Ansicht muss auch ein Modell zugeordnet sein d.h. der Inventor muss zu der Ansicht ein voll aufgelöstes Modell vorfinden.
   Das ist diese Zeile Code:
   Auf Blatt => AlleAnsichten und da die ersten will ich das zugrundeliegende Modell haben. Bei einer Ansicht, bei der das Modell nicht aufgelöste Referenzen hat, ist das aber nicht der Fall. Du siehst zwar die "Striche" der Ansicht, aber der Ansicht ist i.M. kein Modell zugeordnet.
   

   Modell = oSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument

[Anonymous]

Na, da hab ja genau die richtige Datei mitgeschickt. Mit allen anderen, die ich testete, gings aber genausowenig.

Ich weiß auch, dass rote Kreuze und Fragezeichen zu beliebigem Fehlverhalten von Inventor führen. Bei meinen Tests kam keinerlei Fehlermeldung oder Kreuz oder Fragezeichen oder sonstwas.

Das Runterladen Deines Tools erfordert die Freigabe von GoogleDrive für irgendwelchen anderen Programme. Das mache ich lieber nicht. Anbei die Parameterdatei und eine andere Blechdatei ohne Parameterverknüpfung, die auch nicht geht.

[Juergen_Wagner · Accepted solution]

Jetzt wo die Datei Schneckenblech-Parameter.ipt gefunden wird, geht es ohne Problem.

Ich habe ja 2019 und du 2018. Ich habe aber auch noch Inventor 2017 installiert. Also den gestartet und ein Blech erstellt und eine Zeichnung davon und dann die Regel ausgeführt==> Das gleiche Problem wie du!!

Lösung:
Ergänze oben: 

SyntaxEditor Code Snippet

Imports Inventor.ViewOrientationTypeEnum
Imports Inventor.DrawingViewStyleEnum

 Das es also so aussieht:

Ganzer Code

SyntaxEditor Code Snippet

Imports Inventor.ViewOrientationTypeEnum
Imports Inventor.DrawingViewStyleEnum
Sub Main()
    Dim Zeich As DrawingDocument
     Zeich = ThisApplication.ActiveDocument
    
    Dim oSheet As Sheet
     oSheet = Zeich.ActiveSheet
    'Modell er esten Ansicht ermitteln
    Dim Modell As Document
     Modell = oSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument
    
    'Pr�fen ob Modell Blechteil ist
    Dim sDocumentSubType As String
    sDocumentSubType = Modell.SubType
    
    If sDocumentSubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
        'Abwicklungsansicht erstellen
         AddFlatPatternDrawingView (Modell.FullFileName)
         
         'Symbol erg�nzen
         Dim SymName As String
         SymName = "CAD-CAM"
        Dim oSketchedSymbolDef As SketchedSymbolDefinition
         oSketchedSymbolDef = Zeich.SketchedSymbolDefinitions.Item(SymName)
        
        Dim oTG As TransientGeometry
         oTG = ThisApplication.TransientGeometry
        
        Dim oSketchedSymbol As SketchedSymbol
         oSketchedSymbol = Zeich.ActiveSheet.SketchedSymbols.Add(oSketchedSymbolDef, oTG.CreatePoint2d(15, 5), 0, 1)
         
    Else
     Exit Sub
    End If
    
End Sub

Public Sub AddFlatPatternDrawingView(Modellpfad As String)
    '  a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
     oDrawDoc = ThisApplication.ActiveDocument

    ' a reference to the active sheet.
    Dim oSheet As Sheet
     oSheet = oDrawDoc.ActiveSheet

    ' Create a new NameValueMap object
    Dim oBaseViewOptions As NameValueMap
     oBaseViewOptions = ThisApplication.TransientObjects.CreateNameValueMap

    '  the options to use when creating the base view.
    Call oBaseViewOptions.Add("SheetMetalFoldedModel", False)

    ' Open the sheet metal document invisibly
    Dim oModel As Document
     oModel = ThisApplication.Documents.Open(Modellpfad, False)

    ' Create the placement point object.
    Dim oPoint As Point2d
     oPoint = ThisApplication.TransientGeometry.CreatePoint2d(25, 20)

    ' Create a base view.
    Dim oBaseView As DrawingView
     oBaseView = oSheet.DrawingViews.AddBaseView(oModel, oPoint, 0.3, _
    kDefaultViewOrientation, kHiddenLineRemovedDrawingViewStyle, _
    , , oBaseViewOptions)
End Sub

[Anonymous]

Schön. Da kann ich ja nicht drauf kommen. Danke!