---

Hallo ans Forum,
ich habe folgenden Code, der mir in einer Zeichung die DrawingViews durcharbeitet und dann entsprechend der aktiven Modellansichtsdarstellung eine Farbüberschreibung startet (abhängig von Modellfarben). Mein Problem ist das mir das Makro dies nicht nach der abhängigen Ansichtsdarstellung der DrawingView macht sondern nach der aktiven im geöffnten Modell? Wie kann man das umstellen?

Vielen Dank schon mal für alle Unterstützung

Public Sub RefDarstellung()
' Aktives Dokument auswählen
Dim drawDoc As DrawingDocument
Set drawDoc = ThisApplication.ActiveDocument

Dim drawView As DrawingView
For Each drawView In drawDoc.ActiveSheet.DrawingViews

Dim docDesc As DocumentDescriptor
Set docDesc = drawView.ReferencedDocumentDescriptor

' Checken das die selectierte Drawing View von einer Baugruppe ist
'If docDesc.ReferencedDocumentType <> kAssemblyDocumentObject Then
'MsgBox "Reference Farben werden nur von Baugruppenzeichnungen erstellt!"
'Exit Sub
'End If

' Get the component definition for the assembly.
Dim asmDef As AssemblyComponentDefinition
Set asmDef = docDesc.ReferencedDocument.ComponentDefinition

' Process the occurrences, wrapping it in a transaction so the
' entire process can be undone with a single undo operation.
Dim trans As Transaction
Set trans = ThisApplication.TransactionManager.StartTransaction(drawDoc, "Change drawing view Layer")

' Call the recursive function that does all the work.
Call ProcessAssemblyColor(drawView, asmDef.Occurrences)
trans.End

Next

'MsgBox "Reference Farben wurden aktualisiert!!"

Call Counter

End Sub

------------------
MFG

BlueJay

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

In dem Stück Code passiert nichts von dem was du als Problem beschrieben hast.

Zwei Möglichkeiten
1. Die Farbinfos werden gespeichert in AssembylDocument.ComponentDefinition.Representationsmanager.DesignRepresentations. Dort findest du für jede Ansichtsdarstellung einen eigene DesignRepresentation. Jede davon hat ein Property DesignViewInfo. Das ist ein ellenlanger String, in dem Autodesk in XML-Tags verpackt, die Infos geschrieben hat. Schön, wenn man einen fertigen Parser zum Auslesen der Infos hat, in deinem Fall viel Arbeit.
2. Du liest aus deinem DrawingView den Namen im DrawingView.DesignViewRepresentation Property aus. Den benutzt du, um in deiner Baugruppe über AssembylDocument.ComponentDefinition.Representationsmanager.DesignRepresentations den passenden DesignView zu finden und aktivierst ihn. Ab da kannst du die Farbinfos über deinen bisherigen Weg auslesen. Die Baugruppe muss eventuell vor Beginn gespeichert werden, da sonst das Umschalten der DesignViews nicht möglich ist, bin mir aber nicht sicher. Das Herumschalten der DesignViews kann die Laufzeit merklich verlängern. Speichere dir zu Beginn den aktuell aktiven DesignView in einer Variable, dann kannst du den am Ende einfach wieder aktiv schalten.

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP