---

Dimension_Style.zip

Hallo Zusammen,
ich versuche einige Eigenschaften von Bemaßungen auszulesen und wieder neu zu schreiben.
Grund hirfür ist eine Anhebung alter noch aus V4 Zeiten stemmenden Zeichnungen auf V5
Da es meist kein zugehöriges Part gibt sind die neuen Drawings in der Regel "dumme" Zeichnungen.
Sie sollten nur optisch einigermaßen unserem Firmenstandart gleich sehen.

Konkret geht es mir im Moment um die Umsetzung der Bemaßungsdarstellung (Style)

Den bekomme ich einfach nicht "gegriffen"

Kann mir jemand Helfen!
MFG Heiko

Sub CATMain()
On Error Resume Next

Set specsAndGeomWindow1 = CATIA.ActiveWindow
Set specsViewer1 = specsAndGeomWindow1.ActiveViewer

'Koerperkanten
'SymetrieLinien
'Bereichsdeklarationen
Bemassung
'Texte

End Sub

Function Bemassung()
'On Error Resume Next

Set drawingDocument1 = CATIA.ActiveDocument
Set selection1 = drawingDocument1.Selection

selection1.Search "CATDrwSearch.DrwDimension,all"
   
Dims = selection1.Count
    For I = 1 To Dims
   
        oTolType = 0
        oTolName = ""
        oUpTol = ""
        oLowTol = ""
        odUpTol = 0.0
        odLowTol = 0.0
        oDispl = 0

        Set MyDim = selection1.Item(I).Value
        MyDim.GetTolerances oTolType, oTolName, oUpTol, oLowTol, odUpTol, odLowTol, oDisplayMode
        MyDimFrameType = MyDim.ValueFrame
        MyDimValueOrientation = MyDim.ValueOrientation
        'MyDimStyle = MyDim.DimensionStyle

        MsgBox  MyDim.Name & " = " & Round(MyDim.GetValue.Value,2) & chr(13) & chr(13) & "Alphanumerical " & chr(13) & "  obere Tol.: = "& oUpTol & chr(13) & "  untere Tol.: = " & oLowTol & chr(13) & chr(13) & "Numerical " & chr(13) & "  obere Tol.: = "& Round(odUpTol,3) & chr(13) & "  untere Tol.: = " & Round(odLowTol,3) & chr(13) & chr(13) & "oTolType  = " & oTolType & " -> " & "oTolName = " & oTolName & chr(13) & "oDisplayMode: = " & oDisplayMode & chr(13) & "MyDimFrameType = " & MyDimFrameType & chr(13) & "MyDimValueOrientation = " & MyDimValueOrientation,,"Bemaßung " & i & " von " & Dims

        'MsgBox MyDimStyle
    Next
End Function

[Diese Nachricht wurde von Hokay am 18. Mrz. 2011 editiert.]

[Diese Nachricht wurde von Hokay am 18. Mrz. 2011 editiert.]

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

---

Servus
AFAIR bin daran auch mal verzweifelt, leider ohne eine Lösung.
Reicht es nicht wenn du der Zeichnung einen neuen Standard zuweist (Datei -> Seite einrichten) bzw nur neu zuweist?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

[Diese Nachricht wurde von bgrittmann am 18. Mrz. 2011 editiert.]

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

---

Hi bgrittmann,
nein das reicht leider nicht.
Denn ich kann dann zwar die neuen Eigenschaften auswählen. Aber die Anwendung auf die einzelnen Maße ist dann nämlich immer noch zu tun.
Hat nich noch jemand eine Idee???
MFG Hokay

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