V8 beta C1 - plot text element

[markoba]

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.

[default]

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" <mar...@libero.it> wrote in message
news:b7HB7.93035$1H1.9...@news.infostrada.it...

[markoba]

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.pa...@bentley.com> ha scritto nel messaggio
news:9r91h4$m6v$1...@news.bentley.com...

[andrew...@gmail.com]

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