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