[ArvI]

всем привет.
поискал в сети - ничего не нашел.
а проблема такая: пишу прогу в delphi2007, она должна в открытом документе найти нужный динамический блок, и поменять значение свойства. код ниже. Смотря в отладчике - падает с "invalid input" на присвоении значению свойства нового значения. чтение проходит нормально. readonly стоит в false. Эта ошибка появлялась на 3 разных машинах с разными Автокадами.
Подскажите как исправить или может как обойти проблему.
Спасибо.

Код:

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

procedure procname;
var i,co: integer;
    Acad: OleVariant;
    bp,yi: olevariant;
    zxc: IAcadBlockReference;
    ccv: IAcadDynamicBlockReferenceProperty;
begin
  Acad:=GetActiveOleObject('AutoCAD.Application'); //проверяем запущен ли AutoCAD
  co:=Acad.activedocument.modelspace.count;
  for i:=0 to co-1 do begin
    s:=acad.activedocument.modelspace.item(i).objectname;
    if s='AcDbBlockReference' then begin
      if acad.activedocument.modelspace.item(i).EffectiveName='bruk' then begin
  zxc:=IDispatch(acad.activedocument.modelspace.item(i)) as IAcadBlockReference;
  bp:=zxc.GetDynamicBlockProperties;
  ccv:=IDispatch(bp[0]) as IAcadDynamicBlockReferenceProperty;
  ccv.Value:=yi;
 end;
 end;
end;

[Supermax]

А! Дык зачем в моделспейс полез? Там ведь только вхождения. Как они тебе эффективное имя поменяют? Или ты не эффективное имя менять собрался?
Если надо эффективное имя поменять, то надо лезть в коллекцию blocks и там менять.

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

ArvI, по идее это может зависеть от того, является свойство "перечисляемым" или нет (Allowed). Как бы то ни было, в отладчике проверяй тип значений для каждого динамического свойства. По-моему, у тебя элементарное несовпадение типов.
Supermax, топикстартер все верно делает, просмотри код внимательнее Мне так каэцца

[ArvI]

Алексей, я тоже думал на типы.
В этом динамическом блоке я использую параметр Polar Parameter.
Как известно у него два значения: Dist и Ang, т.е. расстояние и угол.
Когда выбираю Dist type, то там в списке 3 варианта типа: none, increment и list.
Так вот: задавая типы none или increment, свойство блока AllowedValues не содержит ничего и падения программы продолжаются, а задавая тип list - оно содержит естесственно тот самый список и тогда вот такое завершение вышенаписанной процедуры

Код:

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

ccv.Value:=ccv.AllowedValues[0]

не вызывает никаких падений и все работает путем.
но проблема не решена.
есть идеи?

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

Стоп, none - это "пусто"; increment - "прирастающее", т.е. true или false. Или нет? Ииииех, образец бы...

[ArvI]

образец файл .dwg выложу завтра. в хелпе написано: свойство allowedvalues используется только для типа List. для двух других типов оно не испольлзуется.

[ArvI]

извиняюсь за тормоза - конец года, работу надо сдавать, дел много.
вот dwg - www.mineframe.ru/b/attrib_block.dwg
этот чертеж как пример
могу выложить свой код целиком, чтоб кто-то попробовал - вдруг у кого-то пойдет, там например в винде или автокаде дело. )) (что мало вероятно)

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

Я не спец по Delphi ни разу, но для VB(A) подобное было бы нечто типа:

Код:

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

Public Sub test()
Dim ent As AcadEntity, BlockRef As AcadBlockReference, point As Variant
  ThisDrawing.Utility.GetEntity ent, point
  If ent.ObjectName = "AcDbBlockReference" Then
    Set BlockRef = ent
    If BlockRef.IsDynamicBlock Then
      Dim arDynBlockProp As Variant
      arDynBlockProp = BlockRef.GetDynamicBlockProperties
      Dim enumBlockProp As Integer, NewValue As Double
      NewValue = 100
      For enumBlockProp = LBound(arDynBlockProp) To UBound(arDynBlockProp)
        If LCase(arDynBlockProp(enumBlockProp).PropertyName) = "distance1" Then
          arDynBlockProp(enumBlockProp).Value = NewValue
          BlockRef.Update
          Exit For
        End If
      Next enumBlockProp
    End If
  End If
End Sub

[ArvI]

согласен по коду.
возьми,пожалуйста, мой dwg и попробуй на своем коде в VB
будет ли работать...

[Олег (jr.)]

Сообщение от ArvI согласен по коду. возьми,пожалуйста, мой dwg и попробуй на своем коде в VB будет ли работать...

На твоем чертеже работает (VBA):

Код:

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

Option Explicit

Sub ChangeDynBlocksEntireDWG()
' tested on A2008 only
     Dim ss As AcadSelectionSet
     Dim ent As AcadEntity
     Dim bname As String
     bname = "bruk"
     Dim pvalue As Variant
     Dim blkRef As AcadBlockReference
     With ThisDrawing.SelectionSets
          While .Count > 0
               .Item(0).Delete
          Wend
          Set ss = .Add("$DynBlocks$")
     End With

     Dim ftype(2) As Integer
     Dim fdata(2) As Variant
     pvalue = 25.4 ''<--change distance value here
     ftype(0) = 0: ftype(1) = 2: ftype(2) = 67
     fdata(0) = "INSERT": fdata(1) = "`*U#*" & "," & bname: fdata(2) = 0 
     ss.Select acSelectionSetAll, , , ftype, fdata '<--выбираем все блоки
  If ss.Count > 0 Then
  MsgBox ss.Count
  For Each ent In ss
  Set blkRef = ent
  If blkRef.IsDynamicBlock Then
  If blkRef.EffectiveName = bname Then
  Dim props() As AcadDynamicBlockReferenceProperty
  Dim i As Integer
  props = blkRef.GetDynamicBlockProperties
  Dim prop As AcadDynamicBlockReferenceProperty
For i = LBound(props) To UBound(props)
Set prop = props(i)
If prop.PropertyName = "Distance" Then 
prop.Value = pvalue '<-- новое значение для Distance
End If
Next i
End If
End If
Next ent
End If
     
ss.Delete '<--optional

End Sub

~'J'~

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

Сообщение от ArvI согласен по коду. возьми,пожалуйста, мой dwg и попробуй на своем коде в VB будет ли работать...

Я именно на твоем файле и проверял.

[ArvI]

вот выложил exe свой. www.mineframe.ru/b/project.zip
dwg рядом лежит www.mineframe.ru/b/attrib_block.dwg
для работы программы в автокаде этот dwg должен быть активным.
попробуйте кому не лень. )))
Алексей, может дашь мне свою прогу попробовать у себя
или расскажи как твой код скомпилить. я с VB как то не особо дружу.

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

Так это не VB, а VBA. Код для VB будет аналогичен, только добавлять надо объявления и инициализацию указателей на приложение и активный документ (который ThisDrawing). Если бы я знал Deplhi, я бы сразу код рабочий рисовал

[ArvI]

все.
разобрался.
если у тебя в коде вот в этой строчке

Код:

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

pvalue = 25.4 ''<--change distance value here

заменить 25.4 на 25 то тоже "invalid input"
но, с другой стороны, поле-то все равно целочисленное и приводится к 25.

Алексей, спасибо.

буду чаще захаживать на форум

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

А если ставить не

Код:

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

25

а

Код:

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

25.0

Ну или с объявлениями типов разобраться
P.S. Скажу честно - голова сейчас не работает ни разу