Support Forum

Servus!

Wer von Euch hat denn schon Erfahrung mit dem Schreiben von eigenen VBS-Funktionen gesammelt.

Ich lese mich gerade ein und es tauchen ständig Fragen auf, vor allem zu bestehenden Funktionen. Zu Beginn möchte ich gerne nur bestehende Funktionen für meine Zwecke umbauen.

Eine Funktion hat einen Namen - klar!
Dahinter stehen in einer Klammer ( ) ein oder mehrere Abkürzungen, welche in der Funktion berücksichtigt werden sollen. Einige erkenne ich als Allplan Attribute, andere sind in der Datei definiert doch wo ist der Rest definiert.

Wie ist der Zusammenhang von diesen - mir noch nicht ganz klaren Attributen - mit den Allplan Bauteilen.

Hier eine beispielhafte Funktion aus der functions.vbs:

FUNCTION DD1(Laenge,Dicke,DeckenH,DeckenDBH,DOK,DDBOK,DUK,DDUK)
CALL Schriftart(tft)
Laenge = CDbl (Laenge)
Dicke = CStr (Dicke)
DeckenH = CDbl (DeckenH)
DeckenDBH = CDbl (DeckenDBH)
DOK = CDbl (DOK)
DDBOK = CDbl (DDBOK)
DUK = CDbl (DUK)
DDUK = CDbl (DDUK)
IF Laenge >=100 then
Laenge = ROUND(Laenge/100,2)
Laenge = Laenge+.001
Anzahl = Len(Laenge)
Laenge = Left(Laenge,Anzahl-1)
end if
Laenge = CStr (Laenge)

IF Dicke >=100 then
Dicke = ROUND(Dicke/100,2)
Dicke = Dicke+.001
Anzahl = Len(Dicke)
Dicke = Left(Dicke,Anzahl-1)
end if
Dicke = CStr (Dicke)

IF DeckenH=DeckenDBH THEN
DD1 = tft + "DD= " + Laenge + "/" + Dicke
end if

IF DeckenH<>DeckenDBH THEN
if DOK = DDBOK then
DeckenDBH = CStr (DeckenDBH)
DeckenH = CStr (DeckenH)
DD1 = tft + "DAO= " + Laenge + "/" + Dicke + "/" + DeckenDBH
end if
if DUK = DDUK then
DeckenDBH = CStr (DeckenDBH)
DD1 = tft + "DAU= " + Laenge + "/" + Dicke + "/" + DeckenDBH
end if
end if
END FUNCTION

Läenge und Dicke finde ich in Allplan, doch wo sind die roten Attribute / Werte her? Diese habe ich noch nicht gefunden? Im AttributManager sind sie nicht zu finden?

Ich brauche diesen Zusammenhang damit ich in meinem Funktionen-Verständnis einen Schritt nach vorne komme! Daran scheitere ich gerade noch!

Wer von den Spezialisten hat denn da einen Tipp für mich.

Gruß, Martin