Доброго времени суток, уважаемые форумчане! Прошу Вашей помощи в решении следующей проблемы:
Сборка имеет такую структуру:
Использую такой вот код:
Sub code()
Dim oTG As TransientGeometry
Dim oMatrix As Matrix
Dim oCompDef As AssemblyComponentDefinition, oCompDef2 As AssemblyComponentDefinition
Set oDoc_KK = ThisApplication.ActiveDocument
Set oTG = ThisApplication.TransientGeometry
Set oMatrix = oTG.CreateMatrix
Set oCompDef = ThisApplication.ActiveDocument.ComponentDefinition
Set oCompDef2 = oCompDef.Occurrences.ItemByName("Передняя стена").Definition
Call oMatrix.SetTranslation(oTG.CreateVector(330, 0, 0))
Call oCompDef2.Occurrences.ItemByName("Б1").SetTransformWithoutConstraints(oMatrix)
Call oDoc_KK.Update
oCompDef.Occurrences.ItemByName("Передняя стена").SetLevelOfDetailRepresentation ("Р4")
Call oDoc_KK.Update
End Sub
Генерируется такое вот сообщение:
Сразу прошу прощения, если сформулирую мысль кривовато - слабоват еще в терминах.
Как я понимаю, что при выполнении строки кода
Call oCompDef2.Occurrences.ItemByName("Б1").SetTransformWithoutConstraints(oMatrix)
подсборка "Передняя стена" открывается для редактирования (или типо того) где-то в фоновом режиме, и числится таковой. Не подскажите, как можно ее "закрыть" программно перед сменой уровня детализации, чтобы не появлялось данное сообщение?
П.С.
1 - сообщение появляется на строке смены уровня детализации
2 - если исключить указанную мною отдельно строку кода, то сообщение появляться не будет