Показать сообщение отдельно
Непрочитано 04.06.2020, 08:29 #1
Удаление блока в чертеже
Элис
 
Регистрация: 30.06.2010
Сообщений: 11

Добрый вечер! Подскажите пожалуйста!
есть код написанный в vb.net, в нем поиск блока на чертеже. Задача заключается в 1. Найти блок на чертеже, если его нет, тогда вставить , если есть , тогда удаляем и вставляем новый. Гуру подскажите пожалуйста как удалить найденный блок??
Код:
[Выделить все]
Public Sub OpenTransactionManager()
 
            '' Get the current document and database
 
            Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
 
            Dim acCurDb As Database = acDoc.Database
 
 
 
            '' Start a transaction
 
            Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
 
 
                '' Open the Block table for read
 
                Dim acBlkTbl As BlockTable
 
                acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)
 
                '' Open the Block table record Model space for read
 
                Dim acBlkTblRec As BlockTableRecord
 
                acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForRead)
 
                '' Step through the Block table record
 
                For Each acObjId As ObjectId In acBlkTblRec ' Здесь перебираются все объекты
 
                    acDoc.Editor.WriteMessage(vbLf & "DXF name: " & acObjId.ObjectClass().DxfName)
 
                    acDoc.Editor.WriteMessage(vbLf & "ObjectID: " & acObjId.ToString())
 
                    acDoc.Editor.WriteMessage(vbLf & "Handle: " & acObjId.Handle.ToString())
 
                    acDoc.Editor.WriteMessage(vbLf)
                    If acObjId.ObjectClass().DxfName = "INSERT" Then acObjId
                    необходимо удаление блока 
                Next
                '' Dispose of the transaction
 
            End Using
        End Sub

Последний раз редактировалось Кулик Алексей aka kpblc, 04.06.2020 в 08:47.
Просмотров: 2955
 
Реверс. Автоматическая пакетная печать множества рамок (форматов) из пространства модели и листов
Размещение рекламы