Как проще удалить все на чертеже?

[Stilet 0]

Всем доброго. (SW2008)

Задача: Удалить все в основной надписи.

Вопрос: Какими способами, методами это проще всего сделать? есть ли что-то типа SelectAll после того как я вошел в надпись методом EditTemplate чтоб выделить все и удалить выделенное? Если нет то какой самый лучший способ очистить основную надпись?

Изменено 25 июня 2010 пользователем Stilet

[Kelny 1 267]

Если нет то какой самый лучший способ очистить основную надпись?

В дереве на элементе Формат листа (cразу под элементом дерева Лист/Sheet) провой кнопкой мыши и выбрать Удалить.

есть ли что-то типа SelectAll после того как я вошел в надпись методом EditTemplate чтоб выделить все и удалить выделенное?

Отключить фильтры и (или наоборот включить, если нужно выбрать какие-то объекты) и рамкой от нижнего угла к верхнему углу рамкой выделить всё содержимое.

Какими способами, методами это проще всего сделать?

Если всего лишь не видеть основной надписи, то свойства листа и снять галочку Отобразить основную надпись

[Stilet 0]

Все это конечно радует, но мне нужно сделать это программно. (Я не написал... виноват.)

При этом (учитывая что я пишу в Делфи).

[Kelny 1 267]

Все это конечно радует, но мне нужно сделать это программно.

В дереве на элементе Формат листа (cразу под элементом дерева Лист/Sheet) провой кнопкой мыши и выбрать Удалить.

Dim swApp As Object



Dim Part As Object





Sub main()



Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Dim myModelView As Object

boolstatus = Part.Extension.SelectByID2("Формат листа1", "SHEET", 0, 0, 0, False, 0, Nothing, 0)

Part.EditDelete

End Sub

Отключить фильтры и (или наоборот включить, если нужно выбрать какие-то объекты) и рамкой от нижнего угла к верхнему углу рамкой выделить всё содержимое.

Вероятно:

Dim instance As ISldWorks

Dim State As Boolean

 

instance.SetApplySelectionFilter(State)

, где State=False и

Function SelectByRay( ByVal DoubleInfoIn As Object, ByVal TypeWanted As Integer ) As Boolean

Parameters

DoubleInfoIn

Array of 7 doubles: 3 for the start point of the ray, 3 for the direction of the ray, and 1 for the radius

TypeWanted

Type of objects to select as defined in swSelectType_e

Part.EditDelete

Если всего лишь не видеть основной надписи, то свойства листа и снять галочку Отобразить основную надпись

Dim swApp As Object

Dim Part As ModelDoc2



Sub main()



Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Dim draw As DrawingDoc

Set draw = Part

Dim sheet As sheet

Set sheet = draw.sheet("Лист1")

sheet.SheetFormatVisible = false

End Sub

Все примеры на VBA.

[SERoz 201]

Задача: Удалить все в основной надписи.

Если нет то какой самый лучший способ очистить основную надпись?

Самый "простой" способ грохнуть всё в Основной надписи - открыть модель и удалить всё в Файл>Свойства>Настройки... можно выделить списком и Del (включая конфигурации)...

Форматка остаётся - но уже чистая....

Как программно - этто интересный вопрос (для меня)

[streamdown 1 565]

Найти все заметки и присвоить им значение " _" - пробел

[SERoz 201]

Stilet

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

"Сто первый способ"

[Stilet 0]

Stilet

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

Хм... Пожалуй да...

Ладно... помозгуем еще немного...