Удаление текста

Программирование для CATIA.

Удаление текста

Сообщение tikito » 30 апр 2016 10:58

Как мне удалить текст только с текушего листа?
Этот код удаляет текст со всех листов
selection1.Add drawingDocument1.Sheets.ActiveSheet.Views.ActiveView
selection1.Search "Drafting.Text,selection1"

selection1.Delete
tikito
Новичок
Новичок
 
Сообщения: 9
Зарегистрирован: 09 авг 2014 11:31

Re: Удаление текста

Сообщение VladimirK » 04 май 2016 09:10

Здравствуйте.
Если использовать для удаления текстов Selection и Search, то можно сделать так:
сначала выделить лист, на котором нужно найти текст, а потом в Search указать область поиска для текущего выбранного элемента (From current selection):
Код: Выделить всё
selection1.Clear
selection1.Add drawingDocument1.Sheets.ActiveSheet
selection1.Search "Drafting.Text;sel"  ' "Черчение.Текст;выб"  - для русского языка интерфейса
If (selection1.Count > 0) And (selection1.Item(1).Type = "DrawingText") Then
   selection1.Delete
End If
VladimirK
Новичок
Новичок
 
Сообщения: 63
Зарегистрирован: 15 ноя 2011 21:44


Вернуться в CAA-RADE

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

cron