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