Multiple view Representation and positional Representations

[k14348]

Hi,

  I want to create 6 Nos. of view Representation and 6 Nos. of Positional Representation via Vba in Assembly file. Please find the attached file for reference. Can anybody help?

-karthikeyan M

[k14348]

Public Sub ViewRep()

If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject Then
MsgBox "An Assembly Mustbe Active"
End
End If
Dim oAsmDoc As AssemblyDocument
Set oAsmDoc = ThisApplication.ActiveDocument

Dim oCompDef As RepresentationsManager
Set oCompDef = oAsmDoc.ComponentDefinition.RepresentationsManager

Dim oDesignViewRep As DesignViewRepresentations
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 100")

Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 200")
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 300")
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 400")
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 500")
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Main Bom Stub 600")

End Sub

I tried something but it showing error. Can anybody help with this issue.

-karthikeyan M

[bshbsh]

my guess is this line

Dim oDesignViewRep As DesignViewRepresentations

should be like this:

Dim oDesignViewRep As DesignViewRepresentation

(without the last "s")

[k14348]

Public Sub ViewRep()

If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject Then
MsgBox "An Assembly Mustbe Active"
End
End If
Dim oAsmDoc As AssemblyDocument
Set oAsmDoc = ThisApplication.ActiveDocument

Dim oCompDef As RepresentationsManager
Set oCompDef = oAsmDoc.ComponentDefinition.RepresentationsManager

Dim oDesignViewRep As DesignViewRepresentation
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 100")
    oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 200")
    oDesignViewRep = oCompDef.DesignViewRepresentation.Add("Stub 300")
    oDesignViewRep = oCompDef.DesignViewRepresentation.Add("Stub 400")
    oDesignViewRep = oCompDef.DesignViewRepresentation.Add("Stub 500")
    oDesignViewRep = oCompDef.DesignViewRepresentation.Add("Main Bom Stub 600")

End Sub

Not working 😞

[bshbsh · Accepted solution]

it would have worked if you hadn't f* up the rest of the code...

---

@k14348 wrote:

Public Sub ViewRep()

If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject Then
MsgBox "An Assembly Mustbe Active"
End
End If
Dim oAsmDoc As AssemblyDocument
Set oAsmDoc = ThisApplication.ActiveDocument

Dim oCompDef As RepresentationsManager
Set oCompDef = oAsmDoc.ComponentDefinition.RepresentationsManager

Dim oDesignViewRep As DesignViewRepresentation
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 100")
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 200")
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 300")
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 400")
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Stub 500")
Set oDesignViewRep = oCompDef.DesignViewRepresentations.Add("Main Bom Stub 600")

End Sub

Not working 😞

---

[k14348]

Thank u its working