| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Awicklung ? (1211 mal gelesen)
|
Pelikan Mitglied Dipl. Ing. Masch. Bau.
Beiträge: 260 Registriert: 30.12.2002 Inv 2013/2014 FDS Win7 64bit PSP2011 FX3000m HP 8770w 32GB
|
erstellt am: 14. Mrz. 2005 13:43 <-- editieren / zitieren --> Unities abgeben:
|
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3794 Registriert: 15.02.2001
|
erstellt am: 16. Mrz. 2005 08:48 <-- editieren / zitieren --> Unities abgeben: Nur für Pelikan
Hi Pelikan, geht so: ' Get the DataIO object. Dim oDataIO As DataIO Set oDataIO = oDoc.ComponentDefinition.DataIO ' Build the string that defines the format of the DXF file. Dim sOut As String sOut = "FLAT PATTERN DXF?" _ + "AcadVersion=R12" _ + "&OuterProfileLayer=IV_OUTER_PROFILE" _ + "&InteriorProfilesLayer=IV_INTERIOR_PROFILES" _ + "&FeatureProfilesLayer=IV_FEATURE_PROFILES" _ + "&TangentLayer=IV_TANGENT" _ + "&BendLayer=IV_BEND" _ + "&ToolCenterLayer=IV_TOOL_CENTER" _ + "&ArcCentersLayer=IV_ARC_CENTERS" _ + "" ' Create the DXF file. oDataIO.WriteDataToFile sOut, "c:\test.dxf" ------------------ Gruß Lothar --------------------------------------------------- Während man es aufschiebt, verrinnt das Leben. —Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Martin_0103 Mitglied
Beiträge: 181 Registriert: 05.02.2003 3,4 GHz - Quadro 4000 - 12 GB RAM - WIN7 - IV2015
|
erstellt am: 03. Nov. 2008 12:25 <-- editieren / zitieren --> Unities abgeben: Nur für Pelikan
Hallo Zusammen, wir arbeiten mit Inventor 2008 und würden sehr gerne mittels Makro eine DXF (R12) von einer Abwicklung mit voreingestellter Konfigruration (ini Datei) erzeugen. Der obere Script geht leider im IV2008 nicht - kann mir jemand helfen? Von VBA habe ich keien Ahnung... Danke euch Gruß Martin ------------------ Wenn man einen Hund so dressiert hat, dass er über einen See fliegt, dann gibt es sicher ein paar Neider die das Tier für Wasserscheu halten... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3794 Registriert: 15.02.2001
|
erstellt am: 03. Nov. 2008 18:21 <-- editieren / zitieren --> Unities abgeben: Nur für Pelikan
|
Martin_0103 Mitglied
Beiträge: 181 Registriert: 05.02.2003 3,4 GHz - Quadro 4000 - 12 GB RAM - WIN7 - IV2015
|
erstellt am: 04. Nov. 2008 15:28 <-- editieren / zitieren --> Unities abgeben: Nur für Pelikan
Danke Dir Lothar, geht prima! Gruß Martin ------------------ Wenn man einen Hund so dressiert hat, dass er über einen See fliegt, dann gibt es sicher ein paar Neider die das Tier für Wasserscheu halten...
[Diese Nachricht wurde von Martin_0103 am 05. Nov. 2008 editiert.] [Diese Nachricht wurde von Martin_0103 am 05. Nov. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Martin_0103 Mitglied
Beiträge: 181 Registriert: 05.02.2003 3,4 GHz - Quadro 4000 - 12 GB RAM - WIN7 - IV2015
|
erstellt am: 05. Nov. 2008 15:21 <-- editieren / zitieren --> Unities abgeben: Nur für Pelikan
Ergänzung: Schade ist nur, dass man per Script die Layer: IV_TANGENT IV_BEND IV_BEND_DOWN IV_TOOL_CENTER IV_TOOL_CENTER_DOWN IV_ARC_CENTERS IV_FEATURE_PROFILES_DOWN IV_ALTREP_BACK nicht ausschalten kann. Wir übertragen die DXF direkt an die Stanze und da stören diese Layer!!! Das ist das KO Kriterium - schade! Gruß Martin ------------------ Wenn man einen Hund so dressiert hat, dass er über einen See fliegt, dann gibt es sicher ein paar Neider die das Tier für Wasserscheu halten... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3794 Registriert: 15.02.2001
|
erstellt am: 05. Nov. 2008 15:59 <-- editieren / zitieren --> Unities abgeben: Nur für Pelikan
|
M.K. Mitglied
Beiträge: 244 Registriert: 03.06.2004
|
erstellt am: 13. Nov. 2008 08:53 <-- editieren / zitieren --> Unities abgeben: Nur für Pelikan
Nur mal nachgefragt, wenn ich so ein Script einbinden möchte, wie mache ich das, dass das Programm auch aktiv wird? Danke & Gruß M.K. ------------------ --- save often & early --- PS.: Wer Rechtschreibfehler finden sollte, der darf sie auch behalten! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2166 Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
erstellt am: 13. Nov. 2008 18:32 <-- editieren / zitieren --> Unities abgeben: Nur für Pelikan
Hi Öffne mit Alt+F11 den VBA-Editor, füge das Script ein, schließe den Editor. Im Inventor unter Extras, Anpassen, "Werkzeugleisten" erstellst du dir eine neue (leere) Werkzeugleiste. Anschließend wechselst du auf den Reiter "Befehle" scrollst im linken Teil nach unten zum Punkt "Makros" und nimmst im rechten Teil dein Makro und ziehst es als Button in die Werkzeugleiste. Wie du dem Button ein eigenes Icon verpaßt steht hier irgendwo im Forum. ------------------ MfG RK
[Diese Nachricht wurde von rkauskh am 13. Nov. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |