[sergtranes]

Уважаемые профи,

есть ли програмный доступ к параметрам динамического блока (чтение/установка) аналогично атрибутам блока?

буду вам очень благодарен

[Сергей Богатов]

Есть. Смотри помощь - там всё написано

[sergtranes]

AutoCAD MEP2008
пытался делать поиск DynamicBlock , GetDynamicBlockPropertyList - ничего не нашел
возможно что VBA игнориррует динамические блоки ?!
видел здесь много LISPov, но это не помогает!

[Сергей Богатов]

Код:

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

   Dim blockObj As AcadBlockReference
   Dim insPnt(2) As Double
   Dim dynProps() As AcadDynamicBlockReferenceProperty   
Dim blkName As String
    ThisDrawing.ActiveSpace = acModelSpace
    ' vid
    insPnt(0) = countR * 40 + 90
    insPnt(1) = 55
    insPnt(2) = 0
    
    Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insPnt, "Êàáåëü", 1#, 1#, 1#, 0)
    dynProps = blockObj.GetDynamicBlockProperties    
    For I = LBound(dynProps) To UBound(dynProps)
        If dynProps(I).PropertyName = "Âèä" Then
            dynProps(I).Value = viD
        End If
    
    Next I
    blockObj.Update

См.красное. Но это для обычного Автокада

[sergtranes]

dynProps = blockObj.GetDynamicBlockProperties
я так и думал, но мой VBA не поддерживает этот метод!

[Сергей Богатов]

смотри объектную модель, может в MEP как то по-другому?

[sergtranes]

спасибо спасибо есть - видимо раньше я что-то не так делал!
еще раз спасибо!