Servus,
ich habe das Problem, dass ich die Positionsdarstellung einer bereits ausgewählten Baugruppe nicht aktivieren/überschreiben kann.
Ausgangssituation: Baugruppe mit Unterbaugruppen. Die Baugruppe befindet sich in einer Positionsdarstellung. Die Positionsdarstellung einer ausgewählten Unterbaugruppe soll überschrieben werden.
Tut es aber leider nicht. Was übersehe ich hier?
Code:
Public Sub SetPositionRepresentationOfSelectedOccurrences()
On Error GoTo AbortSub
Dim oTrans As Transaction
Set oTrans = ThisApplication.TransactionManager.StartTransaction(ThisApplication.ActiveDocument, "Set PositionRepresentation Of Selected Occurrences") ThisApplication.ScreenUpdating = False
Dim oOcc As ComponentOccurrence
Dim oSelectSet As SelectSet
Set oSelectSet = ThisApplication.ActiveEditDocument.SelectSet
Dim oPosRep As PositionalRepresentation
Dim oPosReps As PositionalRepresentations
For Each oOcc In oSelectSet
Set oPosReps = oOcc.Definition.RepresentationsManager.PositionalRepresentations
Set oPosRep = oPosReps.Item("geöffnet")
' oOcc.ActivePositionalRepresentation = arrPosReps(InputboxValue - 1)
' oOcc.Edit
' oOcc.ExitEdit (kExitToParent)
' Call oPosRep.Activate
Call oPosRep.SetPositionalRepresentationOverride(oOcc, "geöffnet")
Next
AbortSub:
If Err <> 0 Then
Call oTrans.Abort
MsgBox "Unknown Error"
Err = 0
Else
Call oTrans.End
End If
ThisApplication.ScreenUpdating = True
End Sub
------------------
"ENGINEER"
noun. [en-juh-neer]
Someone who does precision
guesswork based on unreliable
data provided by those of
questionable knowledge
See also wizard, magician
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP