Pen Table Macro Hook help?!?

RE: Pen Table Macro Hook help?!?

Lorys — Mon, 02 Feb 2015 07:53:52 GMT

This thread really belongs to programing forum..

but in any case I'm curious why do you need to drop anything for printing .. cant your pentable correct things that dont print the way yuo want normally?

RE: Pen Table Macro Hook help?!?

David Schnelle — Mon, 26 Jan 2015 14:08:38 GMT

I found an easier method to hook a BASIC macro to the pen table, similar to the former response: In your pen table, add something like this:

BEGIN DropElementFunction
BASICFUNC = DropElementFromPenTable.bas, DropElements
PRIORITY = 30
END

Where, DropElementFunction is only a name, there is nothing else associated with it.
DropElementFromPenTable.bas is a basic macro that contains the DropElements function that you want performed at plotting. Note that your basic macro must contain a sub main(). Commands in the sub main() will be run prior to the function being called so you can have some pre-processing done, including calling other functions.

The Hook Function is in the BASIC macro Editor. While editing your BASIC macro, from the Edit pull down menu select "Program Entry Point", click new and choose the type of Hook you need and insert your function name in the dialog box.

It is my understanding that you cannot use VBA as your macro from the pen table, it must be in BASIC.

Re: Pen Table Macro Hook help?!?

Roy Gallier — Mon, 17 May 2010 02:26:42 GMT

I could not figure out how to hook a VBA directly in my thread, Emulate Plot Hook Functions & AutoRun. Although it is possible with a BASIC macro.

Add a section to a PenTable to call the BASIC Macro:

BEGIN Splash_Draw_Order
BASICFUNC = SPLASH_PenTableHook.bas,PenTableHook
END

Create a BASIC macro to call your primary macro (my "SPLASH_PenTableHook.bas" macro):

Function PenTableHook (inElem as MbeElement) As Long

Dim PenTableHookPoint As String

PenTableHook = MBE_ElemNormal

End Function

Sub main
Dim startPoint As MbePoint
Dim point As MbePoint, point2 As MbePoint

' Send a keyin that can be a command string
MbeSendKeyin "macro Splash_Draw_Order"
End Sub

Note that the "SPLASH_PenTableHook.bas" calls the "Splash_Draw_Order.ba" macro, this could also call a VBA macro.