am 2019-06-24 02:24 PM
am 2019-06-25 08:34 AM
am 2019-06-25 12:25 PM
am 2019-06-25 01:54 PM
am 2019-06-25 02:14 PM
"Beister" wrote:Oh?! Auf welchen Namen hört das denn?
... Es gibt ein Makro in der Standard-Bib, das die Ausgabe von Zahlenwerten, abhängig von ihrer Einheit, Rundung und ggf. Exponentendarstellung ausgibt...
am 2019-06-25 03:16 PM
! ==============================================================================
!
! General Subroutines
!
! ==============================================================================
! ==============================================================================
"callQuantity":
! ------------------------------------------------------------------------------
! Call Quantity Text Macro
! ------------------------------------------------------------------------------
! Input Parameters:
! modelToPaper: Scale (real)
! phaseCalc: Calculation Phase? (bool)
! unitValue Printed Unit Value (double)
! iUnitType Unit Type (integer) see "Units"
! textAlign Text Align (1 left, 3 right) (integer)
! szPrefix String Prefix value (±,-)
! bShowUnit Show Unit (bool)
! bShowSuperScript Show Superscrit (bool)
! Output Parameters:
! totalLength: Quantity Total Length (length)
! textboxHeight: Quantity Total Height (length)
! szExtraPrecision: Quantity Extra Precision (string)
! lengthOfIntegerPart: Length of Integer Part (length)
! lengthOfUnit: Length of Unit (length)
! ==============================================================================
mul2 modelToPaper, modelToPaper
call "quantity_text_writer" parameters lengthValue = unitValue,
iUnitType = iUnitType,
GS_iMarkerDir = 1,
horizontalAlignment = textAlign,
verticalAlignment = 2,
AC_TextFont = textStyleFont[TEXTSTYLE_UNIT],
AC_TextSize = textStyleSize[TEXTSTYLE_UNIT],
AC_TextStyle = textStyleCode[TEXTSTYLE_UNIT][idx],
szPrefix = szPrefix,
AC_Readable = 0,
gs_readable_angle = 90,
useLeadingAndDescent = 1,
bShowText = not(phaseCalc),
bShowUnit = bShowUnit,
bShowSuperScript = bShowSuperScript,
returned_parameters totalLength,
textboxHeight,
szExtraPrecision,
lengthOfIntegerPart,
lengthOfUnit
del 1
return
am 2019-06-25 04:12 PM
"Beister" wrote:Danke!!
am 2019-06-25 04:50 PM
TEXT2 0,0, STR("%.0cm", breite) + " x " + STR("%.0cm", laenge) + ", UK " + STR("%+.2m", unterkante)
am 2019-06-25 05:10 PM
am 2019-06-25 05:34 PM
"Beister" wrote:Ja, genauso sieht das bei uns aus. Und das kommt in feiner Varianz drülfzichmal vor:TEXT2 0,0, STR("%.0cm", ...
breite = str ("%#.3m", BEAM_THICKNESS)Die Millimeter werden einzeln rausgefummelt und nachher im paragraph hochgestellt oder eben weggelassen...
k = strlen (breite)
breite_cm = strsub (breite,1,k-1)
breite_mm = strsub (breite,k,1)
if breite_mm = "0" then breite_mm = ""