[sebikov]

Тупой форум, снес мой первый пост

Краткое содержание предыдущей серии



В нижеприведенной конструкции есть особенность

Код:

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

 'формирование блока точек ------------------------------
    txt = "mez_blokioZone_bloki"
    txt1 = ""
    For i = 0 To ThisDrawing.Blocks.Count - 1
        j = InStr(1, txt, ThisDrawing.Blocks.Item(i).name)
        If j > 0 Then txt1 = txt1 + ThisDrawing.Blocks.Item(i).name
    Next
    
    j = InStr(1, txt1, "mez_bloki")
    If j = 0 Then
        center(0) = 0.8: center(1) = 0.8
        Set blockObj = ThisDrawing.Blocks.Add(center, "mez_bloki")
        blockObj.AddCircle center, 0.25
        blockObj.AddAttribute 1.5, acAttributeModeNormal, "point_block", center, "межевая точка", ""
        blockObj.AddPoint center
    Else
        Set blockObj = ThisDrawing.Blocks.Item("mez_bloki")
    End If
    j = InStr(1, txt1, "oZone_bloki")
    If j = 0 Then
        Set blockObj1 = ThisDrawing.Blocks.Add(center, "oZone_bloki")
        blockObj1.AddCircle center, 0.25
        blockObj1.AddAttribute 1.5, acAttributeModeNormal, "point_block", center, "охранная точка", ""
        blockObj1.AddPoint center
    Else
        Set blockObj1 = ThisDrawing.Blocks.Item("oZone_bloki")
    End If
'формирование блока точек ------------------------------

В строке blockObj.AddAttribute 1.5, acAttributeModeNormal, "point block", center, "межевая точка", "" третий параметр Prompt НЕ ДОЛЖЕН содержать пробелов. В старых автокадах, а также Bricscad и ZWCAD это прокатывало, а в Auticad 2011 и новее - уже нет

Правильно будет так blockObj.AddAttribute 1.5, acAttributeModeNormal, "point_block", center, "межевая точка", ""

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

Сообщение от sebikov Тупой форум, снес мой первый пост

Поскольку предыдущей серии не обнаружено, полагаю, что сам пользователь что-то не то сделал.
И в чем, собственно, вопрос-то?

[hwd]

Offtop: Я так понял - это монолог топикстартера, мол "тихо сам с собою, я веду беседу"(с).

[sebikov]

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

Теперь вопрос. лет десять назад забацал проект, формирующий графическую часть межевых дел и описаний границ для землеустройства, и благополучно забыл. Сейчас проверяю код под разные кады, и на 2012 версии автокада столкнулся со следующим
В VBA есть команда

Код:

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

 AddAttribute(height, mode, prompt, insertionPnt, tag, value)

В Автокаде до 2010 включительно, а также BRICSCAD и ZWCAD параметр prompt мог содержать символ пробела, к ошибкам исполнения это не приводило. В новых же автокадах начиная с 2011 атрибут просто не вставляется, хотя вручную аналогичный блок прекрасно создается. Еще веселее с параметром tag - если он содержит пробел, то его вставка срабатывает для кода в Modules, но не работает для этого же кода в Forms.

Разобраться с этим у меня не хватает свежих знаний и времени, так как программировать на VBA я перестал уже давно и работаю исключительно геодезистом