---

Hallo Leute,

folgendes Problem:

ich bin in Assembly und:

On Error Resume Next
Set oOccurrence1 = oApp.ActiveDocument.SelectSet.Item(1)
If Err Then
  MsgBox "Bitte ein Teil markieren."
  Exit Sub
Else
  MsgBox (oOccurrence1.name) & " wurde markiert"
End If

Nun möchte ich das Teil aus oOccurrence1 als temp.ipt abspeichern.
Ich könnte mir vorstellen dass es so:

Set oPartDoc = oApp.Documents.Add(kPartDocumentObject, oApp.FileManager.GetTemplateFile(kPartDocumentObject))

--> ???

und dan so:

Call oPartDoc.SaveAs(Filename, False)

gehen sollte, finde aber keinen Zusammenhang zwischen oOccurrence und oPartDoc. Für oPartDoc brauche ich irgendwie
den Pfad, aber der ist über die Methoden oder Eigenschaften von ComponentOccurrence nicht erreichbar.

Any Idea??

Grüße

daywa1k3r

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

---

Hallo ,

Ich hab zwar zur Zeit keinen Inventor aber unter ACAD2000 ein ähnliches Problem gehabt ; bis ich die Eigenschaft FullName entdeckt habe.

vielleicht halfŽs

Gruß Rigo

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

---

Danke für Dein Versuch,

aber schau hier:

ComponentOccurrence Object

Methods, Properties and Events
Methods 

  ChangeRowOfiPartMember 
  CreateGeometryProxy 
  Delete 
  Edit 
  GetReferenceKey 
  Replace 
  SetTransformWithoutConstraints 

Properties 

  Adaptive 
  AttributeSets 
  Constraints 
  ContextDefinition 
  Definition 
  DefinitionDocumentType 
  DefinitionReference 
  Enabled 
  Grounded 
  HasBodyOverride 
  iMateDefinitions 
  IsiPartMember 
  MassProperties 
  Name 
  ParentOccurrence 
  PatternElement 
  Reference 
  RenderStyle 
  SubOccurrences 
  SurfaceBodies 
  Transformation 
  Type 
  Visible 

Trotzdem danke

daywa1k3r

[Diese Nachricht wurde von daywa1k3r am 22. Oktober 2002 editiert.]

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

---

Hi,

hol dir von der ComponentOccurrence die ComponentDefinition und von der das Document => dann hast du GetFullFileName.

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

---

Hi daywalker,

der zaubersatz heißt:

If oOccurrence1.DefinitionDocumentType = kPartDocumentObject Then
  oOccurrence1.Definition.Document.SaveAs "C:\Temp.ipt", True
End If

Wichtig ist, dass du prüfst, was für ein Dokument du markiert hast, kann auch 'ne Unterbaugruppe sein. Außerdem würde ich SaveCopyAs auf Wahr setzen.

------------------
Grüße Jörgen

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

---

Hi Waldi,

Set definition = oOccurrence1.ContextDefinition
   
MsgBox (definition.Document)

so krieg ich eine 8-stellige Zahl.

Hi Pizars,

yo das funzt, aber wie bringe ich die lästige Meldungen ( ob es gespeichert werden soll) weg?

Danke

daywa1k3r

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

---

Hi,

du hast jetzt ja auch die ContextDefinition und nicht die ComponentDefinition.

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

---

Hallo,

die ComponentDefinition gibt es ja nicht als Eigneschaft.

Grüße

daywa1k3r

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

---

Zitat:

---

Original erstellt von daywa1k3r:
die ComponentDefinition gibt es ja nicht als Eigneschaft.

---

Nicht verwechseln: ComponentDefinition ist der Typ der Eigenschaft, Definition ist der Name.

Zitat:

---

Original erstellt von daywa1k3r:
aber wie bringe ich die lästige Meldungen ( ob es gespeichert werden soll) weg?

---

Kann ich dir nicht sagen, da die Meldung bei mir nicht kommt. SaveAs überschreibt sogar ohne Warnung. (IV 5.3 SP2)

------------------
Grüße Jörgen

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

---

Ok danke,

ich werde es testen

Grüße

daywa1k3r

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

---

Zitat:

---

hol dir von der ComponentOccurrence die ComponentDefinition und von der das Document => dann hast du GetFullFileName.

---

Yo Waldi,

endlich gecheckt, so in etwa meinst Du das:

    Dim oAsmDoc As AssemblyDocument
    Set oAsmDoc = ThisApplication.ActiveDocument

    Dim oOcc As ComponentOccurrence
    Set oOcc = oAsmDoc.ActiveDocument.SelectSet.Item(1)
    Dim oPartCompDef As PartComponentDefinition
    Set oPartCompDef = oOcc.Definition
    Dim oPartDoc As PartDocument
    Set oPartDoc = oPartCompDef.Document
    MsgBox (oPartDoc.FullFileName)

Danke

Zitat:

---

Nicht verwechseln: ComponentDefinition ist der Typ der Eigenschaft, Definition ist der Name.

---

Nein mache ich nicht. Ich meinte schon

    Dim oDefinition as ComponentDefinition

nur wie schon oft, schlechte Wahl beim Variablen Namen.

Alles klar

Zitat:

---

Kann ich dir nicht sagen, da die Meldung bei mir nicht kommt. SaveAs überschreibt sogar ohne Warnung. (IV 5.3 SP2)

---

Ist schon ok, bei mir kommte sie auch nicht, nur dummeweise beim testen hatte ich ein StandardPart, und da kommt sie.

Überigens, die 8-stellige Nummer war DefinitionDocumentType, weil kPartDocumentObject ist nur Alias.

Danke und

seeya

daywa1k3r

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