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

25 июня 2010

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

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

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

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

25 июня 2010

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

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

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

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

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

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

25 июня 2010

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

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

25 июня 2010

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

В дереве на элементе Формат листа (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.

25 июня 2010

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

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

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