OBD Update 8 und 9 - Betonquerschnitte mit Structural-Regeln beschriften

Hallo Zusammen,

wir haben im alten AECOsim V8i unsere Schalpläne und Stahlbauübersichten mit den Structural-Regeln beschriftet.

Dies hat früher super funktioniert und man hat sehr schnell einen übersichtlichen Plan erzeugt.

Mit dem OpenBuildings Designer ist das ganze deutlich komplizierter geworden. Und seit ProStructures integriert wurde ist die automatische Beschriftung der Schalpläne nicht mehr zu gebrauchen.

Und hier kommt nun auch meine Frage wie man die Beschriftung der Betonprofile besser steuern/darstellen kann?

Es Betrifft nur die Betonquerschnitte die Stahlbauprofile sind bis auf die Bleche und Flacheisen in Ordnung.

Im folgenden Bild sieht man je zwei Träger aus Stahl und Beton. 
Die Beschriftung der Betonträger ist für die Planerstellung so aber unbrauchbar.

Optimal wäre eine Ausgabe der Profilabmessungen in Zentimetern und das X sollte durch einen Schrägstrich( / ) ersetzt werden. 
Optionaler Text vorangesetzt ( b/d= ) und die Einheit ( cm ) ans Ende.

So würde dann aus 0.4000X0.8000 - b/d= 40/80cm werden und aus 0.4000X1.4000 würde  b/d= 40/140cm werden.

Was gibt es grundsätzlich an Optionen/Möglichkeiten die Beschriftung der Betonquerschnitte zu beeinflussen?

Gruß Viktor

Parents
  • ganz simpel Wink

    Nö, eigentlich nicht. Aber mit ein bisschen VBA kann der Text entsprechend formatiert werden. Werde ich evtl. in der nächsten Coffee Corner kurz zeigen.

    Anbei ein Video das den Ablauf erklärt, sowie das Macro das im Dataset_DE/VBA abgelegt wird

    DG_Annotation.mvba



    Answer Verified By: Johannes Michalowsky 

  • Und hier noch mal die Version für die automatische Beschriftung über Structural Rules. inkl. dem Structural Macro

    STRcustomDrawingLabels.mvba



  • Hallo Herr Pudziow,

    beide Videos und Makros waren schon sehr hilfreich.

    Vor allem der zweite Beitrag mit den Structural-Regeln.

    Ich habe hier nur noch das Problem dass sobald ein Stahlbauprofil mit in der Datei existiert, die Beschriftung abstürzt.

    Kann man diese Problem im Makro noch lösen?

    Und wie kann man die Umrechnung der Nachkommastellen beeinflussen.

    In Ihrem Beispiel haben Sie ein Auflösung in der Datei mit 3 Nachkommastellen. Bei mir sind 4 Nachkommastellen und somit beim Ergebnis eine Null zu viel bei den Werten.

    Gruß Viktor

  • Sie können die Regel auf bestimmte Kriterien eingrenzen. Also z.B. der Materialdefinition 

    Die Nachkommastellen können im Macro noch durch den Divisor beeinflusst werden. 

    Also statt /10 bei ihrer Einstellung /100. Ist ein wenig schwierig zu bestimmen da der Profilname als Text übergeben wird. Sollte dann aber über alle DGN's konsistent sein

    ' Get the section name from the member
    sectName = memberList.AsSTFLinearMember.GetSectionName

    tr_string = Split(sectName, "X")
    tr_double(0) = (CDbl(tr_string(0)) / 10)
    tr_double(1) = (CDbl(tr_string(1)) / 10)

    sectName = "b/d=" & tr_double(0) & "/" & tr_double(1) & "cm"

    Traeger_cm = sectName



Reply
  • Sie können die Regel auf bestimmte Kriterien eingrenzen. Also z.B. der Materialdefinition 

    Die Nachkommastellen können im Macro noch durch den Divisor beeinflusst werden. 

    Also statt /10 bei ihrer Einstellung /100. Ist ein wenig schwierig zu bestimmen da der Profilname als Text übergeben wird. Sollte dann aber über alle DGN's konsistent sein

    ' Get the section name from the member
    sectName = memberList.AsSTFLinearMember.GetSectionName

    tr_string = Split(sectName, "X")
    tr_double(0) = (CDbl(tr_string(0)) / 10)
    tr_double(1) = (CDbl(tr_string(1)) / 10)

    sectName = "b/d=" & tr_double(0) & "/" & tr_double(1) & "cm"

    Traeger_cm = sectName



Children