Support Forum

[Frage] Fenster Beschriftung mit Verschattung


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é
Bauzeichner Architektur in Ausbildung

BBP Bauconsulting mbH Ingenieurgesellschaft
http://www.baucon.de

Anhänge (2)

img
Bild 1.JPG
Typ: image/jpeg
44-mal heruntergeladen
Größe: 174,54 KiB
Typ: application/octet-stream
36-mal heruntergeladen
Größe: 2,75 MiB
11 - 20 (49)

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é
Bauzeichner Architektur in Ausbildung

BBP Bauconsulting mbH Ingenieurgesellschaft
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...

Zitiert von: Nemo
_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@)))

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é
Bauzeichner Architektur in Ausbildung

BBP Bauconsulting mbH Ingenieurgesellschaft
http://www.baucon.de

Anhänge (1)

img
VBS.JPG
Typ: image/jpeg
8-mal heruntergeladen
Größe: 59,03 KiB

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!

Zitiert von: Nemo

Wenn's nicht funktioniert,dann testweise mal
get_sun_shade = nam_lst
oder
get_sun_shade = bez_lst
einfügen.

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 Function

So? ich verstehe nicht ganz was du mit der Aussage meinst, also wo ich es Teilweise einfügen soll

Lg René
Bauzeichner Architektur in Ausbildung

BBP Bauconsulting mbH Ingenieurgesellschaft
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é
Bauzeichner Architektur in Ausbildung

BBP Bauconsulting mbH Ingenieurgesellschaft
http://www.baucon.de

Anhänge (2)

Typ: text/plain
10-mal heruntergeladen
Größe: 230,00 B
Typ: application/octet-stream
4-mal heruntergeladen
Größe: 2,75 MiB

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...

Anhänge (3)

Typ: application/octet-stream
12-mal heruntergeladen
Größe: 1,13 MiB
Typ: text/plain
10-mal heruntergeladen
Größe: 638,00 B
Typ: text/plain
7-mal heruntergeladen
Größe: 459,00 B

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é
Bauzeichner Architektur in Ausbildung

BBP Bauconsulting mbH Ingenieurgesellschaft
http://www.baucon.de

11 - 20 (49)

https://connect.allplan.com/ verwendet Cookies  -  Mehr Informationen

Akzeptieren