[Bart]

Пишу программу на VBA. Задача поставлена такая: задавать данные и должен формироваться шкаф (система управления) и куча чертежей к нему на основе входящих данных. Хотят, чтобы нажал кнопку и все само нарисовалось.
В VBA я не силен. Написал одну програмку лет 5 назад.

Начал я с эл. схемы. Задаю количество источников питания, нажимаю OK и вставляется определенное количество блоков. Там обозначения, нумерация, маркировка проводов. Все сделано аттрибутами. Как мне эти аттрибуты изменять при вставке автоматом? Там к значению просто +1 прибавляется у 5 аттрибутов. Как до аттрибутов добраться?

[AlexV]

Чего-то типа:

Код:

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

dim ....
....
Set insertedBlock = ThisDrawing.ModelSpace.InsertBlock(InsertPnt, name_Blck, Scale_Blck, Scale_Blck, Scale_Blck, Rotate_Blck)
Attr1 = insertedBlock.GetAttributes
      For Each Attr In Attr1
           If Attr.TagString = "имя атрибута" Then
              Attr.Textring="Значение атрибута"
           End If
      Next
    End If
  End If

insertedBlock - вставленный экземпляр блока, проходим в цикле по всем атрибутам, находим нужный по имени, задаем ему нужное значение...

[Кулик Алексей aka kpblc]

Если ent - указатель на вхождение блока, то у него есть метод GetAttributes. Ну, а дальше - уже сам
---
Опоздал

[Bart]

Ага. Спасибо. Как раз то, что нужно. Буду пробовать.

Может подскажете какую справочную литературку или сайт с примерами?

[Кулик Алексей aka kpblc]

А что, обычной справки мало?

[AlexV]

Сообщение от Bart Может подскажете какую справочную литературку или сайт с примерами?

:
http://www.cad.dp.ua/stats/a_vba/

[Bart]

Сообщение от Кулик Алексей aka kpblc А что, обычной справки мало?

В справке не понятно куда смотреть и что искать. По данному вопросу я поискал-поискал в справке и ничего не нашел.

[AlexV]

Сообщение от Bart В справке не понятно куда смотреть и что искать. По данному вопросу я поискал-поискал в справке и ничего не нашел.

Плохо искали.. При работе с примитивами автокада лучший способ - открыть объектную модель, щелкнуть по нужному типу примитива, и увидишь все его методы/свойства. Опять-таки щелкаешь по методу - видишь его описание; можно открыть пример кода (при наличии, чаще всего - он есть). Кстати, вот ресурс - попытка перевода справки по VBA на русский (коряво, "машинно", но все-таки...): http://vbamodel.narod.ru/AutoCAD/idx_object_model.htm

[Bart]

И еще вопрос. Переменные нужно декларировать или не обязательно?

[AlexV]

Если в начале модуля есть "фраза" Option explicit, то надо. Если нет, то не обязательно..

[Кулик Алексей aka kpblc]

Но лучше поставить Option Explicit и не мучаться потом с непонятным поведением

[Sleekka]

лучше вообще забыть про VBA чтоб потом не мучаться
http://dwg.ru/dnl/254 - раз прога недоделаная, но можно поучиться на примере.
http://dwg.ru/dnl/1931 - два прога доделанная, если не понятно как атрибуты редактировать то там есть
ЗЫ если в ВБА все равно не шаришь пиши на лиспе.

[Bart]

Sleekka
У меня другая задача. Не просто работа с атрибутами. Но проги посмотрю при случае. И почему забыть про ВБА?
А лисп для меня вообще загадка, на вба проще.

[Sleekka]

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

[Bart]

Ну а где решить?
Мне, возможно, нужно будет делать менюшку, экспорт данных в access, эксель и ворд, а так же и обратно. Еще открывать файл, делать в нем чертеж и сохранять куда нужно.
Возможно все это будет через меню, а возможно будет считываться из файла эксель. Пока еще не ясно, все в процессе.
На данный момент идет процесс изучения.

Лисп я совсем не знаю, и мне как-то кажется, что он для этого не подойдет.

[AlexV]

Сообщение от Bart Ну а где решить? Мне, возможно, нужно будет делать менюшку, экспорт данных в access, эксель и ворд, а так же и обратно. Еще открывать файл, делать в нем чертеж и сохранять куда нужно. Возможно все это будет через меню, а возможно будет считываться из файла эксель. Пока еще не ясно, все в процессе. На данный момент идет процесс изучения. Лисп я совсем не знаю, и мне как-то кажется, что он для этого не подойдет.

Возможно, это можно и на лиспе сделать (я его тоже не знаю), но для взаимодействия с экселями и прочими вордами мне кажется, VBA подойдет лучше.. Правда, в состав Autocad 2010 модуль VBA уже не входит (можно его качнуть с автодесковского сайта и доустановить), а в будущих версиях, возможно, он и вовсе отомрет..

[Bart]

Как не входит??? Фига себе.
А тут нигде нет обсуждения о том, на чем программировать? Если VBA отпадет, то не понятно как дальше все работать будет.

[Кулик Алексей aka kpblc]

VBA-модуль не поставляется в комплекте с AutoCAD 2010 и продуктами на его основе (но этот модуль еще можно скачать с официального сайта).
Почему "непонятно на чем программировать"? lisp / arx / .net - и вперед

[Bart]

Почитал я Autodesk.
VBA закончилось, советуют переходить на VB Express Edition. Он же и есть .net.
А кто на чем программирует? С лиспом все ясно.
Я просто думаю (свои требования я описал в первом посте) делать все на VB или переходить на что-то еще. Программистов рядом нет, так что спросить совета не у кого.

А в 2009 автокаде нормально будет работать то, что сделано на VB экспресс? И как там интегрируется?
Просто сейчас можно прогу запускать в самом акаде. Еще даже не законченую.

[AlexV]

Сообщение от Bart Как не входит??? Фига себе. А тут нигде нет обсуждения о том, на чем программировать? Если VBA отпадет, то не понятно как дальше все работать будет.

VB.net, C++, C#... Я не знаю, конечно, как политика автодеска изменится, но возможно, уже для следующей версии разработанные VBA-шные модули уже будут неприменимы..

[Кулик Алексей aka kpblc]

Интегрируется как обычная .NET-сборка. Но с Express Edition лучше уточнять - на caduser.ru А.Ривилис говорил по этой теме.

[Bart]

Попробую сделать это все на .net. От VBA откажусь.
Различия большие?

Сижу ищи и не могу найти как прогу из VBA в VB.net конвертнуть. Пока кроме видео ничего не нашел. А видео у меня не показывает.

[AlexV]

Сообщение от Bart Попробую сделать это все на .net. От VBA откажусь. Различия большие?

Вообще, интересно было бы глянуть на какую-нибудь открытую простенькую vb.net сборку... Может, кто покажет, с чем его едят? И можно ли VBA-шные модули как-то с минимальными затратами импортировать в net?

[Александр Ривилис]

По поводу перехода с VBA на VB.NET: http://through-the-interface.typepad...on-basics.html
А сборки есть в примерах в ObjectARX SDK.

[Bart]

А как все то же самое на vb.net пишется? Я пытаюсь просто блок вставить, но пока никак не найду как все описывается.

Покопался я во всяких обучалках, посмотрел лекции (почти ничего нет, нужно самому догадываться). Как-то все сложно в .net. Код получается раз в 5 больше, чем на VBA.
Попытаюсь что-либо сотворить. Если ничего не выйдет - брошу и буду делать на VBA. Литературы нет.
Хелп такой, что мало что описано.
На VBA на данный момент все гораздо доступнее.

[Bart]

Код вставки блока на vb.net ниже.

[CrazyBaby]

Здравствуйте. Если в VBA есть средства создания элементов управления на пользовательской форме в момент выполнения программы , то IMHO должен существовать и способ создания событий типа "onclick" во время работы программы. Подскажите ,pls, какой?

[Кулик Алексей aka kpblc]

Сообщение от CrazyBaby Если в VBA есть средства создания элементов управления на пользовательской форме в момент выполнения программы

А они есть?

[AlexV]

Сообщение от Кулик Алексей aka kpblc А они есть?

Да, их есть.. В смысле, возможность создания контролов и кодов обработки событий программно...
http://www.caduser.ru/forum/index.ph...#message261100

[Bart]

Переписал я свою программу на vb.net.
Написанный выше скрипт вставки блока и редактирования атрибутов работает, но я его немного изменил, а то не работал. Пришлось, конечно, посидеть и во всем разобраться.
Честно, скажу, не все понятно, но работает :-)

Ну и вот мой код.

Код:

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

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Geometry
Public Class InsertBlock
    Public Shared Sub ImportBlock(ByVal BlockFile As String, ByVal BlockName As String)

        Dim myDwg As Document
        Dim myDwgLoc As DocumentLock
        Dim mySourceDB As New Database(False, False)
        Dim myActiveDB As Database
        'Read file and load block into current database
        Try
            myDwg = Application.DocumentManager.MdiActiveDocument
            myDwgLoc = myDwg.LockDocument()
            myActiveDB = myDwg.Database
            mySourceDB.ReadDwgFile(BlockFile, IO.FileShare.ReadWrite, True, "")
            myActiveDB.Insert(BlockName, mySourceDB, False)
            mySourceDB.Dispose()
            myDwgLoc.Dispose()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "AutoGen Error")
        End Try

    End Sub

    Public Shared Function InsertBlock(ByVal InsPt As Point3d, ByVal BlockName As String, Optional ByVal XScale As Double = 1.0, Optional ByVal YScale As Double = 1.0, Optional ByVal ZScale As Double = 1.0) As ObjectId

        Try
            Dim myTransMan As Autodesk.AutoCAD.DatabaseServices.TransactionManager
            Dim myTrans As Transaction
            Dim myDwg As Document
            Dim myBT As BlockTable
            Dim myBTR As BlockTableRecord
            Dim myAttColl As AttributeCollection
            Dim myEnt As Entity
            Dim myBTREnum As BlockTableRecordEnumerator
            Dim myDwgLoc As DocumentLock

            'Get active document and begin transaction
            myDwg = Application.DocumentManager.MdiActiveDocument
            myDwgLoc = myDwg.LockDocument()
            myTransMan = myDwg.TransactionManager
            myTrans = myTransMan.StartTransaction

            'Open Block Table
            myBT = myDwg.Database.BlockTableId.GetObject(OpenMode.ForRead)
            myBTR = myBT(BlockTableRecord.ModelSpace).GetObject(OpenMode.ForWrite)

            'Insert the Block
            Dim myBlockDef As BlockTableRecord = myBT(BlockName).GetObject(OpenMode.ForRead)
            Dim myBlockRef As New BlockReference(InsPt, myBT(BlockName))
            myBlockRef.ScaleFactors = New Scale3d(XScale, YScale, ZScale)
            myBTR.AppendEntity(myBlockRef)
            myTrans.AddNewlyCreatedDBObject(myBlockRef, True)

            'Set Attribute values
            myAttColl = myBlockRef.AttributeCollection
            myBTREnum = myBlockDef.GetEnumerator
            While myBTREnum.MoveNext
                myEnt = myBTREnum.Current.GetObject(OpenMode.ForWrite)
                If TypeOf myEnt Is AttributeDefinition Then
                    Dim myAttDef As AttributeDefinition = myEnt
                    Dim myAttRef As New AttributeReference
                    myAttRef.SetAttributeFromBlock(myAttDef, myBlockRef.BlockTransform)
                    myAttColl.AppendAttribute(myAttRef)
                    myTrans.AddNewlyCreatedDBObject(myAttRef, True)
                End If
            End While
            myDwgLoc.Dispose()
            myTrans.Commit()

            'Clean(up)
            myTrans.Dispose()
            myTransMan.Dispose()
            Return myBlockRef.ObjectId
        Catch e As Exception
            MsgBox(e.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "AutoGen Error")
        End Try
    End Function
    Public Shared Sub SetAttributes(ByVal BlockId As ObjectId, ByVal TagList As Collection)

        Try
            Dim myTransMan As Autodesk.AutoCAD.DatabaseServices.TransactionManager
            Dim myTrans As Transaction
            Dim myDwg As Document
            Dim myDwgLoc As DocumentLock
            Dim myBlkRef As BlockReference
            Dim myAttColl As AttributeCollection
            Dim myEnt As ObjectId
            Dim myAttRef As AttributeReference

            'Get active document and begin transaction
            myDwg = Application.DocumentManager.MdiActiveDocument
            myDwgLoc = myDwg.LockDocument()
            myTransMan = myDwg.TransactionManager
            myTrans = myTransMan.StartTransaction

            'Find block and set attributes
            myBlkRef = BlockId.GetObject(OpenMode.ForWrite)
            myAttColl = myBlkRef.AttributeCollection
            For Each myEnt In myAttColl
                myAttRef = myEnt.GetObject(OpenMode.ForWrite)
                Dim myItem As String
                Try
                    myItem = TagList(myAttRef.Tag)
                    myAttRef.TextString = myItem
                Catch
                End Try
            Next
            myDwgLoc.Dispose()
            myTrans.Commit()

            'Clean up
            myTrans.Dispose()
            myTransMan.Dispose()
        Catch e As Exception
            MsgBox(e.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "AutoGen Error")
        End Try
    End Sub
End Class

'Обращение к вставке из основной программы
Private Sub CommandButton1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CommandButton1.Click

InsertBlock.ImportBlock(BFile, BName) 'BFile и BName - ваши имена
Dim myBlk As ObjectId
myBlk = InsertBlock.InsertBlock(New Point3d(x, y, z), BName)

Dim myTags As New Collection
myTags.Add("ваше значение", "имя аттрибута")

InsertBlock.SetAttributes(myBlk, myTags) 'myBlk и myTags - ваши имена

End Sub

[Bart]

Подскажите в чем трабл. Делаю вставку блока на vb.net так, как постил выше.
Если делаю вставку через юзер форм, то все работает. Делаю немного иначе в другом модуле (class1) - не пашет. Код вставки блока и открытия чертежа тот же. Все лишние строки отключал. Открывает файл, но вставку делает не в открытый чертеж, а в drawing1, который автоматом открывается вместе с автокадом. Делал принудительно нужный мне файл активным - все равно вставка делается в другой чертеж.

В чем тут дело?

[Сергей Дубина]

Сообщение от Bart На VBA на данный момент все гораздо доступнее.

на VBA максимально похож VB6.

[Bart]

Нашел решение.
Все дело вот тут...

<CommandMethod("command", CommandFlags.Session)>

Надо было добавить CommandFlags.Session.