[andrej2005]

Обычно для программирования каких-либо элементарных действий в чертеже я использую библиотеку ObjectDBX. Однако, если я правильно понял, она не реализует процедуру SendCommand. Moжет кто-нибудь подскажет, как элегантно выскользнуть из этой ситуации?! Конкретно надо вставить дополнительный атрибут практически во все блоки на чертежах(около тысячи). Хотел я реализовать проблемму так:

Код:

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

Public Sub FileProcessing(MainDoc As AxDbDocument)
    Dim i As Integer
    Dim blokObj As AcadBlock
    Dim attributeObj As AcadAttribute
    Dim height As Double
    Dim mode As Long
    Dim prompt As String
    Dim insertionPoint(0 To 2) As Double
    Dim tag As String
    Dim value As String
    
    For i = 0 To MainDoc.Blocks.count
        Set blokObj = MainDoc.Blocks.Item(i)
        ' Define the attribute definition
        height = 1#
        mode = acAttributeModeVerify
        prompt = "New Prompt"
        insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0
        tag = "NEW_TAG"
        value = "New Value"
        ' Create the attribute definition object in model space
        Set attributeObj = blokObj.AddAttribute(height, mode, prompt, insertionPoint, tag, value)
        MainDoc.SendCommand "_attsync" & vbCr & "_n" & vbCr & "*" & vbCr
        ZoomAll
    Next i
End Sub

Ну и в месте, где я пытаюсь синхронизовать атрибуты в блоках коммандой _attsync программа вылетает.

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

Попробуй просто пройтись по всем вхождениям своих блоков и для них выполнить Update. Может, и сработает.

[andrej2005]

Нет, Update не работает. Ладно, бог с ним, перевел на библиотеку AutoCad. Работает немного медленней, но зато возможности шире.