Разорвать СПДС-объекты программно

[Александр Ривилис]

Когда ты входишь в блок (команда _BEDIT), то блок становится Пространством модели. Соответственно тебе нужно выполнять итерацию не по блоку, а по Пространству модели.

[Icu]

А как ты получаешь примитивы внутри блока?

Вот так, сначала проверяю, есть ли нужные мне объекты внутри блока (т.е. спдс или прокси-объекты), затем, если хотя бы один такой объект найден, открываю редактор блока:

Код - Visual Basic [Выбрать]

1.     For Each item In BlkDef
2.                 If InStr(item.ObjectName, SPDS_prefix) > 0_
3.                       Or InStr(item.ObjectName, PROXY_name) > 0 Then
4.                     Dim comm As String,  command_name As String, block_name As String
5.                     command_name = "-BEDIT"
6.                     block_name = BlkDef.Name                  
7.                     comm = command_name & " " & block_name & vbCrLf                  
8.                     ThisDrawing.SendCommand comm
9.                     For Each obj In BlkDef
10.                       If InStr(item.ObjectName, SPDS_prefix) > 0_
11.                           Or InStr(item.ObjectName, PROXY_name) > 0 Then ExplodeObj (obj.handle)
12.                     Next                  
13.                     ThisDrawing.SendCommand ("_bclose ")    
14.                   Exit For                          
15.                 End If          
16.      Next
17.  

[Icu]

Когда ты входишь в блок (команда _BEDIT), то блок становится Пространством модели. Соответственно тебе нужно выполнять итерацию не по блоку, а по Пространству модели.

Интересная мысль, попробую.

[Александр Ривилис]

Icu,
Напоминаю про правило форматирования кода на форуме!

[Александр Ривилис]

Icu,
Но вот с анонимными блоками (например, получившимися в результате модификации динамического блока) так не получится, так как имя таких блоков начинается с "*" и _BEDIT их не воспринимает.

[Icu]

Соответственно тебе нужно выполнять итерацию не по блоку, а по Пространству модели.

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

[Александр Ривилис]

Нет, все равно не получается разорвать спдс.

Что происходит? И если ты вручную запускаешь _EXPLODE внутри блока (т.е. в команде _BEDIT), то объекты СПДС расчленяются? Если нет, то конечно ничего не получится. Если да - то это где-то у тебя в коде ошибка.

[Icu]

Что происходит? И если ты вручную запускаешь _EXPLODE внутри блока (т.е. в команде _BEDIT), то объекты СПДС расчленяются? Если нет, то конечно ничего не получится. Если да - то это где-то у тебя в коде ошибка.

Да, вручную все расчленяется хорошо, где ошибка, я пока не могу понять, вызов функции расчленения совершенно тот же, что и выше в коде.

[Александр Ривилис]

вызов функции расчленения совершенно тот же, что и выше в коде.

Значит объекты передаёшь не те. Покажи последнее состояние функции. Сразу скажу, что ModelSpace нужно получать уже после ThisDrawing.SendCommand comm (которая вызывает _BEDIT)

[Icu]

Значит объекты передаёшь не те. Покажи последнее состояние функции.

Нашел ошибку!!Скопипастил фрагмент кода, а имя переменной-объекта не поменял! Сейчас в роде все расчленяет хорошо, осталось научить правильно закрывать редактор.

[Александр Ривилис]

осталось научить правильно закрывать редактор.

Можешь её запускать через lisp:
Код - Auto/Visual Lisp [Выбрать]

    (command "_bclose" "_save")

Так работает. Соответственно на VBA как-то так:

Код - Visual Basic [Выбрать]

1. ThisDrawing.SendCommand "(command ""_bclose"" ""_save"") "

[Icu]

Теперь всё работает, как надо!! Спасибо!

[Icu]

Да, лиспы - это сила. Я так предполагаю, что все внутренние команды автокада отрабатываются именно лиспами? Ещё мне стоит рассмотреть вариант вложенных блоков. По сути, Model_Space - это блок, внутри которого могут быть другие блоки, соответственно, намечается повод для рекурсии.

[Александр Ривилис]

Я так предполагаю, что все внутренние команды автокада отрабатываются именно лиспами?

Нет. ObjectARX и AutoCAD .NET API.

Ещё мне стоит рассмотреть вариант вложенных блоков.

Это не нужно, если ты пройдёшься просто по таблице блоков (ThisDrawing.Blocks) и проанализируешь/расчленишь СПДС-объекты в каждом из них. Таким образом ты пройдёшься и через ModelSpace и через PaperSpace. Рекурсия не понадобится.

[Icu]

Нет. ObjectARX.

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