NANOCAD ШОУ
dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > .NET > Как выполнить поиск обьектов в выбранном наборе AutoCAD через Visual Basic .Net

Как выполнить поиск обьектов в выбранном наборе AutoCAD через Visual Basic .Net

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 04.07.2015, 12:08 #1
Как выполнить поиск обьектов в выбранном наборе AutoCAD через Visual Basic .Net
Александр_2508
 
Регистрация: 18.12.2010
Сообщений: 11

Александр_2508 вне форума Вставить имя

Помогите! Пишу плагин для автокада на VB.NET 2010. не пойму как определить, в наборе выбранных обьектов, определнный элемент (например линию или текст):

Код:
[Выделить все]
           '' Получение текущего документа
            Dim acDocEd As Editor = Application.DocumentManager.MdiActiveDocument.Editor
            Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
            Dim acCurDb As Database = acDoc.Database
            'Dim 


            '' Старт транзакции
            Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

                '' Запрос выбора объектов на чертеже
                Dim acSSPrompt As PromptSelectionResult
                acSSPrompt = acDocEd.GetSelection()
                Dim acSSet As SelectionSet

                '' Если статус запроса OK, объекты были выбраны

                If acSSPrompt.Status = PromptStatus.OK Then

                    '' Получение объекта набора
                    acSSet = acSSPrompt.Value

                    Application.ShowAlertDialog("Количество выбранных объектов" & _
                                        acSSet.Count.ToString())
                    '' Перебор объектов в наборе
                    For Each acSSObj As SelectedObject In acSSet

                        Select Case {проверяемое выражение} не могу понять какое выражение. наверно acSSObj но вот св-ва какие не понимаю
                            Case {значение, значение} здесь должно определиться линия это либо текст.
                               
                                Dim textObj As DBText = acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForRead, False, True)
                                Application.ShowAlertDialog("площадь: " & textObj.TextString)

                        End Select
                    Next
                Else
                    Application.ShowAlertDialog("Количество выбранных объектов" & 0)
                End If
            End Using
        End Sub
Пробовал искать по различным форумам но как оказывается доступной литературы по програмированию в автокаде литературы вроде много, но по факту везде описываются примитивы и все.

Последний раз редактировалось Кулик Алексей aka kpblc, 05.07.2015 в 14:17.
Просмотров: 2331
 
Непрочитано 04.07.2015, 15:40
#2
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 1,369


1. Используйте теги [ CODE ] [ /CODE ] для оформления кода.
2. Плоховато искали, тут http://adn-cis.org/forum/index.php?topic=2729.15 показано два способа определения типа объекта, выбирайте любой.
Boxa на форуме вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > .NET > Как выполнить поиск обьектов в выбранном наборе AutoCAD через Visual Basic .Net

Инженерные консультации
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
На Mac OS X через Parallels Desktop 10 не могу установить AutoCAD, ошибка из-за .NET Framework Jony-pbp AutoCAD 13 11.02.2015 23:00
реализация задачи visual studio2012 (visual basic .net) autocad 2012, oracle11g Anta .NET 32 31.12.2012 07:35
(Visual Basic) Программа для автокада работает через раз Snow89 Программирование 1 11.10.2012 16:41
Информация по идентификационным кодам программ в сетевых лицензиях Autodesk KSI AutoCAD 1 14.09.2009 15:59

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||


Размещение рекламы