Morjeeen,
gibt es eine Möglichkeit über ein Beschriftungsbild von einem Fenster SmartPart, die Bezeichnung des Sonnenschutz-SmartParts zu erhalten, die in der gleichen Fensteröffnung eingebaut ist?
Siehe Bild 1, da wo "Verschattung=ja" steht, soll bitte die Bezeichnung des Sonnenschutz-SmartParts stehen...
Danke im voraus
Lg René
http://www.baucon.de
Die Funktion CHILD in MT_...(CHILD(@498@)) gibt z.B. folgendes zurück: "Fenstermakro,-SmartPart+Sonnenschutz"
Wenn ein Leibungselement da ist, dann ist das Ergebnis dieses:"Brüstung+Fenstermakro,-SmartPart+Fenstermakro,-SmartPart+Sonnenschutz"
Man sieht, die Elemente werden durch "+" getrennt ausgegeben. Warum beim Vorhandensein eines Leibungselementes, das FensterSmartPart doppelt gezählt wird, kann wohl nur Allplan beantworten! Das ist ein Fehler!
Die Funktion CHILD in MT_...(CHILD(@507@)) gibt z.B. folgendes zurück: "Fenster/Rolladen"
Wenn ein Leibungselement da ist, dann ist das Ergebnis dieses:"bruestung3/Fenster/Jalousie"
Man sieht, die Elemente werden durch "/" getrennt ausgegeben.
Mit diesem wissen kann man das Problem nur in einer vbs-funktion lösen.
Dazu in der Datei functions.vbs im \STD folgendes einfügen:
Function get_sun_shade(nam_lst,bez_lst)
Dim strNames,strName,strBezs,strBez,strRes,strLast
strRes=""
strNames=Split(nam_lst,"+")
strBezs=Split(bez_lst,"/")
idx=-1
i = 0
strLast=""
For Each strName In strNames
If strName = "Sonnenschutz" Then
idx = i
End If
If strLast = strName Then
Else
i=i+1
End If
strLast = strName
Next
j = 0
For Each strBez In strBezs
If j = idx Then
strRes = strBez
End If
j=j+1
Next
get_sun_shade = strRes & " "
End Function
Die vorletzte Zeile der Funktion sieht etwas eigenartig aus:
Wenn man die Leerzeichen aber nicht anfügt, stürzt Allplan ab!
Warum das so ist, müßte Allplan mal herausfinden.
Das ist ebenfalls ein schwerer Fehler!
Die Formel im Beschriftungsbild für den Aufruf der Funktion lautet:
_IF_(MT_Fensterelement(CHILD(@498@))="")get_sun_shade(MT_Fensteröffnung(CHILD(@498@));MT_Fensteröffnung(CHILD(@507@)))_ELSE_get_sun_shade(MT_Fensterelement(CHILD(@498@));MT_Fensterelement(CHILD(@507@)))
Dafür sollte das Format A254 eingestellt sein.
Bei mir steht im functions.vbs schon das drin...
Function block(liste)
blanc = InStr(1,liste," ")
If blanc > 1 Then
block = Mid(liste,1,blanc) + vbCr + Mid(liste,blanc+1,Len(liste))
Else
block = liste
End If
End Function soll ich darunter das von dir einfach schreiben? Bin dabei gerade echt überfragt
Lg René
http://www.baucon.de
Die Erklärung, was VB-Script ist, liefert Wikipedia.
Leider setzt Allplan immer noch auf diese "tote Sprache", die selbst vom Erfinder Microsoft nicht mehr weiterentwickelt wird.
Wie man an dem Beispiel sieht, kommt man bei einer Formel mit einer Länge von 254 Zeichen sehr schnell an die Grenzen.
Deshalb braucht man auch ein Script, um eine Funktion "auszulagern".
Es wäre absolut notwendig, dass die Script-Sprache des Formel-Editor auf etwas zeitgemäßes umgestellt wird.
Z.b. hat man ja schon seit längerem bei Allplan Python an Bord! Da wäre es doch naheliegend, (auch) Python als Script-Sprache
bei Formeln einzusetzen!
Mein perönliches Must-Have-Feature von Allplan 2021 setzt leider auch noch auf den alten Formel-Editor.
Schade, dass man die Gelegenheit nicht ergriffen hat, da etwas Neues zu machen!
..also muss man weiter mit 254 Zeichen und VBScript "rumhantieren"!
...ja einfach drunter per Copy und Paste einfügen...
was hat es mit der @498@ also Objektname auf sich???Ich möcht ja eigentlich nur die Bezeichnung des Sonnenschutz Smartparts. denn wenn ich die Formel eingebe, erscheint dann nichts.
Mache ich irgendwas falsch im Function.VBS ???? (Siehe Anhang)
Möchte das verstehen
Lg René
http://www.baucon.de
Die Funktion get_sun_shade macht eigentlich nichts anderes, als im Text der Element-Namen "Sonnenchutz" zu suchen,
und dieselbe "Stelle" aus den Bezeichnungs-Namen zu extrahieren.
Eingangs-Werte der Funktion:
Element-Namen nam_lst = "Brüstung+Fenstermakro,-SmartPart+Fenstermakro,-SmartPart+Sonnenschutz"
Element-Bezeichnungen bez_lst = "bruestung3/Fenster/Jalousie"
strNames=Split(nam_lst,"+") 'zerlegt den String in Teile, Trenner ist "+"
strBezs=Split(bez_lst,"/") 'zerlegt den String in Teile, Trenner ist "/"
erste For-Next-Schleife 'sucht nach "Sonnenschutz" in den Teilen, mekrt sich den Index, überpringt gleiche Teile
zwiete For-Next-Schleife 'weist dem Ergebnis-String strRes den Teil aus den Bezeichnungen mit dem gemerkten Index zu
That's it.
Wenn's nicht funktioniert,dann testweise mal
get_sun_shade = nam_lst
oder
get_sun_shade = bez_lst
einfügen.
Dann sollte er die Eingangs-Strings zurückgeben.
..und dann weiter im Code Teile austauschen, bis man weiss, wo etwas fehlt. Man nennt das "debuggen"...
Wichtig:
Für diesen "Stunt" muss man das Fenster-SmartPart beschriften!
Und die functions.vbs schön nach jeder Änderung speichern!
Wo denn einfügen?
Function get_sun_shade(nam_lst,bez_lst)
Dim strNames,strName,strBezs,strBez,strRes,strLast
strRes=""
strNames=Split(nam_lst,"+")
strBezs=Split(bez_lst,"/")
idx=-1
i = 0
strLast=""
For Each strName In strNames
If strName = "Sonnenschutz" Then
idx = i
End If
If strLast = strName Then
Else
i=i+1
End If
strLast = strName
Next
j = 0
For Each strBez In strBezs
If j = idx Then
strRes = strBez
End If
j=j+1
Next
get_sun_shade = nam_lst & " "
End FunctionSo? ich verstehe nicht ganz was du mit der Aussage meinst, also wo ich es Teilweise einfügen soll
Lg René
http://www.baucon.de
genau so:
get_sun_shade = nam_lst
( & " " ) kannst in diesem Fall weglassen
Aber in der finalen Fassung wieder hinzufügen, sonst stürzt Allplan ab!
Sorry aber irgendwie will es einfach nicht...
unten im Anhang ist unser function.vbs und die Test Fenster mit Allen verschattungen.
Wenn du Zeit und Energie dafür hast, könntest du das machen ? :-(
und das Beschriftungsbild auch.
bin am verzweifeln.
Ich kenne mich leider Null mit Vbs aus...
Lg René
http://www.baucon.de
In Deiner function.vbs gibt es keine Function get_sun_shade!
Anbei mein Test-Teilbild, und die Textdateien für Formel und Script.
Damit sollte man es schaffen können...
Vielen Dank für deine Bemühung, wenn ich deine NDW Datei ins Projekt rein hole, sieht man alles.
Komisch ist nur, das wenn ich deine function.vbs datei im std\vbs rein kopiere (ohne hinten das von dir geschriebene .txt) und auch ein Beschriftungsbild erstelle mit der gleichen Formel und auf A254, funktioniert es trotzdem nicht, ich weiß leider nicht woran es scheitert
Lg René
http://www.baucon.de