---

Hallo.
In SE gibt es ja eine Menge Symbole für bestimmte Sachen (Borungen, Durchmesser etc.). Leider weiss ich nicht wofür alle genau sind, sondern nur das es sie gibt. Aber das muss ich für mein Programm auch nicht wissen.

Wenn jeman was damit anfangen kann hier die Symbole mit der internen SE-Bezeichnung für die ich das Symbol im Report haben möchte:
%SA, %CB, %CS, %DP, %IL, %AL, %DG, %BT, %ST

Ich möchte die Symbole in einem Report ausgeben. Problem ist wie komme ich an sie ran ?

Bei diesen Symbolen ist das kein Problem:
%TS = M
%DI = Ø
%PM = ±

Alternativ habe ich kleine .png´s erstellt und die Symbole "nachgemalt" aber damit bin ich nicht zufrieden.

LG

bob

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

---

bob22,

sie sind in der Zeichentabelle Schriftart SolidEdge ISO GDT Symbols.

Wie Arne richtig vermutet hat, lasst sich mit DisplayData der komplette Text auslesen, die Reihenfolge der einzelnen Strings ist allerdings gewöhnungsbedürftig:

Public Function GetDisplayData(ByVal oDim As SolidEdgeFrameworkSupport.Dimension, _
                              ByRef sDimText As String) As Boolean
Dim l As Long, s As String
Dim oX As Double, oY As Double, oZ As Double
Dim XoX As Double, XoY As Double, XoZ As Double
Dim ZoX As Double, ZoY As Double, ZoZ As Double

  On Error GoTo ErrorHandler

  With oDim.GetDisplayData
    For l = 0 To .GetTextCount - 1
      Call .GetTextAtIndex(l, s, oX, oY, oZ, XoX, XoY, XoZ, ZoX, ZoY, ZoZ)
      sDimText = sDimText & s
    Next
  End With

GetDisplayData = True
Exit Function
ErrorHandler:
  Err.Clear
End Function

Gerald

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

---

Okay, ich habe jetzt erstmal kleine Images gemacht bzw verbessert. Das sieht nun fast so aus, als währe das ein Fond.
Allerdings werde ich das nochmal ausprobieren wenn ich etwas Luft habe.

Danke

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