New to VBA-Problems With Buttons etc.

[vaggelis.1109]

Hi to everyone,
my name is Vaggelis and i am trying to learn vba. I have a good book with examples and theory but when i tried to associate the macro and the button i had no luck!
The example says:
AddLayer (ok, i wrote the code)
I create a button in AutoCAD and the major problem is what to write in Macro.

Can pls anyone explain to me the procedure?

Thanks!!!

[vaggelis.1109]

Sorry my friends,
i just found the solution:

Run a VBA Macro from a Toolbar or Menu

You can run a VBA macro from an AutoCAD toolbar or menu by simply changing the Macro property for that toolbar or menu. The Macro property must be set equal to

-VBARUN filename.dvb!modulename.macroname

where filename is the name of the project file, modulename is the name of the module containing the macro to be run, and macroname is the name of the macro. The file name is only required when the file is not loaded in the current session of AutoCAD. If the file name is provided, the file will be loaded.

[Ed Jobe]

That works. You can also define a lisp wrapper which allows you to repeat the command by hitting enter. See the sticky thread at the top of this forum. Then the button macro is simply the command name.

[vaggelis.1109]

Sorry my friends but I am doing something wrong and I can't work.
Although my button has the command vbarun.... it doesn't work.
When I press it I get the following message:
Command: -VBARUN
Macro name: Project2.dvb!Module1.AddLayer
Macro not found.

Any suggestions?

Thanks

[B_Roche]

Tough to determine without seeing the code.... check the backslashes in your pathname .... check to make sure the actual filename, module name, and routine name are correct ...

[vaggelis.1109]

OK the code is an example because now I am learning:

Public Sub AddLayer()
Dim strLayerName As String
Dim objLayer As AcadLayer
strLayerName = InputBox("Name of Layer to add: ")
If "" = strLayerName Then Exit Sub ' exit if no name entered
On Error Resume Next ' handle exceptions inline
'check to see if layer already exists
Set objLayer = ThisDrawing.Layers(strLayerName)
If objLayer Is Nothing Then
Set objLayer = ThisDrawing.Layers.Add(strLayerName)
If objLayer Is Nothing Then ' check if obj has been set
MsgBox "Unable to Add '" & strLayerName & "'"
Else
MsgBox "Added Layer '" & objLayer.Name & "'"
End If
Else
MsgBox "Layer already existed"
End If
End Sub


To the button Macro :

-VBARUN Project1.dvb!Module1.AddLayer

I use the Load Project command but it still returns the same message for the macro.

Yesterday everything was right but today no.

[Ed Jobe]

If your project isn't stored in a folder which is defined in the support file search path, then your button macro needs to specify the full file path to the dvb.

[vaggelis.1109]

Thanks Ed!
That is the solution.

Another question: I have code in a module and asks for a point (pick point), length and witdh. Now I am trying to create a form with one button for the point and two text boxes for length and width. I can't understand how I can assign to each element the specific task.
Where I can find informations about ?

Thanks!

[Ed Jobe]

With Object Oriented Programming, OOP, you assign the behavior to each object. If you want the button to do something when you click it, you write code for the button's click event. In the project browser, select the form, and click on the "View Code" button. In the upper left of the form's code module is the object list. Select the point button and it will create a method signature for the button's default method, which is the OnClick method. Now add your code to the OnClick method.

In the list at the upper right, you can select other methods supported by the current control.

[vaggelis.1109]

Ok.I created the form, I assigned specific code at each button but I don't know how I call the form from autocad envornment. I asked about a macro at the first post but I don't know what to do in order to push a toolbar button and see form. I have one button in my toolbar waiting but what is the ''order'' to understand the cooperation with form?
In the module ''way'' I wrote :

The Macro property must be set equal to

-VBARUN filename.dvb!modulename.macroname

Now each element in the form has a part of that code and I can't understand what to write in Macro property. I don't know a lot about VBA but want to have a logic like array command (example..).

Thanks again for your time and info.