Проектирование в Autocad с использованием Visual basic

Private Sub CommandButton1_Click()

 

Name1 = TextBox1.Text

ComboBox1.AddItem (Name1)

Name2 = ComboBox1.Text

Dim layerColl As AcadLayers

Dim testlayer As AcadLayer

 

Set layerColl = ThisDrawing.Layers  'чтение коллекции слоев

Set testlayer = layerColl.Add(Name1) 'добавление нового слоя

       

Rcount = ThisDrawing.ModelSpace.Count

For Index = 0 To Rcount - 1

Set ThisEntity = ThisDrawing.ModelSpace.Item(Index)

If ThisEntity.ObjectName = "AcDbPolyline" Then

ThisEntity.Layer = Name2

End If

Next

End Sub

Данный код позволяет задать имя слоя Name1 с помощью TextBox1.Text и добавить новый слой в коллекцию слоев с помощью команды Set testlayer = layerColl.Add(Name1). Далее перебираются все графические примитивы и если находится полилиния, то она добавляется на выбранный в ComboBox1 слой.

В событие кнопки «Перенести» был добавлен следующий код:

Private Sub CommandButton2_Click()

Rcount = ThisDrawing.ModelSpace.Count

Open "E:\Timofeev\1.txt" For Output As #1

For Index = 0 To Rcount - 1

Set ThisEntity = ThisDrawing.ModelSpace.Item(Index)

If ThisEntity.ObjectName = "AcDbPolyline" Then

    cord = ThisEntity.Coordinates

    MsgBox (ThisEntity.ObjectName)

    nm = ThisEntity.ObjectName

    Write #1, CStr(nm)

    For i = 0 To UBound(cord) - 1 Step 2

        Write #1, "X: " + CStr(cord(i))

        Write #1, "Y: " + CStr(cord(i + 1))

        Write #1,

    Next

End If

Next

Close #1

End Sub

Данный код позволяет записать в текстовый файл имя графического примитива, а так же его координаты по осям Х и Y.

В инициализацию формы был добавлен следующий код:

Private Sub UserForm_Initialize()

    Dim layerColl As AcadLayers

    Set layerColl = ThisDrawing.Layers

        Rcount = layerColl.Count

        For Index = 0 To Rcount - 1

            ComboBox1.AddItem (layerColl.Item(Index).Name)

        Next

    End Sub

Данный код позволял добавить все слои созданный в проекте AutoCAD в            ComboBox1.

 

Заключение

 

Первые версии системы AutoCAD, разрабатываемой американской фирмой Autodesk, появились еще в начале 80-х годов двадцатого века и сразу же привлекли к себе внимание своим оригинальным оформлением и удобством для пользователя. Постоянное развитие системы, учет замечаний, интеграция с новыми продуктами других ведущих фирм (в первую очередь, Microsoft) сделали AutoCAD мировым лидером на рынке программного обеспечения. Широкое распространение системы в России началось с десятой версии, которая работала в операционной системе MS DOS. В такой же операционной системе могли работать одиннадцатая, двенадцатая и тринадцатая версии, однако появились и аналоги, которые могли работать в среде операционной системы Windows (Windows 3.1 или Windows 95). Четырнадцатая версия системы AutoCAD вышла уже только в Windows-варианте и была рассчитана на операционные системы Windows 95 и Windows NT. В 1999 году началось внедрение 15-й версии, которая известна как AutoCAD 2000. Вслед за ней, с интервалом в один год, выходили AutoCAD 2000i и AutoCAD 2002. Все они связаны между собой единым форматом хранения данных.

Рассматриваемая в данной книге версия AutoCAD 2004 (внутренний номер - 16) появилась в марте 2003 года. Работоспособность этой версии в средах Windows 95 и Windows 98 уже не гарантируется. Для установки версии рекомендуется одна из следующих операционных систем: 

• Windows 2000;
• Windows XP (Professional Edition);
• Windows XP (Home Edition);
• Windows NT 4.0 (с обновлением Service Pack 6a или более поздним).

Система AutoCAD 2004 может использоваться в локальном или сетевом варианте. Для ее нормального функционирования требуется получить специальный код авторизации от фирмы Autodesk.

Первые версии AutoCAD содержали в основном инструменты для простого двумерного рисования, которые постепенно дополнялись и развивались. В результате система стала очень удобным "электронным кульманом".

Большим преимуществом системы AutoCAD как средства рисования является возможность последующего формирования электронного архива чертежей. Каждый из созданных таким образом файлов рисунков легко редактируется, что позволяет быстро получать чертежи-аналоги по чертежам-прототипам. В качестве средств защиты от несанкционированного доступа в файлах рисунков, созданных системой AutoCAD 2004, предусмотрены пароли и электронные цифровые подписи.

Для облегчения процесса выпуска проектной документации можно разрабатывать "библиотеки стандартных элементов". В качестве стандартных элементов могут выступать как целые файлы, так и их отдельные части. Эта идея стала хорошим стимулом для создания на базе системы AutoCAD локальных рабочих мест по различным конструкторским, архитектурным и другим направлениям, а также для разработки новых специализированных систем. Мощным дополнением к этому является возможность использования языков программирования.

Начиная с AutoCAD 2002, в систему включены специальные средства для контролирования стандартов предприятий, позволяющих управлять слоями, стилями и т. п.

Уже десятая версия AutoCAD позволяла выполнить достаточно сложные трехмерные построения в любой плоскости пространства и отобразить их на разных видовых экранах с различных точек зрения. Поэтому она стала также инструментом и трехмерного моделирования. Механизм пространства листа и видовых экранов дал возможность разрабатывать чертежи с проекциями трехмерных объектов или сооружений.

 

Список литературы

 

1. Полещук Н.Н. AutoCAD 2002/  Н.Н. Полещук – СПб.: БХВ-Петербург, 2003. - 1200 с.
2. Полещук Н.Н. Visual LISP и секреты адаптации AutoCAD/  Н.Н. Полещук  – СПб.: БХВ-Петербург, 2001.  - 576 с.
3. Андерсон Т. Visual Basic/ Т. Андерсон– М: ЗАО "Изд-во БИНОМ", 1998. - 224 с.
4. Гарнаев А.Ю. Самоучитель VBA/ А.Ю. Гарнаев – СПб.: БХВ-Петербург, 1999. -512 с.
5. Томпсон  Н.  Секреты  программирования трехмерной графики для Windows 95: пер. с англ./ Н.  Томпсон  - СПб.: Питер, 1997. - 352 с.
6. Гладков С.А. Программирование в Microsoft Windows. В 2 ч. /  С.А. Гладков, Г.В.   Фролов - М.: Диалог-МИФИ, 1992.
7. Мешков А. Visual C++ и MFC.  Программирование для Windows NT и Windows 95. В 3 т. /  А. Мешков,  Ю.Тихомиров  – СПб.: BHV, 1997.
8. Зуев С. САПР на базе AutoCad - как это делается/ С. Зуев, Н. Полещук - СПб.: «БХВ-Петербург», 2004.- 1168 с.

 

 

Приложение А – визуальная форма программы

 

Рисунок 1 – визуальная форма разработанной программы