• V8 beta C1 - plot text element

    From andrewwomsley@gmail.com@21:1/5 to markoba on Tue Jan 26 06:38:39 2016
    On Sunday, 4 November 2001 21:46:57 UTC, markoba wrote:
    Vince,
    thanks for your help!
    I have tryed your macro with a positive result.
    I will modify the macro because I need various values of "TH" and "TW" for
    my different text elements, but it's ok.
    Bye
    Marcoba
    (sorry for my bad english)

    ____________________________________



    "default" <vince.passalacqua@bentley.com> ha scritto nel messaggio news:9r91h4$m6v$1@news.bentley.com...
    Marco,
    I have a basic macro that is a "pentable print element hook" function .. Steps your need to do ..
    Create a basic macro and name to whatever you like..
    Add the following code:
    ____________________________________________
    function userPlot_element (elm as MbeElement) as long
    Dim scaleValue as double
    Dim org as MbePoint
    Dim status as integer
    Dim oldTextHeight as double
    Dim oldTextWidth as double
    Dim CharWidth as double
    Dim CharHeight as double
    Dim textValue as string

    if elm.type = mbe_text then
    charHeight = elm.CharHeight
    charWidth = elm.CharWidth
    if MbeSettings.textHeight <> CharHeight then
    scaleValue = MbeSettings.textHeight / CharHeight
    status = elm.getstring (textvalue)
    'print " text ="+textValue+" scale =",scaleValue
    status = elm.getOrigin(org)
    status = elm.scale (scaleValue, scaleValue, scaleValue, org)
    end if
    end if
    userPlot_element = Mbe_elemNormal
    end function
    sub main
    end sub
    ________________________________________________

    Under the Basic Editor when creating the macro:
    Choose > Edit Program entry point.. Create a New Entry point ..
    Select the Pen Table Print Element Hook and include the "Name " of the function ( userPlot_element)
    Save the basic macro and exit the editor. ______________________________________

    Now all you have to do is create the pen table and call the basic macro
    and
    function name.
    In the output action of the pen table
    Master Control > scroll to "Call Basic Macro Function" and select the
    basic
    macro you have created..
    Also include the function name: Function Name > userPlot_element
    Save the Pen Table ..
    The basic macro will scale all text in the dgn and reference files to the current Text Height and Text Width Settings.
    So when the pen table is loaded and you preview your print , you should
    see
    all text preview to the current tx = and tw= settings.

    If you have problems or need assistance I can supply you with an example macro and pen table ..

    Vinny Passalacqua ( Bentley)





    "markoba" <markoba@libero.it> wrote in message news:b7HB7.93035$1H1.9858690@news.infostrada.it...
    Greetings all

    Is there a way to plot text elements scaled (1:50, 1:100...) without
    scaling
    the dgn file ? (es: with a pentable??)

    Any ideas ????
    Thanks in advance,

    Marco B.





    Hello, I too am embarking on such a project and would greatly benefit from a copy of the macro file and pentable if still available?
    I'm using MicroStation v8i and for some reason my pentable th4rows an error when trying to find the hook function in my macro.

    Thanks in advance,
    Andy Womsley

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)