| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Skizze auf Abwicklung (1056 mal gelesen)
|
haller9816 Mitglied Ingenieur
Beiträge: 30 Registriert: 27.03.2010 Inventor 2009 Windows XP SP 3 Lenovo W500
|
erstellt am: 20. Aug. 2010 20:32 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, nachdem mir RK bei der Flächenerstellung so toll geholfen hat, hab ich gleich ein neues Anliegen. Wie kann ich im VBA eine Skizze auf eine Abwicklung setzen? Ich habs mit Set oface = oCompDef.FlatPattern.TopFace Set oSketch = oCompDef.Sketches.Add(oface, True) probiert, hat aber nicht funktioniert. Ich weiß nicht weiter. Viele Grüße Olaf 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: 20. Aug. 2010 21:28 <-- editieren / zitieren --> Unities abgeben: Nur für haller9816
Hallo Probier mal, bei mir funktioniert es. Code: Private Sub CreateFlatPatternSketch()Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument Dim oFlatPattern As FlatPattern Set oFlatPattern = oDoc.ComponentDefinition.FlatPattern Dim oFace As Face Set oFace = oFlatPattern.TopFace Dim oSketch As PlanarSketch Set oSketch = oFlatPattern.Sketches.Add(oFace) End Sub
------------------ MfG RK Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
haller9816 Mitglied Ingenieur
Beiträge: 30 Registriert: 27.03.2010 Inventor 2009 Windows XP SP 3 Lenovo W500
|
erstellt am: 20. Aug. 2010 21:39 <-- editieren / zitieren --> Unities abgeben:
|
haller9816 Mitglied Ingenieur
Beiträge: 30 Registriert: 27.03.2010 Inventor 2009 Windows XP SP 3 Lenovo W500
|
erstellt am: 21. Aug. 2010 08:11 <-- editieren / zitieren --> Unities abgeben:
|
haller9816 Mitglied Ingenieur
Beiträge: 30 Registriert: 27.03.2010 Inventor 2009 Windows XP SP 3 Lenovo W500
|
erstellt am: 21. Aug. 2010 10:00 <-- editieren / zitieren --> Unities abgeben:
Hallo RK, hallo Alle, ich find ja nicht mal die auf der Abwicklung per Hand erzeugte Skizze. Unter ".ComponentDefinitions" sind nur die Skizzen aus der Blechumgebung aufgelistet, aber nicht die aus der Abwicklung :-( Weiß jemand Rat? Viele Grüße Olaf 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: 21. Aug. 2010 16:47 <-- editieren / zitieren --> Unities abgeben: Nur für haller9816
Hallo Könnte sein, das Inventor 2009 da noch keine API für hatte. Bei mir im 2011er läuft mein Code durch und erzeugt eine Skizze in der Abwicklung. Diese Skizze ist dann auch unter oDoc.FlatPattern.Sketches zu finden. Hab mal in die Hilfe geschaut: FlatPattern.Sketches introduced Inventor 2010 - schaut also schlecht aus für Inventor 2009.
------------------ MfG RK Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
haller9816 Mitglied Ingenieur
Beiträge: 30 Registriert: 27.03.2010 Inventor 2009 Windows XP SP 3 Lenovo W500
|
erstellt am: 21. Aug. 2010 16:55 <-- editieren / zitieren --> Unities abgeben:
|