PLM-forum.ru

Не получается скрыть оси и точку между ними на листе в Drafting с помощью скрипта. И второй вопросик - возможно ли изменить скриптом текст на размерах ?

накопал старый CATScript по скрытию осей, попробуй

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

Sub CATMain()
Dim iViews
Dim iSheets

Set drawingDocument1 = CATIA.ActiveDocument
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.ActiveSheet
Set drawingViews1 = drawingSheet1.Views
Set Selection1 = CATIA.ActiveDocument.Selection
Set visPropertySet1 = Selection1.VisProperties
iViews = drawingViews1.Count
iSheets = drawingSheets1.Count
'---------------------------------------------------------------
' hide axis of views
for j=2 to iViews
  Set drawingView1 = drawingViews1.Item (j)
  Set geometricElements1 = drawingView1.GeometricElements
  Set axisView = geometricElements1.Item("AbsoluteAxis")
  Selection1.Add axisView
  visPropertySet1.SetShow 1
Next
End Sub

Спасибо. Код скрывает все абсолютные оси во всех видах. То что надо.