---

Hallo,
ist es möglich ein Makro zuschreiben was die Eigenschaften vom Part automatisch in den Zeichnungskopf einträgt. Habe es schon versucht komme aber nicht weiter. Bin zu faul jedesmal die Verknüpfungen zu erzeugen.
Bitte um Hilfe.
Gruß Jochen

------------------
--------------------------------
Gruß Jochen

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

---

Hallo Kelzi

Haben eine etwas umständliche Lösung gefunden. Wir beziehen das Referenzelement der Hauptansicht zum erfassen der Daten.

Sub CATLinks() 'Suche nach Part- bzw. Produktinformationen aus dem 3D
On Error Resume Next
Dim Bezugselement As ProductDocument
Set Bezugselement = DrwSheet.Views.Item("Vorderansicht").GenerativeBehavior.Document

Dim ProductAnalysis As Analyze
Set ProductAnalysis = Bezugselement.Analyze

PartNummer = CStr(Bezugselement.PartNumber)
NomenKlatur = CStr(Bezugselement.Nomenclature)
Definition = CStr(Bezugselement.Definition)
Ergaenzung = Cstr(Bezugselement.DescriptionInst)
Gewicht = FormatNumber(ProductAnalysis.Mass,3)
Scale = DrwSheet.Views.Item("Vorderansicht").Scale

End Sub

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

---

Hi,
ist auf jedenfall besser als alles von Hand einzugeben. Werde es jetzt mal test.
Vielen Dank.

------------------
--------------------------------
Gruß Jochen

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