Using Programming Languages other than VBA

Sub Example_GetBitmaps()
	' This example uses MenuGroups to obtain a reference to the AutoCAD main menu.
	' It then creates a new Toolbar (TestMenu) and inserts a ToolBarButton
	' with a custom icon into it. The menu is automatically shown.
	'
	' * NOTE: The paths of the icons for the new toolbar should be updated
	' before running this example.
	
	Dim currMenuGroup As acadMenuGroup
	Dim newToolBar As AcadToolbar, newToolBarButton As AcadToolbarItem
	Dim openMacro As String
	Dim SmallBitmapName  As String, LargeBitmapName  As String

	On Error GoTo ERRORTRAP

	' Use MenuGroups property to obtain reference to main AutoCAD menu
	Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item("ACAD")

	' Create the new Toolbar in this group
	Set newToolBar = currMenuGroup.Toolbars.Add("TestMenu")

	' Add an item to the new Toolbar and assign an Open macro
	' (VBA equivalent of: "ESC ESC _open ")
	openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
	Set newToolBarButton = newToolBar.AddToolbarButton(newToolBar.count + 1, "Open", "Open Macro", openMacro, False)
   
	' Read icon paths for this Toolbar button
	GoSub READPATHS

	' Change the default icon (smile face) for the new toolbar button
	SmallBitmapName = "c:\images\16x16.bmp"	 ' Use a 16x16 pixel .BMP image
	LargeBitmapName = "c:\images\32x32.bmp"	 ' Use a 32x32 pixel .BMP image
	newToolBarButton.SetBitmaps SmallBitmapName, LargeBitmapName

	' Read icon paths for this Toolbar button
	GoSub READPATHS

	Exit Sub

READPATHS:
	' Read icon paths for this Toolbar button
	newToolBarButton.GetBitmaps SmallBitmapName, LargeBitmapName
	MsgBox "The new Toolbar uses the following icon files: " & _
		 vbCrLf & vbCrLf & "Small Bitmap: " & SmallBitmapName & vbCrLf & _
		 "Large Bitmap: " & LargeBitmapName

	Return

ERRORTRAP:
	MsgBox "The following error has occurred: " & Err.Description
End Sub

 





Internal Server Error
The server encountered an internal error or
misconfiguration and was unable to complete
your request.
Please contact the server administrator at 
 webmaster@entercad.forsenergy.ru to inform them of the time this error occurred,
 and the actions you performed just before this error.
More information about this error may be available
in the server error log.
Additionally, a 500 Internal Server Error
error was encountered while trying to use an ErrorDocument to handle the request.