Часто пользователи хотят связать объекты чертежа с внешними данными – Таблицей Excel, базой данных или просто с текстовым или xml файлом. Конечно, в AutoCAD существует множество способов взаимодействия с внешними данными: _DataLink, dbConnect, attin, _script. Но все эти инструменты требуют «много кликов» и не обеспечивают нужного взаимодействия. Пользователю хочется, что бы объекты чертежа автоматически приводились в соответствие с внешними данными, с минимальным его участием. Образцовым примером подобного взаимодействия является FDO в AutoCAD Map 3D – когда после подключения к источнику мы сразу получаем его содержание в виде графики (и при желании даже с подписями) и для синхронизации с источником, достаточно выполнить обновление слоя (одна команда). Но это специальный (а значит ограниченный) ГИС инструмент, который подойдет не всем. И тогда остаётся лишь применить программирование, благо существует огромное количество способов это сделать – Lisp, C++, .Net, Delphi, Python и т. д.

Одним из способов, установить такую связь с источником данных – создать класс, который будет отвечать за связь с данными или просто агрегировать эти данные для импорта/экспорта. В данной статье я покажу пример подобного класса, который:

  1. Сам себя рисует (но не Custom object*)
  2. Имеет собственные данные и следит за их актуальностью
  3. Умеет импортировать/экспортировать себя в XML

* Custom object – это функционал ObjectARX, дающий возможность создавать собственные графические примитивы, но они реализуются как отдельные библиотеки, и при их отсутствии Custom object превращается в тыкву Proxy-объект. Объекты вертикальных решений AutoDESK это Custom object и, что бы увидеть их в «голом» AutoCAD’е нужно ставить соответствующий Object Enabler.

В AutoCAD’е у программиста есть несколько инструментов для хранения собственных данных в чертеже, это – XData и XRecord. Но это весьма ограниченные инструменты и доступ к этим данным имеется только из AutoCAD. Поэтому мы будем использовать внешний источник данных, а связывать их с примитивами в чертеже, через Handle.

Наш объект будет рисовать круг, а также текстовую метку содержащую радиус этого круга, но данный метод позволяет создавать любые примитивы (на пример Solid3d или NurbSurface) – лишь бы у них был Handle. Нам понадобятся методы для отрисовки Объекта и Метки. Но самое главное нам понадобится метод для отслеживания изменения объекта, обработчик события, который мы повесим на событие Modified. Также нам понадобятся методы для обновления примитивов и экспорта в XML. Ну хватит, меньше слов — больше кода.

Class MyCircle
Imports System.Xml

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry

Public Class MyCircle
    Private fCenter As Point3d
    Private fRadius As Double

    Private OID As ObjectId
    Private textID As ObjectId

    Public Sub New(cp As Point3d, r As Double, db As Database)
        Me.fCenter = cp
        Me.fRadius = R
        '
        Me.DrawMe(db)
        Me.DrawLebel()
    End Sub

    Public Sub New(MyCircleData As XmlElement, db As Database)
        Dim wHandle As New Handle(Long.Parse(MyCircleData.GetAttribute("Handle"), Globalization.NumberStyles.HexNumber))
        OID = New ObjectId
        Me.fCenter = Me.ParsePoint(MyCircleData.GetAttribute("Center"))
        Me.fRadius = MyCircleData.GetAttribute("Radius")
        If db.TryGetObjectId(wHandle, OID) Then
            Me.UpgradeMe()
        Else
            Me.DrawMe(db)
        End If
        Me.DrawLebel()
    End Sub

    Public Sub UpgradeMe()
        Using acTrans As Transaction = OID.Database.TransactionManager.StartTransaction()
            Dim wDBObj As Circle = OID.GetObject(OpenMode.ForWrite)
            RemoveHandler wDBObj.Modified, AddressOf CirMod
            wDBObj.Radius = Me.fRadius
            wDBObj.Center = Me.fCenter
            wDBObj.UpgradeOpen()
            AddHandler wDBObj.Modified, AddressOf CirMod
            acTrans.Commit()
        End Using
    End Sub

    Public Sub UpgradeLabel()
        Using acTrans As Transaction = OID.Database.TransactionManager.StartTransaction()
            Dim acText As DBText = textID.GetObject(OpenMode.ForWrite)
            acText.Position = Me.fCenter
            acText.TextString = Me.fRadius
            acText.UpgradeOpen()
            acTrans.Commit()
        End Using
    End Sub

    Public Sub DrawMe(db As Database)
        Using acTrans As Transaction = db.TransactionManager.StartTransaction()
            Dim cNewCircle As New Circle(Me.fCenter, New Vector3d(0, 0, 1), Me.fRadius)
            'получаем текущее пространство чертежа (может быть модель или лист)
            Dim btrCurrSpace As BlockTableRecord = acTrans.GetObject(db.CurrentSpaceId, OpenMode.ForWrite)
            'добавляем в текущее пространство наш созданный примитив
            OID = btrCurrSpace.AppendEntity(cNewCircle)
            acTrans.AddNewlyCreatedDBObject(cNewCircle, True)
            AddHandler cNewCircle.Modified, AddressOf CirMod
            'завершаем транзакцию
            acTrans.Commit()
        End Using
    End Sub

    Public Sub DrawLebel()
        If textID.IsNull Then
            Using acTrans As Transaction = OID.Database.TransactionManager.StartTransaction()
                Dim acBlkTbl As BlockTable
                acBlkTbl = acTrans.GetObject(OID.Database.BlockTableId, OpenMode.ForRead)
                Dim acBlkTblRec As BlockTableRecord
                acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
                Dim acText As New DBText()
                acText.SetDatabaseDefaults()
                acText.Position = Me.fCenter
                acText.Height = 2
                acText.TextString = Me.fRadius
                textID = acBlkTblRec.AppendEntity(acText)
                acTrans.AddNewlyCreatedDBObject(acText, True)
                acTrans.Commit()
            End Using
        End If
    End Sub

    Public Sub EraseLebel()
        If Not textID.IsNull Then
            Using acTrans As Transaction = OID.Database.TransactionManager.StartTransaction()
                Dim wDBObj As DBText = textID.GetObject(OpenMode.ForWrite)
                wDBObj.Erase()
                wDBObj.UpgradeOpen()
                acTrans.Commit()
            End Using
        End If
    End Sub

    Public Sub CirMod(ByVal senderObj As Object, ByVal evtArgs As EventArgs)
            Using acTrans As Transaction = OID.Database.TransactionManager.StartTransaction()
                Dim wDBObj As Circle = OID.GetObject(OpenMode.ForRead)
                Me.fCenter = wDBObj.Center
                Me.fRadius = wDBObj.Radius
                UpgradeLabel()
                acTrans.Commit()
            End Using
    End Sub

    Private Function ParsePoint(wStr As String) As Point3d
        wStr = wStr.Replace("(", "")
        wStr = wStr.Replace(")", "")
        Dim Arr() As String = wStr.Split(",")
        Return New Point3d(Double.Parse(Arr(0)), Double.Parse(Arr(1)), Double.Parse(Arr(2)))
    End Function

    Public Property Center As Point3d
        Get
            Return Me.fCenter
        End Get
        Set(value As Point3d)
            Me.fCenter = value
            Me.UpgradeMe()
        End Set
    End Property

    Public Sub Print(wEditor As Editor)
        Using acTrans As Transaction = OID.Database.TransactionManager.StartTransaction()
            wEditor.WriteMessage("Handle: " & OID.Handle.ToString & Environment.NewLine)
            Dim wDBObj As Circle = OID.GetObject(OpenMode.ForRead)
            wEditor.WriteMessage("Radius: " & wDBObj.Radius & Environment.NewLine)
            wEditor.WriteMessage("Center: " & wDBObj.Center.ToString & Environment.NewLine)
        End Using
    End Sub

    Public Function ToXML(wDoc As XmlDocument) As XmlElement
        Dim res As XmlElement = wDoc.CreateElement("MyCircle")
        Using acTrans As Transaction = OID.Database.TransactionManager.StartTransaction()
            res.SetAttribute("Handle", Me.OID.Handle.ToString)
            Dim wDBObj As Circle = OID.GetObject(OpenMode.ForRead)
            res.SetAttribute("Radius", wDBObj.Radius)
            res.SetAttribute("Center", wDBObj.Center.ToString)
        End Using
        Return res
    End Function

End Class


Несколько пояснений:

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry

Не забыли подключить cmgd.dll, acdbmgd.dll, accoremgd.dll (AcAd >= 2013)?

    Private fCenter As Point3d
    Private fRadius As Double

Собственные данные объекта, да это свойства примитива, но это же пример.

    Private OID As ObjectId 'Круг
    Private textID As ObjectId 'Метка

Ссылки на примитивы чертежа.

    Public Sub DrawMe(db As Database)
        Using acTrans As Transaction = db.TransactionManager.StartTransaction()
            Dim cNewCircle As New Circle(Me.fCenter, New Vector3d(0, 0, 1), Me.fRadius)
            'получаем текущее пространство чертежа (может быть модель или лист)
            Dim btrCurrSpace As BlockTableRecord = acTrans.GetObject(db.CurrentSpaceId, OpenMode.ForWrite)

            'добавляем в текущее пространство наш созданный примитив
            OID = btrCurrSpace.AppendEntity(cNewCircle)
            acTrans.AddNewlyCreatedDBObject(cNewCircle, True)
            AddHandler cNewCircle.Modified, AddressOf CirMod
            'завершаем транзакцию
            acTrans.Commit()
        End Using
    End Sub

Рисуем сам объект, а заодно запоминаем ссылку на примитив и главное — вешаем обработчик на изменение объекта.

    Public Sub CirMod(ByVal senderObj As Object, ByVal evtArgs As EventArgs)
            Using acTrans As Transaction = OID.Database.TransactionManager.StartTransaction()
                'Dim acText As DBText = textID.GetObject(OpenMode.ForWrite)
                Dim wDBObj As Circle = OID.GetObject(OpenMode.ForRead)
                Me.fCenter = wDBObj.Center
                Me.fRadius = wDBObj.Radius
                UpgradeLabel()
                acTrans.Commit()
            End Using
    End Sub

Обрабатываем изменение объекта — получаем новые знаения свойств объекта, обнавляем Метку.

    Public Sub DrawLebel()
        If textID.IsNull Then
            Using acTrans As Transaction = OID.Database.TransactionManager.StartTransaction()
                Dim acBlkTbl As BlockTable
                acBlkTbl = acTrans.GetObject(OID.Database.BlockTableId, OpenMode.ForRead)
                Dim acBlkTblRec As BlockTableRecord
                acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
                Dim acText As New DBText()
                acText.SetDatabaseDefaults()
                acText.Position = Me.fCenter
                acText.Height = 2
                acText.TextString = Me.fRadius
                textID = acBlkTblRec.AppendEntity(acText)
                acTrans.AddNewlyCreatedDBObject(acText, True)
                acTrans.Commit()
            End Using
        End If
    End Sub

Рисуем Метку объекта.

    Public Sub New(MyCircleData As XmlElement, db As Database)
        Dim wHandle As New Handle(Long.Parse(MyCircleData.GetAttribute("Handle"), Globalization.NumberStyles.HexNumber))
        OID = New ObjectId
        Me.fCenter = Me.ParsePoint(MyCircleData.GetAttribute("Center"))
        Me.fRadius = MyCircleData.GetAttribute("Radius")
        If db.TryGetObjectId(wHandle, OID) Then
            Me.UpgradeMe()
        Else
            Me.DrawMe(db)
        End If
        Me.DrawLebel()
    End Sub

    Public Function ToXML(wDoc As XmlDocument) As XmlElement
        Dim res As XmlElement = wDoc.CreateElement("MyCircle")
        Using acTrans As Transaction = OID.Database.TransactionManager.StartTransaction()
            res.SetAttribute("Handle", Me.OID.Handle.ToString)
            Dim wDBObj As Circle = OID.GetObject(OpenMode.ForRead)
            res.SetAttribute("Radius", wDBObj.Radius)
            res.SetAttribute("Center", wDBObj.Center.ToString)
        End Using
        Return res
    End Function

Импорт/экспорт в XML.

Ну конечно, нам понадобятся команды в AutoCAD'е, для работы с нашим классом.

Класс команд
Imports Autodesk.AutoCAD.Runtime
Imports AppServ = Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry

Imports System.Windows.Forms
Imports System.Xml

Public Class CommandClass
    Dim wList As List(Of MyCircle) = Nothing

    <CommandMethod("CrMyCircle")> _
    Public Sub CrMyCircle()
        If wList Is Nothing Then wList = New List(Of MyCircle)
        Dim acDoc As AppServ.Document = AppServ.Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim pPtRes As PromptPointResult = acDoc.Editor.GetPoint("Укажите центр: ")
        If (pPtRes.Status = PromptStatus.OK) Then
            Dim wPrmtDistOpt As New PromptDistanceOptions("Укажите радиус: ")
            wPrmtDistOpt.BasePoint = pPtRes.Value
            wPrmtDistOpt.UseBasePoint = True
            Dim pDistRes As PromptDoubleResult = acDoc.Editor.GetDistance(wPrmtDistOpt)
            If (pDistRes.Status = PromptStatus.OK) Then
                wList.Add(New MyCircle(pPtRes.Value, pDistRes.Value, acCurDb))
            End If
        End If
    End Sub

    <CommandMethod("SaveToXML")> _
    Public Sub SaveToXML()
        Dim nDialog As New SaveFileDialog
        nDialog.Filter = "XML|*.xml"
        Dim wDoc As New XmlDocument
        wDoc.LoadXml("<?xml version=""1.0"" encoding=""utf-8""?><MyCircleList/>")
        If wList IsNot Nothing Then wList.ForEach(Sub(obj) wDoc.DocumentElement.AppendChild(obj.ToXML(wDoc)))
        If nDialog.ShowDialog = DialogResult.OK Then
            wDoc.Save(nDialog.FileName)
        End If
    End Sub

    <CommandMethod("LoadFromXML")> _
    Public Sub LoadFromXML()
        Dim nDialog As New OpenFileDialog
        nDialog.Filter = "XML|*.xml"
        Dim wDoc As New XmlDocument
        Dim done As Boolean = False
        If nDialog.ShowDialog = DialogResult.OK Then
            wDoc.Load(nDialog.FileName)
            done = True
        End If
        If done Then
            If wList Is Nothing Then wList = New List(Of MyCircle)
            Dim acDoc As AppServ.Document = AppServ.Application.DocumentManager.MdiActiveDocument
            Dim acCurDb As Database = acDoc.Database
            For Each ch In wDoc.DocumentElement.ChildNodes
                wList.Add(New MyCircle(ch, acCurDb))
            Next
        End If
    End Sub

    <CommandMethod("DrawLabel")> _
    Public Sub DrawLabel()
        If wList IsNot Nothing Then wList.ForEach(Sub(obj) obj.DrawLebel())
    End Sub

    <CommandMethod("EraseLabel")> _
    Public Sub EraseLabel()
        If wList IsNot Nothing Then wList.ForEach(Sub(obj) obj.EraseLebel())
    End Sub

End Class


    <CommandMethod("CrMyCircle")> _
    Public Sub CrMyCircle()
        If wList Is Nothing Then wList = New List(Of MyCircle)
        Dim acDoc As AppServ.Document = AppServ.Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim pPtRes As PromptPointResult = acDoc.Editor.GetPoint("Укажите центр: ")
        If (pPtRes.Status = PromptStatus.OK) Then
            Dim wPrmtDistOpt As New PromptDistanceOptions("Укажите радиус: ")
            wPrmtDistOpt.BasePoint = pPtRes.Value
            wPrmtDistOpt.UseBasePoint = True
            Dim pDistRes As PromptDoubleResult = acDoc.Editor.GetDistance(wPrmtDistOpt)
            If (pDistRes.Status = PromptStatus.OK) Then
                wList.Add(New MyCircle(pPtRes.Value, pDistRes.Value, acCurDb))
            End If
        End If
    End Sub

Команда CrMyCircle рисует наши объекты.

    <CommandMethod("SaveToXML")> _
    Public Sub SaveToXML()
        Dim nDialog As New SaveFileDialog
        nDialog.Filter = "XML|*.xml"
        Dim wDoc As New XmlDocument
        wDoc.LoadXml("<?xml version=""1.0"" encoding=""utf-8""?><MyCircleList/>")
        If wList IsNot Nothing Then wList.ForEach(Sub(obj) wDoc.DocumentElement.AppendChild(obj.ToXML(wDoc)))
        If nDialog.ShowDialog = DialogResult.OK Then
            wDoc.Save(nDialog.FileName)
        End If
    End Sub

Сохраняем в XML.

    <CommandMethod("LoadFromXML")> _
    Public Sub LoadFromXML()
        Dim nDialog As New OpenFileDialog
        nDialog.Filter = "XML|*.xml"
        Dim wDoc As New XmlDocument
        Dim done As Boolean = False
        If nDialog.ShowDialog = DialogResult.OK Then
            wDoc.Load(nDialog.FileName)
            done = True
        End If
        If done Then
            If wList Is Nothing Then wList = New List(Of MyCircle)
            Dim acDoc As AppServ.Document = AppServ.Application.DocumentManager.MdiActiveDocument
            Dim acCurDb As Database = acDoc.Database
            For Each ch In wDoc.DocumentElement.ChildNodes
                wList.Add(New MyCircle(ch, acCurDb))
            Next
        End If
    End Sub

Загружаем из XML.

Заключение

Вот так просто, и не принуждённо создаётся класс способный связать данные чертежа с данными из внешнего источника (XML). Его довольно просто доработать, для взаимодействя с внешней БД.

Комментарии (3)


  1. BoxaShu
    20.11.2015 14:50

    Надо понимать, по большому счету, это попытка сериализовать объекты автокада, сильно ограничив набор свойств?


    1. trir
      20.11.2015 16:52

      Нет, свойства примитива тут для примера. Подразумевается, что свой объект мы наполняем «нашей» информацией


  1. trir
    20.11.2015 16:52

    Нет, свойства примитива тут для примера. Подразумевается, что свой объект мы наполняем «нашей» информацией