Textlänge auslesen

[oschaeffer]

Hallo zusammen,

versuche gerade für einen einfachen Zeichnungstitel per "Quantity_Text_Writer" eine Textlänge auszulesen. Ziel ist die Ausgabe "Plannummer . Plantitel" links unten an der Zeichnung.

Dabei kommt folgende Fehlermeldung:

"Ungültiger Parameterwert 'LENGTHVALUE' ruft Bibliothekselement auf in Zeile 85."

Das Skript hänge ich unten an. Hat einer eine Idee, woran das liegen könnte?

Schon mal Danke und viele Grüße,
Oliver




!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!++++++++++ A U S F Ü H R U N G S R O U T I N E ++++++++++++
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

GOSUB 1000:

!===========================================================
END
!===========================================================


!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!++++++++++ S T A R T E I N Z E L M O D U L E ++++++++++++
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

!===========================================================
1000: !Abfrage Breite Zeichnungsnummer
!===========================================================

!Auslesen der Textlängen durch Modul 9950
bShowText_auswahl = 0

SYM = AC_DrawingNumber
iUnitType_auswahl = 1
GOSUB 9950:
SYM_Number = gesamtL


!===========================================================
2000: !Linie zeichnen
!===========================================================


!===========================================================
3000: !Text schreiben
!===========================================================

TEXT2 0,0,AC_DrawingNumber
ADD2 SYM_Number,0
TEXT2 0,0,AC_DrawingTitel

Return




!===========================================================
9950: !Textlänge ermitteln
!===========================================================

CALL "quantity_text_writer" PARAMETERS lengthValue = SYM,
! 0: Individuell (-> custom_form)
! 1: "Linear_dimension"
! 2: "Angular_dimension"
! 3: "Angular_length_dimension"
! 4: "Radial_dimension"
! 5: "Level_dimension"
! 6: "Elevation_dimension"
! 7: "Window_door_dimension"
! 8: "Sill_height_dimension"
! 9: "Area_dimension"
! 10: "Calc_length_unit"
! 11: "Calc_area_unit"
! 12: "Calc_volume_unit"
! 13: "Calc_angle_unit"
iUnitType = iUnitType_auswahl, custom_form="",
! Drehung: 1: Standard, 2: Standard + 90°, 3: Horizontal, 4: Vertikal
GS_iMarkerDir = 1,
! Ausrichtung: 1: links, 2:mittig, 3: rechts, 4: "IntegerPart" /
! 1: unten, 2: oben
horizontalAlignment = 3, verticalAlignment=1,
! Drehung für Lesbarkeit an=1 oder aus=0, Vertikale Grenze für Lesbarkeit
AC_Readable=0, gs_readable_angle=90,
! Schriftart
AC_TextFont = TEXT_FONT, AC_TextSize = TEXT_SIZE, AC_TextStyle = 0,
! Präfixtext
szPrefix = "",
! Zeilenabstand und Unterlängen berücksichtigen
useLeadingAndDescent = 1,
! Text berechnen=0 / ausgeben=1
bShowText = bShowText_auswahl,
! Mit=1 / Ohne=0 Einheiten ausgeben
bShowUnit = 0,
! Rückgabewerte:
RETURNED_PARAMETERS gesamtL, gesamtH, exponent
RETURN

[oschaeffer]

Okay, es geht auch einfacher, nämlich mit Autotexten im Symbolfenster und dann:

ADD2 0,-0.01
FRAGMENT2 all, 0
LINE2 0,0,AC_DrawingRect3,0

Nur die Line über die volle Breite der Zeichnung funktioniert noch nicht...
OS

[oschaeffer]

und hier die Lösung:

ADD2 0,-0.01
FRAGMENT2 all, 0
LINE2 0,0,AC_DrawingRect[3],0

VG, OS