| |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | |  | NVIDIA GTC Paris und ISC High Performance-Konferenz 2025, eine Pressemitteilung
|
Autor
|
Thema: idw 2 dxf, pdf und dwf (2072 mal gelesen)
|
noctis79 Mitglied Konstrukteur/ CAD-Administrator
 
 Beiträge: 164 Registriert: 07.10.2009
|
erstellt am: 12. Okt. 2009 20:31 <-- editieren / zitieren --> Unities abgeben:         
Hallo Leutz, mal wieder ein kleines Problem... Mit dem Apprentice ist es ja ohne Prob möglich aus ner idw eine dwf zu erstellen. Jetzt die Frage, ob dies auch für pdf und dxf gilt (vorerst nur für idw bei Button8Click) und später für die Abwicklung (Button9click). Das Prog erstellt mir zwar eine dxf diese ist aber defekt. Für das Prob pdf- Erstellung habe ich leider gar keine Ahnung... <== Erledigt... Wird einfach mit PrintManager und FreePdf gedruckt... Code: Sub Button8Click(ByVal sender As Object, ByVal e As EventArgs) Dim sv As New Inventor.ApprenticeServerComponent Dim sd As Inventor.ApprenticeServerDocument sd = sv.Open("D:\CAD\Inventor Dateien\Gepäckablage\Arbeitsbereich\Konstruktion\00\Leitblech.idw") Dim doc As Inventor.ApprenticeServerDrawingDocument = sd doc.Sheets(1).DataIO.WriteDataToFile("dwf", "C:\wdf.dwf") sv.FileSaveas.AddFileToSave(doc, "C:\test.dxf") sv.FileSaveAs.ExecuteSaveCopyAs() sv.Close() End Sub Sub Button9Click(ByVal sender As Object, ByVal e As EventArgs) Dim oApprentice As New Inventor.ApprenticeServerComponent Dim odoc As Inventor.ApprenticeServerDocument odoc = oApprentice.Open("D:\CAD\Inventor Dateien\Gepäckablage\Arbeitsbereich\Konstruktion\00\Grundblech.ipt") Dim oDataIO As inventor.DataIO oDataIO = odoc.ComponentDefinition.DataIO ' Create the DXF file. oDataIO.WriteDataToFile ("FLAT PATTERN DXF?AcadVersion=R12&OuterProfileLayer=Outer", "c:\flat2.dxf") End Sub
[Diese Nachricht wurde von noctis79 am 12. Okt. 2009 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Moderator Softwareentwickler
       

 Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012
|
erstellt am: 13. Okt. 2009 10:24 <-- editieren / zitieren --> Unities abgeben:          Nur für noctis79
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |