Как программно удалить AcDbViewport?

[Пашин Евгений]

Что-то не могу понять почему не удаляется объект AcDbViewport из пространства листа.

Код - vb.net [Выбрать]

1.             n = acDoc.ActiveLayout.Block.Count - 1
2.             For i = 0 To n
3.                 Set obj = acDoc.ActiveLayout.Block.Item(i)
4.                 Select Case obj.ObjectName
5.                     Case "AcDbViewport"
6.                         obj.Delete
7.                 End Select
8.             Next i

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

Что-то не могу понять почему не удаляется объект AcDbViewport из пространства листа.

Если мне не изменяет память, то последний (или единственный) Viewport не удаляется.
Заодно посмотри в документации по поводу метода Delete и использования вместо For i = ... цикла For Each

[Пашин Евгений]

Приеду домой, напишу как я его удалил )))

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

А заодно уточни пользуешься ли ты когда нибудь поиском?

[Windcastle]

Александр, спасибо за ссылки!

Первым что попало на глаза:

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

1. Public Sub KillViewport()
2.     For Each objVP In ThisDrawing.PaperSpace
3.     Select Case objVP.ObjectName
4.         Case "AcDbViewport"
5.             objVP.Delete
6.     End Select
7.     Next
8. End Sub

Немного модифицировал пример...

Прекрасный вариант, но у меня другой ))) Не менее интересный )))

Кстати, там же нашел другой способ переключения вкладок листов... Команда "CTAB" - нужно ее проверить

[Windcastle]

О, это чудо ))) Спасибо Александру за ссылки!

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

1. Application.Preferences.Display.LayoutCreateViewport = False

Сколько бы листов не создавал - видовые экраны не создаются )))) То, что надо!

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

Спасибо Александру за ссылки!

Это не мне, а Гуглу.

[Windcastle]

Мой вариант ответа на данный вопрос!

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

1.             For i = 0 To acDoc.ActiveLayout.Block.Count - 1
2.                 obj = acDoc.ActiveLayout.Block.Item(i)
3.                 Select Case obj.ObjectName
4.                     Case "AcDbViewport"
5.                         HandleName = obj.Handle
6.                         acDoc.SendCommand("_delete" & vbCr)   ' acDoc.SendCommand("_erase" & vbCr)
7.                        acDoc.SendCommand("(handent """ & HandleName & """)" & vbCr)
8.                         acDoc.SendCommand(vbCr)
9.                 End Select
10.             Next i

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

Мой вариант ответа на данный вопрос!

1) Использовать командные методы нужно только тогда, когда других методов нет.
2) Этот код будет работать только в англоязычной локализации AutoCAD. В других вместо "DELETE" должно быть "_DELETE", а еще правильнее "_ERASE"

[Windcastle]

Да, Вы правы, отформатирую правильно...

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

Советую также не забывать про полупризрачную возможность переопределения команд. Так что я бы вместо "_delete" или "_erase" использовал запись с точкой: "_.delete" или "_.erase" соответственно.

[Windcastle]

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

А что это такое - полупризрачное переопределение команд?

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

А что это такое - полупризрачное переопределение команд?

Это Алексей Кулик пошутил. Почитай про команды _UNDEFINE (НЕТКОМ) и _REDEFINE (ДАКОМ)

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

Я про то, что теоретически команды могут быть переопределены. Сейчас уже это достаточно редко встречается, но тем не менее забывать про подобную возможность не следует.