Grüß euch.
Entschuldigt, dass ich über ein halbes Jahr gebraucht habe mich wieder zu melden. Jetzt im Sommer hatte ich etwas Zeit, und da mein Ziel noch immer ein Webinar über Beschriftungsbilder ist, habe ich dieses „Problem“ nochmals aufgegriffen.
Da ich doch viele unterschiedliche Versuche benötigte, bis ich zu 2 brauchbaren Ergebnissen gekommen bin, möchte ich diese gerne auch mit euch teilen, falls jemand sich daraus etwas mitnehmen möchte:
Ich möchte nur kurz nochmal auf ein paar Grundlegende Dinge eingehen, falls es jemand noch nicht wissen sollte:
1) Die Formelzeile der Beschriftungsbilder umfasst nur 255 Zeichen (Stand Allplan 2021) und mit denen muss ich auskommen.
2) Ich habe die Möglichkeit auf Excelfunktionen zurückzugreifen (falls dieses installiert ist).
3) Sollte ich selbst damit nicht mehr zurechtkommen, habe ich die Möglichkeit auf ein Visual Basic Script auszuweichen.
Jetzt 3 Lösungsansätze mit allen 3 Methoden:
1) Allplan Beschriftungsbild mit interner Lösung:
(_IF_(@91@>4)"Ecken= "+@91@+"/ ø Außen= %FAH*.1.1.5%FE%AA"+(@228@*100/@91@)/(2*SIN(3,1416/@91@))+"%AE"_ELSE_(_IF_(@759@>0)"d= %FAH*.1.1.5%FE%AA"+@759@*100+"%AE"_ELSE_"b/d= %FAH*.1.1.5%FE%AA"+@220@*100+"%AE/%FAH*.1.1.5%FE%AA"+@221@*100+"%AE"))+" cm"
Kurze Erklärung:
Wenn die Anzahl der „Innenecken“ größer als 4 ist, dann greifen Formeln für N-Eck Stütze (Ecken+Außendurchmesser),
wenn der Durchmesser ist größer als 0, dann greift die Formel für die runde Stütze,
sonst gibt es den „Rest“ also eine Quadrat-, Rechteckstütze
249 Zeichen, so sieht das Ergebnis aus (siehe Bild), je nachdem wie und was ich als Werte herausholen soll, kann es noch umgeschrieben werden.
Zurzeit runde ich auf 0,5, wenn dies nicht gewünscht ist, dann alle Werte: %FAH*.1.1.5 auf %FAH*.1 abändern.
Die Formatänderungen habe ich über Allplan interne „Steuerzeichen“ gelöst, ich bin nur durch Zufall darüber gestolpert (siehe Bild)
Falls bei der N-Eck Stütze noch andere Parameter herausgeholt werden sollen, ich habe auf Google einen Vieleckrechner gefunden mit allen Formeln (siehe Bild)
2) Allplan Beschriftungsbild mit Excel
(_IF_(@759@>0)"d= "+WECHSELN(WECHSELN(FEST(@759@*100;1);",0";"%+%>");",";"%+%>")_ELSE_"b/d= "+WECHSELN(WECHSELN(FEST(@220@*100;1);",0";"%+%>");",";"%+%>")+"%-%</"+WECHSELN(WECHSELN(FEST(@221@*100;1);",0";"%+%>");",";"%+%>"))+"%-%< cm"
Kurze Erklärung:
Wenn der Durchmesser größer 0, dann Runde Stütze,
sonst 4 Eckstütze,
und die Idee war die Zahlen mit „FEST“ auf eine Kommastelle zu fixieren, und mit „WECHSELN“ das Komma "," bzw. ",0" (um keine 0 in der Hochschreibweise zu haben) durch "%+%>" auszutauschen.
Mit dieser Lösung bin ich leider nicht ganz ans Ergebnis gekommen, da mir die Zeichen ausgegangen sind, allerdings schaffe ich es damit Quadrat-, Rechteck- und Runde Stützen abzubilden. (siehe Bild)
3) Allplan Beschriftungsbild über VB-Script
Stuetze(@220@;@221@;@759@;@228@;@91@)
Kurze Erklärung:
Die Rundung ist zurzeit auf 1 Kommastelle (siehe Bild)
Ich wähle einen Namen aus, in meinem Fall „Stuetze“ und spiele damit alle Attribute (getrennt durch Strichpunkte) die ich benötige in ein Script. Dieses ist schon vorhanden und muss nur ausfindig gemacht werden:
Im Bürostandard „Std“ gibt es einen Ordner, der heißt „vbs“ (bei mir D:\Allplan\Allplan 2021\Std\vbs), und dort findet sich eine Datei mit Namen: „functions.vbs“.
In Österreich greifen alle Beschriftungsbilder die im Unterordner Script in Allplan zu finden schon auf diese Datei zu, und es empfiehlt sich die Datei mit einem Texteditor zu öffnen und das Script zu erweitern. Solltet ihr noch gar keine Scriptbeschriftungen verwenden, könnt ihr die Datei auch gerne umbenennen, und durch meine Angefügte ersetzen.
WICHTIG: Der Name der Datei MUSS „functions.vbs“ bleiben, denn nur in diese Datei schaut Allplan hinein (außer ihr wollt sogar die Registry umschreiben wo Allplan zu suchen hat, kann bei größeren Unternehmen sinnvoll sein, damit man nur eine Datei immer tauschen muss, Stichwort: Serverpfad)
Den Inhalt erspare ich euch, wenn jemand andere Daten ausgelesen haben möchte oder etwas umgeschrieben haben möchte, bitte einfach Bescheid geben.
Ich hoffe ich konnte damit ein wenig helfen, sollte ich doch wo noch einen Fehler eingebaut haben, gebt mir bitte Bescheid.
Alles Liebe Andi