---

2023-09-29-2.jpg 2023-09-29-1.jpg

Mahlzeit!

Ich will automatische Positionsnummern vergeben. Das klappt auch ganz gut, allerdings stört es mich ein bisschen, dass diese immer mit dem gleichen (Versatz-?)Abstand positioniert werden. Kann man das irgendwie ohne großen Aufwand beeinflussen? Mir schwebt da etwas vor, bei dem von der horizontalen Mitte des Objektes aus der Pfeil vertikal nach oben geht....

------------------
Inventor erst seit Ende 2018, davor Acad / kein Vault im Einsatz / Möbel- und Innenausbau

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

---

Moin

Nein, im Standard geht das nicht. Es würde bei zwei eng nebeneinander liegenden Nummern auch zu Überlagerungen führen. Aber man kann nachträglich was machen. Mit Fensterauswahl alle Positionsnummern die eine vertikale Linie bekommen sollen auswählen. Es macht nichts, wenn in der Auswahl andere Elemente enthalten sind. Nur Positionsnummern die nicht bearbeitet werden sollen, dürfen nicht mit ausgewählt sein. Anschließend die iLogic Regel starten. Für Positionsnummern mit horizontaler Linie anschließend ebenso verfahren.
Logischerweise kann bei mehreren Führungslinien nur eine ausgerichtet werden. Existieren zusätzliche Scheitelpunkte, bleiben die an ihrer ursprünglichen Position. Die Positionsnummer wird vertikal bzw. horizontal zur Pfeilspitze ausgerichtet.

Code:

---

Option Explicit ON

Private Sub Main

Dim oDrawDoc As DrawingDocument = ThisDrawing.Document

Dim oObject As Object
Dim oBalloon As Balloon
Dim oPos As Point2d

If InputRadioBox("Ausrichtung wählen", "Vertikal", "Horizontal", True, Title := "iLogic Align Balloons") Then
For Each oObject In oDrawDoc.SelectSet
    If TypeOf oObject Is Balloon Then
        oBalloon = DirectCast(oObject, Balloon)
        oPos = oBalloon.Leader.AllNodes.Item(1).Position
        oPos.X = oBalloon.Leader.AllLeafNodes.Item(1).Position.X
        oBalloon.Leader.AllNodes.Item(1).Position = oPos
    End If
Next
Else
For Each oObject In oDrawDoc.SelectSet
    If TypeOf oObject Is Balloon Then
        oBalloon = DirectCast(oObject,Balloon)
        oPos = oBalloon.Leader.AllNodes.Item(1).Position
        oPos.Y = oBalloon.Leader.AllLeafNodes.Item(1).Position.Y
        oBalloon.Leader.AllNodes.Item(1).Position = oPos
    End If
Next
End If

End Sub

---

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

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Danke Ralf, ich werde das, sobald ich wieder etwas Luft habe, ausprobieren.

------------------
Inventor erst seit Ende 2018, davor Acad / kein Vault im Einsatz / Möbel- und Innenausbau

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