| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Umwandlung Normteil - Bauteil (4537 mal gelesen)
|
mechanical Mitglied Entwicklungsingenieur
Beiträge: 192 Registriert: 28.06.2002
|
erstellt am: 03. Feb. 2003 07:58 <-- editieren / zitieren --> Unities abgeben:
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 |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 03. Feb. 2003 08:35 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
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 |
Meex Mitglied Technischer Zeichner
Beiträge: 404 Registriert: 27.08.2002 Inventor 7 - SP1/2 Windows 2000 AMD 1900 GeForce4 Ti4400 1 GB Ram
|
erstellt am: 03. Feb. 2003 08:51 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
|
thomas109 Moderator Dompteur
Beiträge: 9357 Registriert: 19.03.2002
|
erstellt am: 03. Feb. 2003 08:53 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
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 |
mechanical Mitglied Entwicklungsingenieur
Beiträge: 192 Registriert: 28.06.2002 ANSYS Workbench 15 @Windows 7 Workstation HP Z820 SolidWorks 2014
|
erstellt am: 03. Feb. 2003 09:07 <-- editieren / zitieren --> Unities abgeben:
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 |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 03. Feb. 2003 09:14 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
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 |
Meex Mitglied Technischer Zeichner
Beiträge: 404 Registriert: 27.08.2002 Inventor 7 - SP1/2 Windows 2000 AMD 1900 GeForce4 Ti4400 1 GB Ram
|
erstellt am: 03. Feb. 2003 09:40 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 03. Feb. 2003 13:03 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
|
thomas109 Moderator Dompteur
Beiträge: 9357 Registriert: 19.03.2002
|
erstellt am: 03. Feb. 2003 13:24 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
|
Meex Mitglied Technischer Zeichner
Beiträge: 404 Registriert: 27.08.2002 Inventor 7 - SP1/2 Windows 2000 AMD 1900 GeForce4 Ti4400 1 GB Ram
|
erstellt am: 03. Feb. 2003 13:36 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 03. Feb. 2003 13:41 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
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 |
Meex Mitglied Technischer Zeichner
Beiträge: 404 Registriert: 27.08.2002 Inventor 7 - SP1/2 Windows 2000 AMD 1900 GeForce4 Ti4400 1 GB Ram
|
erstellt am: 03. Feb. 2003 13:47 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 03. Feb. 2003 13:53 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
|
mechanical Mitglied Entwicklungsingenieur
Beiträge: 192 Registriert: 28.06.2002
|
erstellt am: 03. Feb. 2003 13:56 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 03. Feb. 2003 14:02 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 03. Feb. 2003 14:05 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
|
Meex Mitglied Technischer Zeichner
Beiträge: 404 Registriert: 27.08.2002 Inventor 7 - SP1/2 Windows 2000 AMD 1900 GeForce4 Ti4400 1 GB Ram
|
erstellt am: 03. Feb. 2003 14:15 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 03. Feb. 2003 14:19 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
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 |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 03. Feb. 2003 15:02 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
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 |
Meex Mitglied Technischer Zeichner
Beiträge: 404 Registriert: 27.08.2002 Inventor 7 - SP1/2 Windows 2000 AMD 1900 GeForce4 Ti4400 1 GB Ram
|
erstellt am: 03. Feb. 2003 15:20 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
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 |
thomas109 Moderator Dompteur
Beiträge: 9357 Registriert: 19.03.2002
|
erstellt am: 03. Feb. 2003 15:53 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
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 |
Meex Mitglied Technischer Zeichner
Beiträge: 404 Registriert: 27.08.2002 Inventor 7 - SP1/2 Windows 2000 AMD 1900 GeForce4 Ti4400 1 GB Ram
|
erstellt am: 03. Feb. 2003 16:04 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
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 |
thomas109 Moderator Dompteur
Beiträge: 9357 Registriert: 19.03.2002
|
erstellt am: 03. Feb. 2003 16:06 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
@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 |
mechanical Mitglied Entwicklungsingenieur
Beiträge: 192 Registriert: 28.06.2002 ANSYS Workbench 15 @Windows 7 Workstation HP Z820 SolidWorks 2014
|
erstellt am: 04. Feb. 2003 09:18 <-- editieren / zitieren --> Unities abgeben:
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 |
SteVah Mitglied
Beiträge: 23 Registriert: 14.01.2004 P4 3.00GHz 1.5GB RAM Grafikkarte nvidia Geforce 6600 nvidia-Treiber 6.14.10.9371 Win XP Pro SP2 AIS10 SP3a
|
erstellt am: 14. Jan. 2004 09:39 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
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 |
Fyodor Ehrenmitglied V.I.P. h.c. Dipl.-Ing.(FH) Maschinenbau
Beiträge: 2669 Registriert: 15.03.2005 DELL Precision 7740 Intel Core i9-9980HK 32 GB RAM NVISIA Quadro RTX4000 Windows 10 Enterprise<P>SolidWorks 2019 SP3.0
|
erstellt am: 29. Sep. 2008 08:33 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
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 |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 29. Sep. 2008 09:00 <-- editieren / zitieren --> Unities abgeben: Nur für mechanical
|