Добрый день, столкнулся с неприятной проблемой возможно кто то уже нашел решение прошу поделиться.
В модели на элемент (или поверхность) назначен атрибут при создании чертежа я ищу кривые отображаемые на
виде по этому атрибуту но не всегда нахожу хотя на виде чертежа эти кривые явно присутствуют. В моем случае
это выглядит так: есть фланец у которого в зависимости от размеров отверстия под крепеж могут попадать на фаску
уплотнительного выступа или нет. Если отверстия попадают на фаску то программа выдает что кривые на виде с указанным
атрибутом модели отсутствуют причем это относиться только к рассеченному виду (если вид не рассечен кривые находятся ).
Sub count1()
Dim oDrDoc As DrawingDocument
Set oDrDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Set oSheet = oDrDoc.ActiveSheet
Dim oView As DrawingView
Set oView = oSheet.DrawingViews.Item(2)
Dim oPartDoc As PartDocument
Set oPartDoc = oView.ReferencedDocumentDescriptor.ReferencedDocument
Debug.Print (oPartDoc.AttributeManager.FindObjects("Flange", "Uplotnitel", "EndB").Count)
Debug.Print (oView.DrawingCurves(oPartDoc.AttributeManager.FindObjects("Flange", "Uplotnitel", "EndB").Item(1)).Count)
Dim oDCurve1 As DrawingCurve
Dim oRed As Color
Set oRed = ThisApplication.TransientObjects.CreateColor(255, 0, 0)
For i = 1 To oView.DrawingCurves(oPartDoc.AttributeManager.FindObjects("Flange", "Uplotnitel", "EndB").Item(1)).Count
Set oDCurve1 = oView.DrawingCurves(oPartDoc.AttributeManager.FindObjects("Flange", "Uplotnitel", "EndB").Item(1)).Item(i)
oDCurve1.Color = oRed
Next
End Sub
ссылка на модель
https://yadi.sk/d/ASTEx6x0Qm9Khw
