Ich habe dazu ein kurzes Skript geschrieben, welches alle Blätter öffnet auf welchem das Objekt erscheint. Was noch fehlt sind die Dynamic Areas...
Sub Run()
Dim dwgs As Aucotec.Associations
Dim dwg As Aucotec.Association
Dim oSheet As Aucotec.Sheet
If Selection(1).Kind <> aucObjDevice Then Exit Sub
Set dwgs = Selection(1).SourceAssociations.Filter(aucRoleSymbolInSheet)
For Each dwg In dwgs
Set oSheet = dwg.RelatedObject.Parent
If Not oSheet.IsOpened Then
oSheet.Open (aucSheetOpenAutosave + aucSheetOpenExplorerLikeConfiguration)
End If
Next dwg
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP