Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Awicklung ?

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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.


Sehen Sie sich das Profil von Pelikan an!   Senden Sie eine Private Message an Pelikan  Schreiben Sie einen Gästebucheintrag für Pelikan

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

hat jemand schon einmal per VBA die Abwicklung eines Blechteils erstellt ??
wäre für einen kurzen Lösungsansatz dankbar .

Gruss Pelikan

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



Sehen Sie sich das Profil von lbcad an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3794
Registriert: 15.02.2001

erstellt am: 16. Mrz. 2005 08:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pelikan 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Martin_0103 an!   Senden Sie eine Private Message an Martin_0103  Schreiben Sie einen Gästebucheintrag für Martin_0103

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pelikan 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von lbcad an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3794
Registriert: 15.02.2001

erstellt am: 03. Nov. 2008 18:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pelikan 10 Unities + Antwort hilfreich


SheetMetal2DXF.bas.txt

 
Hallo Martin,

hier in der Anlage ist ein Makro, mit dem Du eine DXF einer Abwicklung erzeugen kannst. Die DXF wird direkt neben die ipt geschrieben und hat den gleichen Vornamen.

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

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

Martin_0103
Mitglied



Sehen Sie sich das Profil von Martin_0103 an!   Senden Sie eine Private Message an Martin_0103  Schreiben Sie einen Gästebucheintrag für Martin_0103

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pelikan 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Martin_0103 an!   Senden Sie eine Private Message an Martin_0103  Schreiben Sie einen Gästebucheintrag für Martin_0103

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pelikan 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von lbcad an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3794
Registriert: 15.02.2001

erstellt am: 05. Nov. 2008 15:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pelikan 10 Unities + Antwort hilfreich

und wenn Ihr diese Geometriedaten auf den unsichtbaren Layer AM_9 exportiert ??

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

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

M.K.
Mitglied



Sehen Sie sich das Profil von M.K. an!   Senden Sie eine Private Message an M.K.  Schreiben Sie einen Gästebucheintrag für M.K.

Beiträge: 244
Registriert: 03.06.2004

erstellt am: 13. Nov. 2008 08:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pelikan 10 Unities + Antwort hilfreich

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




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 13. Nov. 2008 18:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pelikan 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz