---

Ich habs!!

Folgende Zeilen zur Default.ivb hinzufügen, Icon auf Werkzeugleiste erstellen und los gehts. Makro starten, zu änderndes Teil muss geschlossen sein (man kann es über eine Dialogbox auswählen), Speicherung erfolgt automatisch.

Public Sub Normteil_Bauteil()
    Dim oParams As Parameters
    Dim oFileDlg As FileDialog
    Call ThisApplication.CreateFileDialog(oFileDlg)
    oFileDlg.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*"
    oFileDlg.FilterIndex = 1
    oFileDlg.DialogTitle = "Open File Test"
    oFileDlg.InitialDirectory = "S:\DWG"
    oFileDlg.CancelError = True
    On Error Resume Next
    oFileDlg.ShowOpen
    If Err Then
        MsgBox "Abbruch durch Benutzer"
    ElseIf oFileDlg.FileName <> "" Then
        Documents.Open (oFileDlg.FileName)
        Set oDoc = ThisApplication.Documents.Open(oFileDlg.FileName)
        ThisApplication.ActiveDocument.DisabledCommandTypes = 0
        oDoc.SubType = "{4D29B490-49B2-11D0-93C3-7E0706000000}"
        oDoc.Save
    End If
End Sub

Viel Spaß damit

------------------
mechanical   

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

---

Hallo mechanical,

gut gemacht 

Eins fählt noch: oPart.Close
sonst hast noch ne lockfile, und man kann die Veränderungen nicht sehen. Tja, was eine Zeile bewirken kann:

ThisApplication.ActiveDocument.DisabledCommandTypes = 0

und hier mal der Auszug aus Programmier-Hilfe:

Document.DisabledCommandTypes
Property Read-only property that returns a bit mask indicating the disabled command types.

Wiedermal Autodesk Hilfe. Auf jeden Fall 1000 Unities Wert 

Bis später...

------------------
Grüße daywa1k3r

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

---

hi zusammen !

da ich mich mit VB und makros nicht auskenne,
könnt ihr das BITTE genauer erklären wie man es anwendet.

------------------
Schöne Grüße Meex 
---------------------------

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

---

Hallo Mechanical!
Schönster Montag seit langem!
Meine Us werden Dich verfolgen.

@Daywalker:
Muß ich da noch was beachten? Wo gehört oPart.close hin? (Du weißt, ich bin da ziemlich blind!)

------------------
lg  
Tom

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

---

Hy Thomas
oPart.Close gehört unter oPart.Save

...
        oDoc.SubType = "{4D29B490-49B2-11D0-93C3-7E0706000000}"
        oDoc.Save
        oPart.Close
    End If
End Sub

@Meex
Alt+F11 drücken, dann kommst du in den VBA-Editor. Dort den Code einfügen (und oPart.Close hinzufügen). Ist dies erledigt, den Editor schließen und das Icon in die Werkzeugleiste aufnehmen (Anpassen, Befehle, Makros, Schaltfläche "normteil_bauteil" - siehe  http://ww3.cad.de/foren/ubb/Forum50/HTML/001901.shtml )

------------------
mechanical   

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

---

Hi,

und falls die Datei schon offen ist, hilft das hier:

Code:

---

Public Sub Normteil_Bauteil_2()
  Dim oPfad As String
  Dim oPart As PartDocument

  Set oPart = ThisApplication.ActiveDocument
  oPfad = oPart.FullFileName
  oPart.DisabledCommandTypes = 0
  oPart.SubType = "{4D29B490-49B2-11D0-93C3-7E0706000000}"
  oPart.Save
  oPart.Update
  ThisApplication.SilentOperation = True
  oPart.Close

  Set oPart = ThisApplication.Documents.Open(oPfad)
End Sub

---

Die geht auch schonend mit Werkzeugkasten um  

@Meex Mittag mache ich eine exe, die Du dann nur ausführen brauchst. Mach dir keine Gedanken, die meiste Leuten haben Schwierigkeiten mit Makros.

Bis bald...

------------------
Grüße daywa1k3r

[Diese Nachricht wurde von daywa1k3r am 03. Februar 2003 editiert.]

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

---

vielen dank und gratuliere !!!

super sache !!!!!!!

------------------
Schöne Grüße Meex 
---------------------------

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

---

Hi,

also ich habe es in meiner "Schnellstart Leiste"

Viel Spass damit...

------------------
Grüße daywa1k3r

[Diese Nachricht wurde von daywa1k3r am 03. Februar 2003 editiert.]

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

---

Danke    Danke    Danke   
an euch Beide!

------------------
lg  
Tom

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

---

hi leute !

wie funktioniert das ding ?? (stehe auf der leitung)

------------------
Schöne Grüße Meex 
---------------------------

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

---

Naja, falls Du so ein RedSpark Teil hast (zB. das von Thomas), das nicht editierbar ist, mache es einfach auf und starte mein Programm. Und sollte das Programm irgendwelche Messages raus bringen, dann lese die. So wirst Du meistens schlauer.

Bis bald...

------------------
Grüße daywa1k3r

[Diese Nachricht wurde von daywa1k3r am 03. Februar 2003 editiert.]

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

---

daywa1k3r.jpg

hi!

irgendwie funktioniert es bei mir nicht !!

------------------
Schöne Grüße Meex 
---------------------------

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

---

Ja das ist ein Autodesk Teil. Das geht noch nicht, aber als nächstes. Geduld 

Bis bald...

------------------
Grüße daywa1k3r

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

---

Mit dem Makro müsste es aber funktionieren, oder Meex?

------------------
mechanical   

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

---

Jo mechanical, hast schon recht. Selbst wenn es ein PartDocument muste es noch ein mal gesetzt werden (Sinn???). Ich ergenze es Heute noch.

Bis später...

------------------
Grüße daywa1k3r

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

---

Partdocument.zip

Jetzt müsste es beim Meex auch funzen       

Bis bald...

------------------
Grüße daywa1k3r

[Diese Nachricht wurde von daywa1k3r am 18. Nov. 2003 editiert.]

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

---

hi !!

EINFACH GENIAL !!!!!!!!!!!!!!!!!!!!!!!!

woran ist es gelegen?

------------------
Schöne Grüße Meex 
---------------------------

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

---

Naja, die Teile sind schon von SubTyp PartDocument, und wenn man es noch einmal auf PartDocument setzt dann funktioniert es !?! Autodesk ist halt ne super Programmier-Firma 

Bis bald...

------------------
Grüße daywa1k3r

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

---

Hallo, in der Datei die vor 14:40h runtergeladen ist, befindet sich ein Fehler. Bitte die alte Datei löschen und die neue Datei runterladen. Die befindet sich in dem Beitrag:

Zitat:

---

Jetzt müsste es beim Meex auch funzen

---

Vielen Dank...

------------------
Grüße daywa1k3r

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

---

Unbenannt.jpg

Zitat:

---

Original erstellt von mechanical:
Mit dem Makro müsste es aber funktionieren, oder Meex?

---

hi mechanical

ich kann zwar mit dem makro den teil öffnen aber nicht bearbeiten,
siehe bild.

------------------
Schöne Grüße Meex 
---------------------------

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

---

Hi Meex!
Das liegt jetzt nicht am Makro, oder am Teil, sondern am Speicherort. Das Ding liegt in einer Bibliothek, also vom Inventor selbst gesperrt.
Nachdem es ja jetzt einHalbzeug ist, in die Arbeitsgruppe kopieren und dort bearbeiten.

Und jetzt kommt das, worauf wahrscheinlich schon viel gewartet haben   :
Auf der CD1 von AIS6 gibts im Verzeichnis Documentations einen Word-File, der das Dateimanagement von Inventor ausführlich erkärt.
Nicht nur zu diesem Punkt gut durchlesen und beherzigen   !

------------------
lg  
Tom

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

---

hi thomas !

du hast wie immer recht :-))) funktioniert jetzt!
hast du auch noch andere hobbys außer inventor :-)))

------------------
Schöne Grüße Meex 
---------------------------

[Diese Nachricht wurde von Meex am 03. Februar 2003 editiert.]

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

---

@meex:
Ja, schau in meinem Profil nach!

P.S.:
Und in 2 Monaten wird im Freibad Traiskirchen die Saison eröffnet!
Da muß mein Boot fertig und vor lauter Erfinden komm ich nicht dazu.

------------------
lg     
Tom

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

---

Modul1.Normteil_Bauteil.Small.bmp.jpg Modul.JPG

Icon für das Makro

Icon in das Verzeichnis kopieren in dem die .ivb Datei liegt, Datei umbenennen:
* das .jpg weg (ist eine bmp Datei welche man nicht uploaden "darf")
* Modul1 ersetzen wenn das Modul anders heißt (Alt+F11, dann sieht man es auf den ersten Blick, siehe Bild). Der Name muss identisch sein mit dem ersten Teil des Dateinamens.

IV neu starten

------------------
mechanical   

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

---

Hallo,

der Thread ist ja schon was älter, da wirds mal wieder Zeit, ihn nach oben zu bringen.

Da ich mich erst jetzt anfange, für Macros zu interessieren, wäre es vielleicht möglich, daß jemand das komplette Makro nochmal hier in den Thread setzt ? Ich habe irgendwie Probleme damit. Ich kann wie im Beitrag schon gesagt, das Teil öffnen, jedoch nicht bearbeiten. Auch nicht, wenn ich es in eine andere Baugruppe einfüge.

Oder liegt es daran, daß das Makro nur mit IV6 und nicht mit 7 funktioniert ?

Aber für ein erneutes Posting wäre ich sehr dankbar...

Mfg
SteVah

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

---

Hallo, Igor!

Ist das Makro unter IV2008 (eventuell IV2009) lauffähig? Wenn ja: Gibt es das komplette Makro noch irgendwo? In dem ZIP weiter oben ist nur ein Bild...

------------------
Cheers,
    Jochen

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

---

Zitat:

---

Original erstellt von Fyodor:
Hallo, Igor!

Ist das Makro unter IV2008 (eventuell IV2009) lauffähig? Wenn ja: Gibt es das komplette Makro noch irgendwo? In dem ZIP weiter oben ist nur ein Bild...

---

Ich weiß es nicht. Einfach mal probieren. Hier gibt es eine neuere Version. Die exe die es gab, habe ich leider nicht mehr...

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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