Automatische Mittellinien mit ILogic in Inventor 2019 erstellen

[stefan_verbeek]

Guten Morgen zusammen,

vielleicht hat jemand eine Idee wie ich mein Problem umgehen kann.

Ich versuche eine Zeichnung zu automatisieren. Es handelt sich um einen einfachen Ring mit einem Lochkreis.

Diesen möchte ich per iLogic mit automatischen Mittellinen versehen was ich auch schon einige Male  gemacht haben.

In diesem Fall besteht der Lochkreis aus einer Flachsenkung und aus einer Gewindebohrung.

Ist nur eine der Bohrungen im Model vorhanden, so funktioniert die automatische Mittelline wie gewohnt.

Sind beide Bohrungen im Model, egal ob in einer oder mehreren Reihenanordnungen dann funktioniert die automatische Mittellinie nicht mehr. Ich habe auch schon versucht das ganze mit Arbeitspunkten zu machen oder die Bohrungen als Rotation. Leider werden dann die Mittellinien am Zentrum der runden Anordnung ausgerichtet. Die benötige ich aber für die Winkelbemaßung.

Gruß

Stefan

@stefan_verbeek Der Beitragstitel wurde bearbeitet von @michele.mk zur besseren Auffindbarkeit. Originaltitel: Automatische Mittellinien

[Juergen_Wagner]

Lade mal noch die Zeichnung und deinen bisherigen iLogic-Code hoch.

[Martin-Winkler-Consulting]

Hallo @stefan_verbeek 

ich konnte dein Problem nachvollziehen.

Schau mal in der API Dokumentation nach unter DrawingView.SetAutomatedCenterlineSettings Method

Syntax

DrawingView.SetAutomatedCenterlineSettings( [AutomatedCenterlineSettings] As Variant ) As ObjectsEnumerator

Wenn ich das richtig verstehe kann man dort ein Objekt mitgeben AutomatedCenterlineSettings in welchem angegeben wird welche Objekte zur Erzeugung der Mittellinie benutzt werden sollen. Allerdings kann ich dir nicht sagen wie man dieses Objekt erzeugt. Ich vermute, dass es das ist was du brauchst.

Wäre schön wenn du eine Lösung dann hier posten würdest wie das Objekt erstellt wird.

Sub Mittellinien()
'Mittellinien in selektierten Ansichten setzen
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oDrawDocSelect As SelectSet
Set oDrawDocSelect = oDrawDoc.SelectSet
      For Each oObj In oDrawDocSelect
       If oObj.Type = kDrawingViewObject Then
          Call oObj.SetAutomatedCenterlineSettings([Object])
       End If
      Next
End Sub

Gruß Martin

[stefan_verbeek]

Hallo Jürgen,

hier die Zeichnung.

Dort gibt es zwei Regeln. 

Die eine erzeugt die Mittellinien (oder auch nicht), die andere Unterdrückt erste die eine Bohrung, erzeugt die Mittellinien und schaltet die Bohrung wieder ein. Funktioniert eigentlich soweit. Leider wird die Regel aber so schnell abgearbeitet, dass die Bohrung noch nicht unterdrückt ist bevor die Mittellinien erzeugt werden. Daher habe ich das eine Msgbox als Stop eingesetzt. Wenn Du eine Idee hast, wie die Regel dazu bringt zu warten bis die Bohrungen unterdrückt sind wäre das schon entsprechender Workaround.

Gruß

Stefan

[stefan_verbeek]

Hallo Martin,

wenn ich das richtig sehe sind das die Einstellungen die man auch machen kann, wenn man die automatischen Mittellinien von Hand aufruft. Da es sich in beiden Fällen um Bohrungen handelt nützt mir das leider  nichts.

oView.GetAutomatedCenterlineSettings(oCenterline)
        'WB moved here
        oCenterline.ApplyToHoles  = True 
        oCenterline.ProjectionParallelAxis = True
		oCenterline.ApplyToCircularPatterns = True
		oCenterline.ApplyToBends=False
		oCenterline.ApplyToCylinders = True
		oCenterline.ApplyToPunches = False
		oCenterline.ApplyToRectangularPatterns = False
		oCenterline.ApplyToRevolutions = True
		oCenterline.ArcAngleThreshold =False

Gruß

Stefan

[Martin-Winkler-Consulting]

@stefan_verbeek 

Ja das wird wohl so sein.

Ich habe jetzt bei mir getestet und das Problem tritt auf wenn die erste MsgBox vor der For Each Schleife fehlt. In VBA der selbe Effekt. Wenn man an das For einen Stop setzt dann wird es richtig ausgeführt, ansonsten nicht.

Sehr merkwürdig, vielleicht hat Jürgen noch eine Idee.

Gruß Martin

[michele.mk]

Hallo @stefan_verbeek,


ich wollte fragen, wie bei dir der Stand der Dinge ist? Hast du in der Zwischenzeit weiterprobiert und bist vielleicht selbst auf eine Lösung für dein Problem gekommen, die du mit uns teilen könntest?

Falls nicht, sei doch so gut und lass es uns wissen, wie wir dir weiterhelfen können?

Gruß,
Michèle