10.13. Добавление нового меню

Эта процедура добавляет к основным меню AutoCAD выпадающее меню «Линии», в котором два пункта: «Прямая» и «Ломаная».

Пример 18.

Public Sub AddVBAMenu2()

Dim objMenuGroup As AcadMenuGroup

Dim objVBAMenu As AcadPopupMenu

Dim objVBAIDE As AcadPopupMenuItem

Dim objItem As AcadToolbarItem

Dim objLine As AcadPopupMenuItem

Dim strMacro1 As String

Dim strMacro2 As String

strMacro1 = “_-vbarun Line1”

strMacro2 =”_-vbarun Line2”

Set objMenuGroup = Application.MenuGroups.Item(0)

Set objVBAMenu= objMenuGrp.Menus.Add(«Линии»)

Set objLine = objVBAMenu.AddMenuItem(objVBAMenu.Count + 1,_

«Прямая», strMacro1)

Set objLine = objVBAMenu.AddMenuItem(objVBAMenu.Count + 1,_

«Ломаная», strMacro2)

objVBAMenu.InsertInMenuBar(ThisDrawing.Application.MenuBar.Count)

`objMenuGroup.Save (acMenuFileCompiled)

End Sub

Если активизировать строку “`objMenuGroup.Save (acMenuFileCompiled)” то данная процедура запишет это меню в текстовый файл, туда где находятся другие пункты главного меню.

ЛИТЕРАТУРА.

1. Основы геоинформатики: В 2 кн. Кн.1.Учебное пособие для студентов вузов/Е. Г. Капралов, А. В. Кошкарев, В. С. Тикунов и др. ; Под ред. В. С. Тикунова.- М.: Издательский центр «Академия», 2004.-352с. , с цв. ил.:ил.

2. Основы геоинформатики: В 2 кн. Кн.2.Учебное пособие для студентов вузов/Е. Г. Капралов, А. В. Кошкарев, В. С. Тикунов и др. ; Под ред. В. С. Тикунова.- М.: Издательский центр «Академия», 2004.-480с. , с цв. ил.:ил.

3. Цветков В. Я Геоинформационные системы и тхнологии. М.: Финансы и статистика, 1998.- 288с.: ил.

4. Шайтура С. В. Геоинформационные системы и методы их создания.- Калуга: Издательство Н. Бочкаревой, 1998 г.- 252с. : ил.

5. Эллен Финкельштейн.AutoCAD 2004. Библия пользователя.: Пер. с англ. – М.:Издательский дом «Вильямс»,2004.- 1184с.:ил.-Парал. тит. англ.

6. Visual Basic 6.0. Наиболее полное руководство для профессиональной работы в среде Visual Basic 6.0: Пер. с англ. – СПб: БХВ – Петербург, 2003 – 992 с:ил.

7. Браун С. Visual Basic 6.0. Учебный курс.- СПб.:Питер, 2005 – 574с.:ил.

8. Кузьменко В.Г. VBA 2003. Visual Basic for Application. М.: ООО, «Бином-Пресс», 2004,432с.:ил.

Литература

1. /Варламов А.А.Земельный кадастр [Текст]. В 7 т т. 6. Географические и земельно-информационные системы: Учебник для студентов землеустроительных специальностей вузов/Варламов А.А., Гальченко С.А.. М.: Колос, 2005,-400c.:ил.; Библиогр:с 394-395.-Предм. указ.:с.396-397.- 3000 экз.-ISBN 5-9532-0144-3(T.6).

2. / Колесниченко О.В Аппаратные средства РС [Текст] / Колесниченко О.В., Шишигин И.В. – 5-е изд. –СПб, БХВ -Петербург, 2004. - 1152c:.ил..; Предм. каз.:1143-1152 – 5000 экз. – ISBN 5- 94157- 257-3.

3. Макарова Н.В. Информатика [Текст].. Учебник для студентов вузов/ Макарова Н..В.[и др.] Под ред. Н.В. Макаровой – 4-е переработанное издание.М.: Финансы и статистика, 2005 – 768с.: ил.-Предм. указ.:с.748-758.- 10000 экз.-ISBN 5-279-02202-0.

4. Основы геоинформатики [Текст]. В 2 кн. Кн. 1. Учеб.е пособие для студентов вузов / Е.Г. Капралов, А.В. Кошкарев, В.С. Тикунов и др. Под ред. В.С. Тикунова. – М.: Издательский центр «Академия», 2004 -352с.,[16]с.цв.ил.:ил. – Библиогр.:336-346.-5100 экз-. ISBN 5-7695-1443-4.

5. Основы геоинформатики [Текст]. В 2 кн. Кн. 2. Учебно.е пособие для студентов вузов / Е.Г. Капралов, А.В. Кошкарев, В.С. Тикунов и др. Под ред. В.С. Тикунова. – М.: Издательский центр «Академия», 2004 -480с.,[8]с.цв.ил.:ил – Библиогр.:469-478.-5100 экз-. ISBN 5-7695-1444-2

6. Дейт К. Дж. Введение в системы баз данных[Текст]. Седьмое издание. Пер. с англ./. Дейт К. Дж – М.: СПб, Киев, издательский дом «Вильямс», 2005. -1072c. – Предм.указ.:1064-1071-5000экз-. ISBN 5-8459-0138-3.

7. Шекхар Шаши. Основы пространственных баз данных [Текст]. Пер. с англ /Шекхар Шаши, Чаупа Санжей - М.: Кудиц-образ, 2004-336с Библиогр. с.310-317.. Предм. указ:.с..322-325-3000 экз.- ISBN 5-13-017480-7

8. Цветков В. Я..Геоинформационные системы и технологии[Текст] / Цветков В. Я.- М.: Финансы и статистика, 1998 -288 с.:ил.- Библиогр: с.266-268.. -5000 экз-

ISBN 5-279-01812-0

9. Питер Джексон. Введение в экспертные системы [Текст] Пер. с англ / Питер Джексон.- М.: СПб. Киев. Издательский центр «Вильямс», 2004-336с. Библиогр :с.597-616.. Предм. указ.:с..617-622-5000 экз.- ISBN 5-8459-0150-2

. 10. Леонтьев В.П. Новейшая энциклопедия персонального компьютера[Текст] / Леонтьев В.П..- М.: «ОЛМА-ПРЕСС»,2003-957c:ил. -20000 экз.- ISBN 5-224-04035-3

. .11.Картография. Геоинформационные системы[Текст] /Под ред Берлянта А. М. и Тикунова В. С..- М.:Картгеоцентр-Геодезиздат,1994-350 с. Библиогр.: с.346-348..- 5000 экз.- ISBN 5-8459-0123-2

13