Bei mir ist der Ordner VBC kleingeschrieben. macht ggf noch was aus ?
Nemdaten\Allplan\Std\vbs\functions.vbs

Und vermutlich Allplan Neustarten, nachdem die Functions.vbs geändert wurde.

Hallo Christoph,

ja, da war noch ein kleiner Bug drin.
So läuft es jetzt, wenn Format = A254

Function multiLineMin(strText,minLength)
	strRemain = strText
	strResult = ""
	iLen=CInt(minLength)
	Do While True
		pos = InStr(iLen,strRemain," ")
		If pos = 0 Then
		    If Len(strResult) > 0 Then
				strResult = strResult + vbCr
		    End If
		    strResult = strResult + strRemain
			strRemain = ""
		    Exit Do
		Else
		    If Len(strResult) > 0 Then
				strResult = strResult + vbCr
		    End If
		    strResult = strResult + Mid(strRemain,1,pos)
		    strRemain = Mid(strRemain,pos+1,Len(strRemain))
		End If
	Loop
	multiLineMin = strResult
End Function

Einfach function.vbs mit'm Texteditor ändern, und dann Funktion "Beschriftungsbilder aktualisieren".
Achtung: Meine Funktion sucht nach Leerzeichen fürhestens nach XX Zeichen, d.h. die Zeilen sind immer mind. XX Zeichen lang.

Wenn man eine "Begrenzung" der Zeilenlänge auf maximal XX Zeichen erzwingen möchte, sollte man diese Funktion(en) benutzen:

Function multiLineMax(strText,maxLength)
    strRemain = strText
	strSub = ""
	Do While True
	    strSub = getWords(strRemain, maxLength)
	    If Len(strResult) > 0 Then
		   strResult = strResult + vbCr
		End If
		strResult = strResult + strSub
		If Len(strSub) < Len(strRemain) Then
		   strRemain = Mid(strRemain, Len(strSub) + 2, 999)
		Else
		   Exit Do
		End If
	Loop
	multiLineMax = strResult
End Function

Function getWords(strText, maxLength)
    strParts = Split(strText, " ")
    strSub = ""
    iLen=CInt(maxLength)
    For Each strPart In strParts
	    If Len(strSub) = 0 Then
			If (Len(strPart) < iLen) Then
				strSub = strSub & strPart
			Else
				Exit For
			End If
		Else
			If (Len(strSub & " " & strPart) < iLen) Then
				strSub = strSub & " " & strPart
			Else
				Exit For
			End If
		End If
    Next
    getWords = strSub
End Function

...ich bin immer wieder erstaunt was ihr drauf habt....klasse!

gruß dennis

Hallo Jörg

Einfach genial.

Gruss Thierry

...jeder, der das toll findet sollte folgenden wunsch an allplan äußern

bitte MEHRERE skriptdateien zulassen UND diese in den Optionen eine einstellung, um diese bürobezogen festlegen zu können.

derzeit kann nur eine skript-datei verwendet werden und der pfad ist in der regestry definiert.

Formel: multiLineMax(@attrNr@;25)
Wichtig: In der Klammer SEMIKOLON
...hatte ich in meiner ersten Antwort auch schon geschrieben.
Dass Allplan bei Komma so grandios abstürzt ist natürlich nicht so schön. Würde ich mal als Fehler melden...

Übrigens:
In getWords war noch ein kleiner Bug, der dann zusschlägt, wenn ein Wort langer als maxLength ist.
Richtig ist es so:

Function getWords(strText, maxLength)
    strParts = Split(strText, " ")
    strSub = ""
    iLen=CInt(maxLength)
    For Each strPart In strParts
	If Len(strSub) = 0 Then
           strSub = strSub & strPart
           If (Len(strPart) >= iLen) Then
              Exit For
           End If
	Else
           If (Len(strSub & " " & strPart) < iLen) Then
              strSub = strSub & " " & strPart
           Else
              Exit For
           End If
	End If
    Next
    getWords = strSub
End Function

Welche Allplan-Version hast du denn? Bei mir funktioniert das in Allplan 2018 tadellos!

...sieht aus, als ob der Zeilenrücklauf nicht erkannt wird!
Bei mir Schrift-Font = Arial

Versuch mal für den Zeilenumbruch vbLf statt vbCr in Funktion multiLineMax Zeile 7.
Oder "\r\n" statt vbCr

Wäre schön, wenn hier mal ein Mitarbeiter von Allplan helfen könnte (z.B. Herr Sandner)