topic Re: in VBA Forum

Options when calling a function from a button within acad?

Anonymous — Mon, 09 Apr 2001 13:38:19 GMT

I have a standard function that I would like to use several times over
feeding it a different value on each execution. I don't think this is
possible but hey! I have been wrong before. The tool is designed to insert
blocks and break the lines around them. Thanks for any help...

Ross

Re: Options when calling a function from a button within acad?

Anonymous — Mon, 09 Apr 2001 17:41:58 GMT

Where does the different value come from? You could put a wrapper routine
around it, and call the function using the input as a passed variable.

"Ross Tanner" wrote in message
news:6257A5D0974FDDF7F4FED957C760D65C@in.WebX.maYIadrTaRb...
I have a standard function that I would like to use several times over
feeding it a different value on each execution. I don't think this is
possible but hey! I have been wrong before. The tool is designed to insert
blocks and break the lines around them. Thanks for any help...

Ross

Re: Options when calling a function from a button within acad?

Anonymous — Tue, 10 Apr 2001 06:44:43 GMT

We'll need more information and some code, if you got it.

--
http://www.acadx.com
Win an autographed copy of
"Mastering AutoCAD 2000 Objects"
by Dietmar Rudolph

"Ross Tanner" wrote in message
news:6257A5D0974FDDF7F4FED957C760D65C@in.WebX.maYIadrTaRb...
> I have a standard function that I would like to use several times over
> feeding it a different value on each execution. I don't think this is
> possible but hey! I have been wrong before. The tool is designed to insert
> blocks and break the lines around them. Thanks for any help...
>
> Ross
>

Re:

Anonymous — Tue, 10 Apr 2001 08:24:04 GMT

I have the buttons in Acad setup with the following syntax:

^C^C-vbarun gatevalve or
^C^C-vbarun ovalve etc.

Using this method I need to have a sub for each button to call individually.
If I could place the block name (gatevalve, ovalve...) and the size in the
button I could call the controller function directly (after changing it to a
sub) Hope this explains what I am after.

Sub Gatevalve()
BoGus = Controller("Gatevalve", 1)
End Sub

Sub Ovalve()
BoGus = Controller("Ovalve", 1)
End Sub

Function Controller(BlockName, SiZe)

BoGus = IsLocalBlock(BlockName)
BoGus = LinearInSerter(BlockName, SiZe)

End Function

Thanks for sharing your knowledge.
Ross

"Frank Oquendo" wrote in message
news:7AF37832A331553C580ACC0E3735133A@in.WebX.maYIadrTaRb...
> We'll need more information and some code, if you got it.
>
> --
> http://www.acadx.com
> Win an autographed copy of
> "Mastering AutoCAD 2000 Objects"
> by Dietmar Rudolph
>
> "Ross Tanner" wrote in message
> news:6257A5D0974FDDF7F4FED957C760D65C@in.WebX.maYIadrTaRb...
> > I have a standard function that I would like to use several times over
> > feeding it a different value on each execution. I don't think this is
> > possible but hey! I have been wrong before. The tool is designed to
insert
> > blocks and break the lines around them. Thanks for any help...
> >
> > Ross
> >
>

Re:

Anonymous — Tue, 10 Apr 2001 08:37:03 GMT

Ross, vba macros cannot contain arguments. Here is a workaround you can use,
I'm sure there are others as well. You need a simple lisp routine and it
works great...

Sub GetArgument()
''' THIS WOULD BE YOU "CONTROLLER FUNCTION"
MsgBox (AddFive(ActiveDocument.GetVariable("USERR1")))
End Sub

Private Function AddFive(iValue) As Double
''' THIS WOULD BE THE FUNCTION TO DO YOU THING
AddFive = iValue + 5
End Function

now in your toolbar buttons you can do something like...

(setvar "USERR1" 5)(princ) -vbarun GetArgument

...the number 5 is the argument in this case. I would not reccomend using
user vars though, I would use the registry or a text file to save your
argument. If you make a lisp function to save the argument then you only
need to do something like...

(SaveArg 5) -vbarun GetArgument

Tweak as you see fit.
Best Reagrds,
Jacob Dinardi

Ross Tanner wrote in message
news:89BF744AFFF2BDEC9935368F77D0FD35@in.WebX.maYIadrTaRb...
I have the buttons in Acad setup with the following syntax:

^C^C-vbarun gatevalve or
^C^C-vbarun ovalve etc.

Using this method I need to have a sub for each button to call individually.
If I could place the block name (gatevalve, ovalve...) and the size in the
button I could call the controller function directly (after changing it to a
sub) Hope this explains what I am after.

Sub Gatevalve()
BoGus = Controller("Gatevalve", 1)
End Sub

Sub Ovalve()
BoGus = Controller("Ovalve", 1)
End Sub

Function Controller(BlockName, SiZe)

BoGus = IsLocalBlock(BlockName)
BoGus = LinearInSerter(BlockName, SiZe)

End Function

Thanks for sharing your knowledge.
Ross

"Frank Oquendo" wrote in message
news:7AF37832A331553C580ACC0E3735133A@in.WebX.maYIadrTaRb...
> We'll need more information and some code, if you got it.
>
> --
> http://www.acadx.com
> Win an autographed copy of
> "Mastering AutoCAD 2000 Objects"
> by Dietmar Rudolph
>
> "Ross Tanner" wrote in message
> news:6257A5D0974FDDF7F4FED957C760D65C@in.WebX.maYIadrTaRb...
> > I have a standard function that I would like to use several times over
> > feeding it a different value on each execution. I don't think this is
> > possible but hey! I have been wrong before. The tool is designed to
insert
> > blocks and break the lines around them. Thanks for any help...
> >
> > Ross
> >
>

Re:

Anonymous — Tue, 10 Apr 2001 08:38:00 GMT

My favorite approach to that issue is one originally posted by Rakesh Rao:

Public Sub MacroWithArguments()

Dim stringArg As String

stringArg = ThisDrawing.Utility.GetString(False)
MsgBox stringArg

End Sub

Replace the call to MsgBox with a call to your function and pass the function
the argument you collected. As for your button macro, just include the argument
right after the call to vbarun:

^C^C^P-vbarun;MacroWithArguments;"gatevalve";
^C^C^P-vbarun;MacroWithArguments;"ovalve";

--
http://www.acadx.com
Win an autographed copy of
"Mastering AutoCAD 2000 Objects"
by Dietmar Rudolph

"Ross Tanner" wrote in message
news:89BF744AFFF2BDEC9935368F77D0FD35@in.WebX.maYIadrTaRb...
> I have the buttons in Acad setup with the following syntax:
>
> ^C^C-vbarun gatevalve or
> ^C^C-vbarun ovalve etc.
>
> Using this method I need to have a sub for each button to call individually.
> If I could place the block name (gatevalve, ovalve...) and the size in the
> button I could call the controller function directly (after changing it to a
> sub) Hope this explains what I am after.
>
> Sub Gatevalve()
> BoGus = Controller("Gatevalve", 1)
> End Sub
>
> Sub Ovalve()
> BoGus = Controller("Ovalve", 1)
> End Sub
>
> Function Controller(BlockName, SiZe)
>
> BoGus = IsLocalBlock(BlockName)
> BoGus = LinearInSerter(BlockName, SiZe)
>
> End Function
>
> Thanks for sharing your knowledge.
> Ross

Re:

Anonymous — Tue, 10 Apr 2001 08:55:51 GMT

That's a good one, I'll have to update some code 😉

Frank Oquendo wrote in message
news:0DC524619BD670D94F6BF1BC26674D2F@in.WebX.maYIadrTaRb...
My favorite approach to that issue is one originally posted by Rakesh Rao:

Public Sub MacroWithArguments()

Dim stringArg As String

stringArg = ThisDrawing.Utility.GetString(False)
MsgBox stringArg

End Sub

Replace the call to MsgBox with a call to your function and pass the
function
the argument you collected. As for your button macro, just include the
argument
right after the call to vbarun:

^C^C^P-vbarun;MacroWithArguments;"gatevalve";
^C^C^P-vbarun;MacroWithArguments;"ovalve";

--
http://www.acadx.com
Win an autographed copy of
"Mastering AutoCAD 2000 Objects"
by Dietmar Rudolph

"Ross Tanner" wrote in message
news:89BF744AFFF2BDEC9935368F77D0FD35@in.WebX.maYIadrTaRb...
> I have the buttons in Acad setup with the following syntax:
>
> ^C^C-vbarun gatevalve or
> ^C^C-vbarun ovalve etc.
>
> Using this method I need to have a sub for each button to call
individually.
> If I could place the block name (gatevalve, ovalve...) and the size in the
> button I could call the controller function directly (after changing it to
a
> sub) Hope this explains what I am after.
>
> Sub Gatevalve()
> BoGus = Controller("Gatevalve", 1)
> End Sub
>
> Sub Ovalve()
> BoGus = Controller("Ovalve", 1)
> End Sub
>
> Function Controller(BlockName, SiZe)
>
> BoGus = IsLocalBlock(BlockName)
> BoGus = LinearInSerter(BlockName, SiZe)
>
> End Function
>
> Thanks for sharing your knowledge.
> Ross

Re:

Anonymous — Tue, 10 Apr 2001 09:00:57 GMT

Frank,

That is fantastic! I can/will use this in many places!

Thanks abunch.
Ross

"Frank Oquendo" wrote in message
news:0DC524619BD670D94F6BF1BC26674D2F@in.WebX.maYIadrTaRb...
> My favorite approach to that issue is one originally posted by Rakesh Rao:
>
> Public Sub MacroWithArguments()
>
> Dim stringArg As String
>
> stringArg = ThisDrawing.Utility.GetString(False)
> MsgBox stringArg
>
> End Sub
>
> Replace the call to MsgBox with a call to your function and pass the
function
> the argument you collected. As for your button macro, just include the
argument
> right after the call to vbarun:
>
> ^C^C^P-vbarun;MacroWithArguments;"gatevalve";
> ^C^C^P-vbarun;MacroWithArguments;"ovalve";
>
> --
> http://www.acadx.com
> Win an autographed copy of
> "Mastering AutoCAD 2000 Objects"
> by Dietmar Rudolph
>
> "Ross Tanner" wrote in message
> news:89BF744AFFF2BDEC9935368F77D0FD35@in.WebX.maYIadrTaRb...
> > I have the buttons in Acad setup with the following syntax:
> >
> > ^C^C-vbarun gatevalve or
> > ^C^C-vbarun ovalve etc.
> >
> > Using this method I need to have a sub for each button to call
individually.
> > If I could place the block name (gatevalve, ovalve...) and the size in
the
> > button I could call the controller function directly (after changing it
to a
> > sub) Hope this explains what I am after.
> >
> > Sub Gatevalve()
> > BoGus = Controller("Gatevalve", 1)
> > End Sub
> >
> > Sub Ovalve()
> > BoGus = Controller("Ovalve", 1)
> > End Sub
> >
> > Function Controller(BlockName, SiZe)
> >
> > BoGus = IsLocalBlock(BlockName)
> > BoGus = LinearInSerter(BlockName, SiZe)
> >
> > End Function
> >
> > Thanks for sharing your knowledge.
> > Ross
>