[Résolu] Exportation dwg et dxf

Tous sujets concernant le développement spécifique de TopSolid avec l'interface COM, le langage LIP, la programmation de l'API en VB...

Modérateurs : remi77, D@vid, Alexis GERARD

Répondre
Drikce06
Seconde Classe
Seconde Classe
Messages : 7
Enregistré le : 22 nov. 2006, 11:08

[Résolu] Exportation dwg et dxf

Message non lu par Drikce06 »

Bonjour, j'utilse le code suivant pour exporter en .dwg ou .dxf une série de plan, mon problème vient de la propriété SetExportOptions, que je mette du dxg ou du dxf, j'obtients toujours du .dwg. Quelqu'un aurai t-il une solution à mon problème? Merci d'avance.

Code : Tout sélectionner

               If Microsoft.VisualBasic.Right(path, 4) Like StrExtension1 Then

                    Dim splitname()
                    Dim NewName As String
                    Dim topapp As TopSolid.Application
                    Dim doc As TopSolid.Document

                    topapp = New TopSolid.Application
                    topapp.Visible = True

                    doc = topapp.Documents.Open(path)

                    splitname = Split(path, ".", -1, CompareMethod.Text)
                    NewName = splitname(0) & StrExtension2

                    If Microsoft.VisualBasic.Right(NewName, 4) Like ".dxf" Then
                        topapp.SetExportOption("dxf", "2000", "mm")
                        doc.SaveAs(NewName, False)
                    ElseIf Microsoft.VisualBasic.Right(NewName, 4) Like ".dwg" Then
                        topapp.SetExportOption("dwg", "2000", "mm")
                        doc.SaveAs(NewName, False)
                    End If

                    doc.Close(False, False)

                    topapp.Quit()
                    topapp = Nothing
                    doc = Nothing

                End If
DRIKCE06
Drikce06
Seconde Classe
Seconde Classe
Messages : 7
Enregistré le : 22 nov. 2006, 11:08

Message non lu par Drikce06 »

Petite correction:
du dxg ou du dwg
DRIKCE06
Johann
Caporal
Caporal
Messages : 23
Enregistré le : 04 nov. 2006, 13:40
Localisation : Laval (dept 53)
Contact :

Export DXG DWG ...

Message non lu par Johann »

Bonjour.

Pour ma part, j'utilise le fichier DFTEXT.MEN qui contient le texte suivant :

"%Mes Outils"{
%Interfaces {
"%TopSolid'Draft vers Autocad" = $TOPHOME/z/x/acad/out/l/convert ;
"%Autocad vers TopSolid'Draft" = $TOPHOME/z/x/acad/in/l/convert ;
"%SolidWorks vers TopSolid" = $TOPHOME/z/x/sw/in/l/load ;
}

"%Impressions" {
"#Men#File#Imprimer plusieurs documents" #0,3023,11 = $TOPHOME/u/l/multiprinttop 10 1 ;
}
}

Et c'est TIPTOP.

Bonne journée.
Bon forum.

Johann
Drikce06
Seconde Classe
Seconde Classe
Messages : 7
Enregistré le : 22 nov. 2006, 11:08

conversion

Message non lu par Drikce06 »

Bonjour, merci ça fonctionne :D mais y a t'il la meme chose pour les top vers dxf et pas uniquement dft vers top!

Merci et bonne journée!
DRIKCE06
Johann
Caporal
Caporal
Messages : 23
Enregistré le : 04 nov. 2006, 13:40
Localisation : Laval (dept 53)
Contact :

Export DXG DWG ...

Message non lu par Johann »

OUI, on fait DFT vers DXG, DWG ... et l'inverse
Import et Export
Bon forum.

Johann
Drikce06
Seconde Classe
Seconde Classe
Messages : 7
Enregistré le : 22 nov. 2006, 11:08

Conversion

Message non lu par Drikce06 »

Pardon! J'ai écrit une petite erreur:

au lieu de faire du *.dft vers *.dxf

faire du *.top vers *.dxf
DRIKCE06
Répondre