---

Hallo allerseits!

Ich bin gerade dabei, ein Makro zu erstellen, das die Stücklistendaten in einer idw ausliest und in ein Excel-Sheet schreibt. Das ist soweit auch kein Problem. Aber um den Stücklisten-Kopf in Excel auszufüllen benötige ich Daten aus dem Zeichnungskopf.

Die Zeichnung übernimmt diese Daten (Name, Zeichnungsnummer...) aus den Properties des zugrundeliegenden Modells, in den Properties der Zeichnung sind diese Daten nicht mehr enthalten.
Gibt es eine Möglichkeit auf die Properties des Modells bzw. auf die Daten im Kopf zuzugreifen?

Für Eure Hilfe wäre ich Euch sehr dankbar!

Servus,

Ulrich

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

---

Hi

Hatte mal das gleiche Prob..
Schau hier mal nach:
http://ww3.cad.de/foren/ubb/Forum258/HTML/000067.shtml

Meintest du das ???

Viele Grüße aus dem hohen Norden..

Andreas  ;-))

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

---

Hallo Andreas,

erstmal Danke für Deinen Tipp. Leider trift der Hinweis nicht genau das, was ich meine. Ich werd mal versuchen die Situation genauer zu erklären.

In unserem Betrieb werden in den Modellen verschiedene Properties ausgefüllt. Dazu zählen insbesondere Zeichnungsnummer, und Benennung. Wird nun eine Zeichnung abgeleitet, greift der Zeichnungskopf (nicht der Eigenschaftsdialog) auf die Eigenschaften des Modells zu und füllt die Felder (im Zeichnungkopf) entsprechend aus. Die Eigenschaften der Zeichnung bleiben davon unberührt und werden NICHT aufgefüllt.
Ich hab die Vorlagendatei der Zeichung angehängt. Vieleicht macht's das deutlicher.

Mit Hilfe Deines  Skriptes kann ich auf die Eigenschaften der Zeichung zugreifen, diese sind aber leer.

Wie kann ich nun auf die Felder im Zeichnungskopf zugreifen? Ich hoffe es weis hier jemand Rat.

Viele Grüße aus dem (momentan) sonnigen Süden

Ulrich

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

---

Hallo Ulrich,

Sind ALLE Daten, die Du suchst, im Modell vorhanden ? Wenn ja, dann kriegst Du ueber die Zeichnung das Modell und Du kannst Dir dir Daten dort abholen.

Gruesse,

Paul

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

---

Hallo Paul,

die Daten sind vorhanden, aber wie komm ich an sie ran???

Servus

Ulrich

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

---

Hallo Ulrich,

versuch mal das:

Private Sub getPropsFromIdwParent()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDrawDoc As DrawingDocument
  Set oDrawDoc = oApp.ActiveDocument
 
  Dim oPartDoc As PartDocument
  Set oPartDoc = oDrawDoc.ReferencedFileDescriptors(1).ReferencedDocument
 
  MsgBox oPartDoc.FullFileName
 
  Dim oPropSets As PropertySets
  Set oPropSets = oPartDoc.PropertySets
 
  Dim oPropSet As PropertySet
 
  For Each oPropSet In oPropSets
   
    For i = 1 To oPropSet.Count
     
      On Error Resume Next
      Debug.Print "PropSet Name: " & oPropSet.DisplayName & "  Prop Name: " & oPropSet(i).Name & " ; Wert: " & oPropSet(i).Value
     
    Next i
   
  Next oPropSet
 
End Sub

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Paul,

danke für die Tipps, hat mir echt geholfen. Dieses Problem ist gelöst, doch das nächste wird nicht lange auf sich warten lassen.

Freundliche Grüße

Ulrich

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

---

Hallo Ulrich,

schoen, dass es Dir geholfen hat - die Antwort auf Dein naechstes Problem kostet Dich 10 unities (grins...)

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Paul,

die kannst Du schon als Vorschuss bekommen!

Servus

Ulrich

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

---

Hallo Ulrich,

vielen Dank (obschoon man sich davon ja nichts kaufen kann...) - also dann her mit Deinem Problem.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Paul,

das Skript von Dir funktioniert solange es sich um die Zeichnung eines Bauteils handelt. Bei Baugruppen funktioniert aber die Methode ReferencedDocument in der folgenden Zeile nicht:

Set oPartDoc = oDrawDoc.ReferencedFileDescriptors(1).ReferencedDocument

Was muss ich machen, damit das Skript auch bei Baugruppen funktioniert?

Danke schon mal im voraus,

Ulrich

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

---

Hallo Ulrich,

... das war aber keine 10 unities-Frage... Du hast also Deinen Vorschuss sozusagen zum Fenster rausgeworfen...

Nun, wie der Name der Variable 'oPartDoc' schon sagt, ist das 'Mutter'-Dokument eben ein Part-Dokument. Wenn Du daraufhin ein Assy-Doc referenzieren willst, dann verabschiedet sich das Ganze ins Daten-Nirvana.

Du kannst folgendes tun:

1. (Der Weg fuer faule) Du deklartierst oPartDoc nicht als PartDokument sóndern als Inventor.Dokument und verweise so darauf:

Set oPartDoc = oDrawDoc.ReferencedFiles(1)

2. Du suchst vor der besagten Abkack-Stelle nach den referenzierten Dokument-Typ mit:
oDrawDoc.ReferencedFileDescriptors(1).DocumentType
Dann kannst Du mit einer if-Anweisung entscheiden: wenn's ein Part-Doc ist mach dies und wenn's ein Assy-doc ist mach das

Gruesse,

Paul

www.morecam.ch

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

---

Hallo Paul,

danke für Deine Tipps. Eigendlich hätte ich ja selbst drauf kommen müssen und ich war auch schon auf dem richtigen Weg. Aber irgendwo war ein Fehler und der hatt mich dann in die Irre geführt.

Wenn Du der Meinung bist, dass die letzte Antwort keine 10 Unities Wert war dann hab ich ja noch einige Antworten gut. Die Fragen dazu werden in Kürze im Forum auftauchen.

Bis bald und nochmals Danke

Ulrich

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

---

Hallo Ulrich, 

war nur ein Spass - eigentlich war die Antwort mindestens 20 unities wert... (grins...)

Gruesse nach DE,

Paul

www.morecam.ch/cad.htm

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

---

Leider kann ich ja nur 10 vergeben... (grins...)

Servus

Ulrich

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