PLM-forum.ru

Подскажите, как в этот код встроить удаление имени вида.

Код: Выделить всё

Set drawingDocument1 = documents1.Add("Drawing")
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")
 
Set drawingViews1 = drawingSheet1.Views
Set drawingView1 = drawingViews1.Add("")
drawingView1.x = 0
drawingView1.y = 0
drawingView1.Scale = 1.000000
Set drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
Set partDocument1 = documents1.Item(f1.name)
Set product1 = partDocument1.GetItem("") 'Болт M3x12 ГОСТ 7798-70
drawingViewGenerativeBehavior1.Document = product1
drawingViewGenerativeBehavior1.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000
drawingView1.GenerativeBehavior.Update

Здравствуйте.

Думаю, следует посмотреть на коллекцию drawingView1.Texts, в ней хранятся все текстовые элементы чертежа, к числу которых относится имя вида. Удалять стандартно через Selection.

Интересно: а зачем это нужно?