[shprot]

Подскажите пожалуйста, возможно ли программно добавлять, заполнять, удалять строки в таблице свойств динамического блока. (имя блока известно, сам параметр создан)

[Олег (jr.)]

Покажи чертеж в версии не выше 2010

[shprot]

Извините не понял, поясните пож. Нужен скрин с более ранней версии AutoCAD?

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

Объясняю: нужен dwg-файл с образцом блока, записанный в формате dwg2010 или более ранней.

[Олег (jr.)]

Посмотри ещё здесь, год назад делал:
http://forums.autodesk.com/autodesk/...ssage.id=95256

[shprot]

Объясняю: нужен dwg-файл с образцом блока, записанный в формате dwg2010 или более ранней.

У меня только 2011 и 2008, в 2008 этого параметра я вообще не обнаружил. Задача стоит программно менять какой либо выпадающий список. А в таком случае устроит и редактирование просто параметра "Выбор", точнее просто наполнять удалять его позиции, параметров для этих позиций не будет. см. приложенный блок.
А зачем вам файл именно в 2010 и ранее. Ведь насколько я помню файлы созданные в 2011 открываются 2010 AutoCAD. В файле Чертеж 2011 два параметра, один это "Выбор" а второй это "Таблица свойств блока", вполне устроит редактирование любого из них.

[Олег (jr.)]

Я тебе показал уже как делать, неужели нельзя было изменить
название параметра самостоятельно?

Код:

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

Option Explicit


Public Sub ChangeDynProps()

     Dim ss As AcadSelectionSet
     Dim ent As AcadEntity
     Dim bname As String
   Dim props() As AcadDynamicBlockReferenceProperty
     Dim pvalue As Variant
     Dim blkref As AcadBlockReference
     Dim n As Long
     
     
     With ThisDrawing.SelectionSets
          While .Count > 0
               .Item(0).Delete
          Wend
          Set ss = .Add("$DynBlocks$")
     End With

     Dim ftype(0) As Integer
     Dim fdata(0) As Variant

     ftype(0) = 0
     fdata(0) = "INSERT"
     ss.SelectOnScreen ftype, fdata
     
  If ss.Count = 0 Then
  MsgBox "No blocks selected...Exit"
  Exit Sub
  End If
  
For n = 0 To ss.Count - 1
  Set blkref = ss.Item(n)
  If blkref.IsDynamicBlock Then

  Dim i As Integer
  props = blkref.GetDynamicBlockProperties
 
  Dim prop As AcadDynamicBlockReferenceProperty
  ReDim propArray(UBound(props), 1)
  
For i = LBound(props) To UBound(props)
Set prop = props(i)
If prop.PropertyName = "Выбор" Then '<--- Change a property name here
prop.Value = "Монолит"   '"Плита" <--- Change a property value
Exit For
End If

Next i

End If

Next n

End Sub

~'o'~

[shprot]

К Олег (jr.) Спасибо а помощь, но это не совсем то что мне надо. В Вашем коде происходит выбор одной из позиций параметра "Выбор"

Код:

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

rop.Value = "Монолит"

А нужна возможность удаления, добавления этих позиций. Грубо говоря сейчас есть две позиции "Монолит" и "Плита", нужно что-бы:
1. эти (существующие) позиции были удалены
2. добавлены другие (их кол-во может быть уже другим)
Если знаете, подскажите пожалуйста.

[Олег (jr.)]

Только вручную, про код забудь, мой тебе совет

[shprot]

Понял, жаль. Может есть какие то другие идеи? Нужно сделать возможность пользователю, делать ввыбор одной из позиций списка, который программно можно было бы менять. Не обязательно что-бы пользователь этот выбор делал используя параметры дин. блока, возможно через свойство блока как то.... Если есть мысли, поделитесь.