I want to lock all my view Representations via vba

[k14348]

Hi,

  i Have one main assembly which has 10 view representations. Now i want to lock all the view representations via vba program. Can anybody help.

I tried something. But its not working im attaching my code for corrections.

Public Sub LockViewRep()

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oRepMgr As RepresentationsManager
Set oRepMgr = oDoc.ComponentDefinition.RepresentationsManager

Dim oViewReps As DesignViewRepresentations
Set oViewReps = oRepMgr.DesignViewRepresentations

Dim oViewRep As DesignViewRepresentation
Set oViewRep = oViewReps.Item(3)

Dim oLock As Boolean
Set oLock = oViewRep.Locked

End Sub

Thanq,

karthikeyan M

+91-9894814348

[Owner2229]

Try this:

Public Sub LockViewRep()

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oRepMgr As RepresentationsManager
Set oRepMgr = oDoc.ComponentDefinition.RepresentationsManager

Dim oViewReps As DesignViewRepresentations
Set oViewReps = oRepMgr.DesignViewRepresentations

Dim oViewRep As DesignViewRepresentation
For Each oViewRep In oViewReps
    Call oViewRep.Locked = True
Next
End Sub

[k14348]

Not working. Error file attached.

[Owner2229 · Accepted solution]

Alright, this should do it:

Public Sub LockViewRep()

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oRepMgr As RepresentationsManager
Set oRepMgr = oDoc.ComponentDefinition.RepresentationsManager

Dim oViewReps As DesignViewRepresentations
Set oViewReps = oRepMgr.DesignViewRepresentations

Dim oViewRep As DesignViewRepresentation
For Each oViewRep In oViewReps
    On Error Resume Next
    oViewRep.Locked = True
Next
End Sub