---

Hallo,

gibt es eine Möglichkeit in VBA ein "Orientation Link" zu einem Text hinzuzufügen? Beispielsweise zu einem Maß.

Einen "Positional Link" hab ich schon rausgefunden:

Code:

---

newText.AssociativeElement = selDim

---

Gruß Thorsten

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

---

Hi Thorsten,

schon mal 'NewText.Angle' probiert?

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hallo Joe,

ja, das klappt auch. Aber es ändert sich nicht automatisch mit dem Referenzobjekt.

Gruß Thorsten

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

---

Hi Thorsten,

und was ist das Referenzobjekt?

Unter Umständen musst halt 'n bisschen rechnen.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Das Referenzobjekt soll ein Maß sein. Das kann sich unter Umständen auch mal drehen, gerade bei Winkelangaben.

Gruß Thorsten

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

---

Hi Hai,

den Winkel kannst auslesen über:

Zitat:

---

Example:
This example retrieves angle of dimension value MyDimension drawing dimension.
oValueAng = MyDimension.ValueAngle

---

(Siehe CAA-Doku)

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hallo Joe,

ich habe schon eine funktionierende Lösung. Jetzt möchte ich die bestehende Lösung nur noch Verbessern. Der Wert von ValueAngle ist übrigends oft 0, damit konnte ich nicht viel erreichen.

Code:

---

Set oSelection = CATIA.ActiveDocument.Selection

'dimension value bounding box points
Dim oValues(7)
oSelection.Add oView.dimensions.Item(i)

Set selDim = oSelection.Item(1).Value
Set drwDimValue = selDim.GetValue

If drwDimValue.FakeDimType > 0 Then
    GoTo doNotProcessDimension
End If

Call selDim.GetBoundaryBox(oValues)

'coordinates of point 1 and 2
'point 1 is bottom left
'point 2 is bottom right
'point 3 is top left
'point 4 is top right
x1 = oValues(0)
y1 = oValues(1)
x2 = oValues(2)
y2 = oValues(3)

'initialisation of angle calculation parameter
dimAngleRad = 0
DimAngleGrad = 0

If x1 = x2 Then
    '90 degrees
    dimAngleRad = 2 * Atn(1)
Else
    'calulated angle
    dimAngleRad = Atn((y2 - y1) / (x2 - x1))
End If

'convert rad angle to grad angle
DimAngleGrad = 45 / Atn(1) * dimAngleRad

---

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

---

Hi hai,

hab mir inzwischen den 'ValueAngle' etwas näher angesehen.
Tatsächlich ist der Wert, zumindest bei 'Distance' und 'Diameter' stets null.
Das Setzen des Wertes für 'ValueAngle' auf zB 60 oder 0.5, bewirkt - soweit ich sehen kann - gar nix.
Beispiele oder sonstige Infos zur Funktion gibt's scheinbar auch nicht.

Sehr verwirrend das ... 

Bleib bei Deiner Lösung.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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