| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > .NET > "VB.net для чайников". Вопросы программирования под Autocad и ©.

"VB.net для чайников". Вопросы программирования под Autocad и ©.

Ответ
Поиск в этой теме
Непрочитано 13.12.2010, 10:58
"VB.net для чайников". Вопросы программирования под Autocad и ©.
AlexV
 
Инженер
 
С-Пб
Регистрация: 02.10.2008
Сообщений: 3,685

Есть у нас популярная тема: Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу) .. Есть, конечно, и это и, но хотелось бы иметь аналогичную возможность задавать тупые (для начала очень тупые) вопросы по VB.Net здесь..
Простейший пример из ссылки в теме про миграцию VBA - Net посмотрел..
Имеем проект - "библиотеку классов", с подключенными ссылками (на рисунке).



Имеем код, который при загрузке построенной dll-ки "добавляет" в автокад команду mAddPnt, создающую точку..
Код:
[Выделить все]
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common
Public Class AdskCom
    Public ReadOnly Property ThisDrawing() As AcadDocument
        Get
            Return Autodesk.AutoCAD _
            .ApplicationServices.Application. _
            DocumentManager.MdiActiveDocument. _
            AcadDocument
        End Get
    End Property
    <Autodesk.AutoCAD.Runtime.CommandMethod("mAddPnt")> _
    Public Sub mAddPnt()
        On Error Resume Next
        Dim location(0 To 2) As Double
        location(0) = 5.0# : location(1) = 5.0# : location(2) = 0.0#
        location = ThisDrawing.Utility.GetPoint(, "Укажите точку")
        ThisDrawing.ModelSpace.AddPoint(location)
    End Sub
End Class
Возникают следующие вопросы:
1. Строки "Imports Autodesk.AutoCAD.Interop" импортируют в проект соответствующие "пространства имен" - объектные модели, позволяя использовать их в проекте.. На вкладке "Ссылки" есть также список "Импортированные пространства имен"; - "галочка" на соответствующей библиотеке - аналогична ли строке "Imports Autodesk...." и если да то в чем разница?

2. Как быть с импортом библиотек, если предполагается использовать программу и под 64, и под 32 бит?

3. В проект библиотеки классов возможно добавлять формы. Каким образом эту самую "Form1" вызвать на экран? Методом тыка попробовал в "Public Sub mAddPnt()" влепить строку "Form1.ActiveForm.Activate()", но эта единственное, к чему она приводит, - к вылету автокада с фатал эррором..

4. Нижележащая процедура позволяет получить список установленных языков и замечательно работает в приложениях "Windows Forms". Свойство ".InputLanguage" принадлежит пространству имен "System.Windows.Forms". Возможно ли применить его в случае моего кода?
Может, надо импортировать эти самые пространства в проект..
Код:
[Выделить все]
 Public Sub GetLanguages()
    ' Gets the list of installed languages.
    Dim lang As InputLanguage
    For Each lang In  InputLanguage.InstalledInputLanguages
        textBox1.Text &= lang.Culture.EnglishName & ControlChars.Cr
    Next lang
End Sub 'GetLanguages
5. Строка
<Autodesk.AutoCAD.Runtime.CommandMethod("mAddPnt")> _
"создает" новую команду, при введении имени которой в комстроке автокада выполняется процедура mAddPnt. А как создать процедуру, которая должна реагировать на события приложения Acad-а, - некий аналог "AcadDocument_BeginCommand(ByVal CommandName As String)" в VBA?

6. Код снизу дает возможность использовать привычную объектную модель ThisDrawing... А возможно ли аналогично использовать объектную модель ASD при подключенных его библиотеках?
Код:
[Выделить все]
Public ReadOnly Property ThisDrawing() As AcadDocument
        Get
            Return Autodesk.AutoCAD _
            .ApplicationServices.Application. _
            DocumentManager.MdiActiveDocument. _
            AcadDocument
        End Get
    End Property
вот первые 6 из примерно 1000 возникающих вопросов..
__________________
...Не пытайся гнуть ты ложку,
Не вяжи её узлом.
Ложка - ложка понарошку,
А по правде, - это лом!
Просмотров: 121605
 
Непрочитано 27.11.2011, 00:28
#81
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Цитата:
Сообщение от це ментовозик Посмотреть сообщение
Как сделать так, чтобы в каждом комбобоксе выбиралось своё значение из базы (сейчас при выборе значения в одном комбобоксе второй принимает такое же значение)?
У каждого комба должен быть свой объект BindingContext тогда если они имеют одинаковые члены:
Valuemember, DisplayMember и грузятся от одного и того же Datasource (напр. DataTable или List)
тогда будут работать независимо друг ото друга, поищи в гуглях Bind two Combobox to the same Datatable или
вроде того, я где-то видел точно такой ответ, не могу найти по-новой
Олег (jr.) вне форума  
 
Непрочитано 27.11.2011, 01:34
#82
це ментовозик

Водопровод-канализация
 
Регистрация: 26.09.2011
Минск
Сообщений: 8


Спасибо, Олег! благодаря статье http://blogs.msdn.com/b/bethmassi/ar...atasource.aspx и методом тыка разобрался...
достаточно перетащить из источника данных нужную таблицу на нужный элемент - и создается следующий по порядку BindingSourсe...
До этого тщетно пытался ковыряться в свойствах)
це ментовозик вне форума  
 
Непрочитано 27.11.2011, 10:12
#83
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Не за что
Ты сам все сделал
Олег (jr.) вне форума  
 
Непрочитано 08.01.2013, 23:11
#84
rass

Конструктор
 
Регистрация: 22.03.2007
Киев
Сообщений: 94
<phrase 1=


Здравствуйте!
Перехожу из VBA на VB.NET. И конечно же не все так просто.
Кое-какие проблемы методом тыка, опираясь на примеры, найденные в интернете, удается решать.
Но вот уже третий день ломаю голову над следующей задачей:
В VBA есть код при работе которого в области модели Автокад можно выделить обекты МТЕКСТ и поменять им СТИЛЬ текста, выбранный из существующих в чертеже, показанных в Форме (код формы не привожу, но там определяется знаечение текстовой переменной MTextStyleName).
Вот код в VBA
Код:
[Выделить все]
Sub MTextStyle()
         On Error Resume Next
    Dim Entry As AcadObject
    Dim SSet As AcadSelectionSet
    Dim insPoint(2) As Double
    Dim TextObj(1000) As AcadMText
    Dim intNum As Integer
    Dim i As Integer
    Dim TextHeight(1000) As Double
    i = 0
   Dim gpCode(0) As Integer
   Dim dataValue(0) As Variant
      
   Load frmMTextStyle
        gpCode(0) = 0
        dataValue(0) = "mtext"
    Set SSet = ThisDrawing.SelectionSets.Add("Selection")
        SSet.SelectOnScreen gpCode, dataValue
    For Each Entry In SSet
         Set TextObj(i) = Entry
         i = i + 1
    Next Entry
    For i = 0 To SSet.count - 1
        TextHeight(i) = TextObj(i).Height
        TextObj(i).StyleName = MTextStyleName
        TextObj(i).Height = TextHeight(i)
    Next i
    ThisDrawing.SelectionSets.Item("Selection").Delete
End Sub

При переносе этого кода на VB.NET сталкнулся с проблемой что свойств Стиль МТекста поменять нельзя - только для чтения.



Код:
[Выделить все]
 

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common
Imports Autodesk.AutoCAD.Geometry

Public Class RassTools

<CommandMethod("NetMTextStyle")> _
    Public Sub MTextStyle()
        On Error Resume Next
        Dim TextHeight As Double
        Dim frMTextStyle As New frmMTextStyle
        frMTextStyle.Show()
        '' Получаем текущий документ и базу данных 
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
     ' Создание ссылки на Менеджер Транзакций 
        Dim acTransMgr As Autodesk.AutoCAD.DatabaseServices.TransactionManager
        acTransMgr = acCurDb.TransactionManager
        ' Create a TypedValue array to define the filter criteria
        Dim acTypValAr(0) As TypedValue
        acTypValAr.SetValue(New TypedValue(DxfCode.Start, "mtext"), 0)
        ' Assign the filter criteria to a SelectionFilter object
        Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
        '' Создание новой транзакции 
        Using acTrans1 As Transaction = acCurDb.TransactionManager.StartTransaction()
            '' Request for objects to be selected in the drawing area
            Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection(acSelFtr)
            '' If the prompt status is OK, objects were selected
            If acSSPrompt.Status = PromptStatus.OK Then
                Dim acSSet As SelectionSet = acSSPrompt.Value
                '' Step through the objects in the selection set
                For Each acSSObj As SelectedObject In acSSet
                    '' Check to make sure a valid SelectedObject object was returned
                    If Not IsDBNull(acSSObj) Then
                        '' Open the selected object for write
                        Dim acEnt As MText = acTrans1.GetObject(acSSObj.ObjectId, OpenMode.ForWrite)
                        'TextObj = acEnt
                        If Not IsDBNull(acEnt) Then
                            '' Change the object
                            TextHeight = acEnt.TextHeight
                            acEnt.TextStyleName = MTextStyleName ' на этой строчке тормоза, так как acEnt.TextStyleName - только для чтения
                            acEnt.Height = TextHeight
                        End If
                    End If
                Next
                acTrans1.Commit()
            End If
        End Using
    End Sub
End Class
Уверен, что код на VB.NET крывой, не совсем пока понимаю предназначение Транзакций, как-то хитро стали подгружатся Формы и многого другое, так как VBA и VB.NET отличаются хорошо.
Поэтому прошу не ругать, но критику, как метод обучения, с благодарностью выслушаю. Спасибо.
rass вне форума  
 
Непрочитано 08.01.2013, 23:16
#85
Modis


 
Регистрация: 12.06.2010
Липецк, Москва
Сообщений: 534


Должен быть не TextStyleName , а TextStyleId
Modis вне форума  
 
Непрочитано 09.01.2013, 00:29
#86
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


rass,
попробуй так
Код:
[Выделить все]
        <CommandMethod("NetMTextStyle")> _
        Public Sub MTextStyle()
            'Set desired text style name here:
            Dim MTextStyleName As String = "Standard"
            On Error Resume Next
            Dim TextHeight As Double
              Dim frMTextStyle As New frmMTextStyle
             frMTextStyle.Show()
            '' Получаем текущий документ и базу данных 
            Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
            Dim acCurDb As Database = acDoc.Database
            ' Создание ссылки на Менеджер Транзакций 
            Dim acTransMgr As Autodesk.AutoCAD.DatabaseServices.TransactionManager
            acTransMgr = acCurDb.TransactionManager
            ' Create a TypedValue array to define the filter criteria
            Dim acTypValAr(0) As TypedValue
            acTypValAr.SetValue(New TypedValue(DxfCode.Start, "mtext"), 0)
            ' Assign the filter criteria to a SelectionFilter object
            Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
            '' Создание новой транзакции 
            Using acTrans1 As Transaction = acCurDb.TransactionManager.StartTransaction()

                Dim mtextStyleID As ObjectId = ObjectId.Null
                Dim textStyleTable As TextStyleTable = DirectCast(acTrans1.GetObject(acCurDb.TextStyleTableId, OpenMode.ForRead), TextStyleTable)
                ' check if text style name "Standard" exist
                If Not textStyleTable.Has(MTextStyleName) Then
                    MsgBox("Text style " + MTextStyleName + " does not exists. Exit")
                Else
                    'get ObjectId of textstyle named "Standard" for the future use
                    mtextStyleID = textStyleTable(MTextStyleName)
                End If


                '' Request for objects to be selected in the drawing area
                Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection(acSelFtr)
                '' If the prompt status is OK, objects were selected
                If acSSPrompt.Status = PromptStatus.OK Then
                    Dim acSSet As SelectionSet = acSSPrompt.Value
                    '' Step through the objects in the selection set
                    For Each acSSObj As SelectedObject In acSSet
                        '' Check to make sure a valid SelectedObject object was returned
                        If Not IsDBNull(acSSObj) Then
                            '' Open the selected object for write
                            Dim acEnt As MText = acTrans1.GetObject(acSSObj.ObjectId, OpenMode.ForWrite)
                            'TextObj = acEnt
                            If Not IsDBNull(acEnt) Then
                                '' Change the object
                                TextHeight = acEnt.TextHeight
                                ''acEnt.TextStyleName = MTextStyleName ' на этой строчке тормоза, так как acEnt.TextStyleName - только для чтения
                                acEnt.TextStyleId = mtextStyleID 'A2009
                                ''acEnt.TextStyle = mtextStyleID 'A2010
                                acEnt.Height = TextHeight
                            End If
                        End If
                    Next
                    acTrans1.Commit()
                End If
            End Using
        End Sub
Олег (jr.) вне форума  
 
Непрочитано 09.01.2013, 00:31
#87
rass

Конструктор
 
Регистрация: 22.03.2007
Киев
Сообщений: 94
<phrase 1=


Modis
Я думал над таким вариантом, но не понял, что мне нужно назначать переменной MTextStyleName, в VBA коде это было строковое значение с именем Стиля.
acEnt.TextStyleId = MTextStyleName

UPD.
Олег (jr.)
Спасибо! Правда, еще не совсем все понятно (столько всяких праматеров и свойств у объектов Автокада, и чувствую они преумножились в .NET), но пока собрал такой код.
вот ее главная исполнительная часть.
Код:
[Выделить все]
   Dim mtextStyleID As ObjectId = ObjectId.Null
   Dim textStyleTable As TextStyleTable = DirectCast(acTrans1.GetObject(acCurDb.TextStyleTableId, OpenMode.ForRead), TextStyleTable)
   mtextStyleID = textStyleTable(MTextStyleName)
If Not IsDBNull(acEnt) Then
   '' Change the object
   TextHeight = acEnt.TextHeight
   acEnt.TextStyleId = mtextStyleID
   acEnt.TextHeight = TextHeight
End If

Последний раз редактировалось rass, 09.01.2013 в 01:21.
rass вне форума  
 
Непрочитано 04.08.2013, 07:22
#88
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


Начинаю разбираться с VB.net
Установил Microsoft Visual Basic 2010 Express и ObjectARX 2013
Возникла следующая ошибка не хочет добавлять команду (<CommandMethod("HelloWorld")> _) в автокад....
У него вообще CommandMethod отсутствует почему то....
Файлы acdbmgd.dll и acmgd.dll добавляю из папки C:\ObjectARX 2013\inc
Вроде всё делаю в соответствии с тренингами...
Изображения
Тип файла: jpg Безымянный.jpg (67.2 Кб, 665 просмотров)
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
 
Непрочитано 04.08.2013, 10:56
#89
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Попробуй так:
Изображения
Тип файла: jpg StartProject.jpg (127.8 Кб, 676 просмотров)
Олег (jr.) вне форума  
 
Непрочитано 04.08.2013, 11:40
#90
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Удалено

Последний раз редактировалось Do$, 04.08.2013 в 11:59.
Do$ вне форума  
 
Непрочитано 04.08.2013, 19:06
#91
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


Олег (jr.)
Я поступил проще...
Добавил все dll которые были в папке C:\ObjectARX 2013\inc, и все появилось...
Потом просто удалил не использованные пространства имен...
Способ конечно через Ж...
НО я пока только осваиваю VB.net
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
 
Непрочитано 04.08.2013, 19:09
#92
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Зато теперь ты знаешь только нужные,
уже легче
Удачи
Олег (jr.) вне форума  
 
Непрочитано 09.08.2013, 22:41
#93
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


Хммм...
И так начал изучать VB.net...
Возник дурацкий вопрос, если создаю форму и кидаю на неё OpenFileDialog то получается запустить свою форму и запустить диалог выбора файла...
А вот сразу вызвать диалог выбора файла чей то не получается....
А везде примеры запуска данного диалога с формы...
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
 
Непрочитано 09.08.2013, 23:21
#94
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Тогда надо использоватьродной автокадовский диалог,
навскидку где-то так
Код:
[Выделить все]
           <CommandMethod("sf")> _
        Public Sub testFileOpen()
            Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
            Dim ed As Editor = doc.Editor
            Dim file As String
            Dim opts As PromptOpenFileOptions = New PromptOpenFileOptions("Выбери файл: ")
            opts.Filter = ("Drawing (*.dwg)|*.dwg")
            opts.AllowUrls = False
            Dim pr As PromptFileNameResult = ed.GetFileNameForOpen(opts)
            If (pr.Status = PromptStatus.OK) Then
                file = pr.StringResult
                Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog("Файл: " + file + vblf +"Дальше вызываешь форму и работай с ней")
            Else
                Return
            End If
        End Sub
Олег (jr.) вне форума  
 
Непрочитано 10.08.2013, 06:46
#95
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


Олег (jr.)
ООО
Пасиб, заработало однако...
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
 
Непрочитано 10.08.2013, 10:22
#96
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Не за что,
Удачи
Олег (jr.) вне форума  
 
Непрочитано 14.08.2013, 17:57
#97
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


А случаем примеров с подсчетом динамических блоков нету у кого нибудь...
И еще чтобы блоки считались в Динамических массивах, кторые в 2013 появились...
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
 
Непрочитано 14.08.2013, 20:56
#98
maratovich


 
Регистрация: 12.07.2009
г. Самара
Сообщений: 2,481
Отправить сообщение для maratovich с помощью Skype™


Цитата:
Сообщение от DEM Посмотреть сообщение
А случаем примеров с подсчетом динамических блоков нету у кого нибудь...
А какая разница, обрабатываются как и простые, только атрибуты по другому - копай в сторону ACADObject.GetAttributes
Цитата:
Сообщение от DEM Посмотреть сообщение
Динамических массивах, кторые в 2013 появились...
А лучше файл с примером блока дай если они конечно будут работать в 2009, что за зверь ?
__________________
Вопрос : Где находится Тургай ? Ответ : Между Парагваем и Уругваем.....
maratovich вне форума  
 
Непрочитано 14.08.2013, 21:28
#99
Boxa

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


Цитата:
Сообщение от DEM Посмотреть сообщение
А случаем примеров с подсчетом динамических блоков нету у кого нибудь...
Код корявый конечно, но думаю будет полезен:
Код:
[Выделить все]
Dim arr_block As New ObjectIdCollection
        '' Старт транзакции
        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

            '' Создание массива TypedValue для определение критериев фильтра
            Dim acTypValAr(0) As TypedValue
            'Выбираем только Блоки
            acTypValAr.SetValue(New TypedValue(DxfCode.Start, "INSERT"), 0)
            '' Назначение критериев фильтра объекту SelectionFilter
            Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
            '' Запрос выбора объектов в области чертежа
            Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection(acSelFtr)
            '' Если статус запроса равен OK, объекты выбраны
            If acSSPrompt.Status = PromptStatus.OK Then
            Else
                Exit Sub
            End If
            Dim acSSet As SelectionSet = acSSPrompt.Value
            '' Перебор объектов в наборе
            For Each acSSObj As SelectedObject In acSSet
                '' Проверка, нужно убедится в правильности полученного объекта
                If Not IsDBNull(acSSObj) Then
                    '' Открытие объекта для чтения
                    Dim acEnt As Entity = CType(acTrans.GetObject(acSSObj.ObjectId, _
                                                            OpenMode.ForRead), Entity)
                    If Not IsDBNull(acEnt) Then
                        If TypeOf acEnt Is BlockReference Then
                            Dim acBlock As BlockReference
                            acBlock = CType(acEnt, BlockReference)
                            Dim blName As String = acBlock.Name

                            'Проверяю является ли выделенный блок динамическим
                            If acBlock.IsDynamicBlock = True Then
                                'Получаю настоящие/родное имя динамического блока
                                Dim blr As BlockTableRecord = CType(acTrans.GetObject(acBlock.DynamicBlockTableRecord, _
                                                                                   OpenMode.ForRead), BlockTableRecord)
                                'Проверяю наличие аттрибутов
                                If blr.HasAttributeDefinitions Then
                                    'Если все условия соблюдены, добавляю блок в коллекцию
                                    Dim blr_nam As BlockTableRecord = CType(acTrans.GetObject(blr.ObjectId, _
                                                                                      OpenMode.ForRead), BlockTableRecord)
                                    Dim acBlock_nam As String = blr_nam.Name
                                    Select Case acBlock_nam.ToUpper
                                        Case "Block_1".ToUpper
                                            ' Задается путь и имя файла без разширения
                                            arr_block.Add(acBlock.ObjectId)
                                        Case "Block_2".ToUpper
                                            arr_block.Add(acBlock.ObjectId)
                                        Case Else
                                            If InStr(acBlock_nam.ToUpper, "Block_".ToUpper, CompareMethod.Text) Then
                                                acDoc.Editor.WriteMessage(ControlChars.CrLf & "В выборке имеется блок не обрабатываеый данной версией программы! ")
                                                acDoc.Editor.WriteMessage(ControlChars.CrLf & "Данные в этом блоке будут ПРОИГНОРИРОВАНЫ!! ")
                                            End If
                                    End Select
                                End If
                            End If
                        End If
                    End If
                End If
            Next
            '' Сохранение нового объекта в базе данных
            acTrans.Commit()
            '' Очистка транзакции
        End Using
Boxa вне форума  
 
Непрочитано 14.08.2013, 22:38
#100
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


Спасибо!
Буду разбираться....
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > .NET > "VB.net для чайников". Вопросы программирования под Autocad и ©.

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
запуск программы из AutoCADа kminas Программирование 19 15.06.2012 13:42
Ноутбук б/у и AutoCad 2D - вопросы Elenka AutoCAD 14 23.12.2005 13:47
Ноутбук б/у и AutoCad 2D - вопросы Elenka AutoCAD 1 20.12.2005 21:33
AUTOCAD 2006 Aragorn AutoCAD 14 01.04.2005 00:55
Что нового в AutoCAD 2005 ilka_t AutoCAD 40 19.05.2004 16:48