Groups | Search | Server Info | Login | Register

Groups > comp.cad.microstation > #35

Re: V8 beta C1 - plot text element

Show all headers | View raw

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

Back to comp.cad.microstation | Previous | Next | Find similar

Thread

Re: V8 beta C1 - plot text element andrewwomsley@gmail.com - 2016-01-26 06:38 -0800

csiph-web