[Zets]

Есть большая куча чертежей. В них нужно изменить обозначение документа и т.д.
Возможно ли это сделать каким то легким способом? Добавление их в подшивку и вставка блоков/полей легким не считаю.

[trir]

ReadDwgFile

[Zets]

Сообщение от trir ReadDwgFile

Я так понимаю там надо перебор файлов организовать и понять какой класс отвечает за мультитекст?

[trir]

Найти нужный мультитекст и поменять значение.
Это довольно быстрый способ, потому что не задействован GUI

я подобное делал с листами

Код:

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

    Public Sub New(wLayoutBlock As BlockTableRecord)
        Me.wTree = New RTree(Of ObjectId)
        Me.wDict = New Dictionary(Of String, List(Of ObjectId))
        Dim cdb As Database = wLayoutBlock.Database
        Dim wEnt As Entity
        Dim type As String
        Dim bDict As Dictionary(Of String, List(Of ShtampField)) = ShtampField.GetDict
        Using acTrans As Transaction = cdb.TransactionManager.StartTransaction()
            For Each ent As ObjectId In wLayoutBlock
                wEnt = ent.GetObject(OpenMode.ForRead)
                If Not IsDBNull(wEnt) Then
                    Me.wTree.Add(TestShtamp.GetRect(wEnt), wEnt.ObjectId)
                    type = wEnt.ObjectId.ObjectClass.DxfName
                    If Not Me.wDict.Keys.Contains(type) Then
                        Me.wDict.Add(type, New List(Of ObjectId))
                    End If
                    Me.wDict(type).Add(wEnt.ObjectId)
                    '
                    If (type = "INSERT") Then
                        Dim wBR As BlockReference = wEnt
                        If Me.ShtmpBlock.IsNull Then
                            If bDict.Keys.Contains(wBR.Name) Then
                                Me.BlockName = wBR.Name
                                Me.ShtmpBlock = wBR.ObjectId
                                Me.wFieldList = bDict(wBR.Name)
                            End If
                        End If
                    End If
                End If
            Next
            '
            acTrans.Abort()
        End Using
    End Sub

RTree

[Nike]

Batch Find & Replace Text

[Zets]

Сообщение от Nike Batch Find & Replace Text

Большое спасибо, то что нужно!