solyrics

Bonjour, Merci pour ton aide bazoul. Je n'ai pas encore essayer la variable "filedia" car j'ai lu qu'elle écrivait dans la base de registre donc ca revient à ce que j'ai fait. Mais je vais me pencher dessus à l'avenir quand même car les versions d'Autocad évoluant, la variable filedia ne devrait pas changer mais la version d'autocad par le registre si !!! Merci

Bon n'ayant rien trouver, j'ai désactivé les macros pour les clés de registre. Si ca intéresse quelqu'un faites moi signe !

Bonjour, Je voudrais savoir s'il y a moyen de désactiver le chargement des macros en VB. Je m'explique : J'ai fait un programme pour convertir des fichiers DWG en PDF avec le printer "DWG to PDF.pc3" mais s'il y a des macros sur le fichier, j'ai une fenêtre qui me propose 3 options (Désactiver les macros/Activer les Macros/Ne pas charger la macro). Je voudrais par défaut que ce soit l'option 3 qui soit sélectionnez sans interface utilisateur ! J'ai pensé à changer la clé de registre avant et après la conversion mais ce n'est pas la meilleure solution, donc j'aimerais trouver une autre méthode !

Bonjour, J'ai une autre question : Actuellement, j'utilise ce code pour mon format de sortie de PDF Dim Paper1 As String Paper1 = "ISO_A3_(297.00_x_420.00_MM)" thisdrawing.ActiveLayout.CanonicalMediaName = paper1 Est-il possible de récupérer le format choisie par l'utilisateur pour son dessin ? Car si je ne mets rien, ca me prends le dernier format de sortie !

Dim AutoCAD As New AcadApplication Dim thisdrawing As AcadDocument AutoCAD.Visible = False Dim Print1 As String 'Variable identifiant le nom de l'imprimante Print1 = "DWG To PDF.pc3" thisdrawing = AutoCAD.Documents.Open(fichier_autocad, False, True) ThisDrawing.ActiveLayout.ConfigName = Print1 thisdrawing.ActiveLayout.StyleSheet = "Alfalaval.ctb" thisdrawing.ActiveLayout.PaperUnits = _ Autodesk.AutoCAD.Interop.Common.AcPlotPaperUnits.acMillimeters thisdrawing.ActiveLayout.StandardScale = _ Autodesk.AutoCAD.Interop.Common.AcPlotScale.acScaleToFit ThisDrawing.ActiveLayout.CenterPlot = True thisdrawing.ActiveLayout.PlotType = _ Autodesk.AutoCAD.Interop.Common.AcPlotType.acExtents ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo() thisdrawing.SetVariable("BACKGROUNDPLOT", 0) ' thisdrawing.Plot.PlotToDevice(Print1) thisdrawing.SetVariable("BACKGROUNDPLOT", 2) ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo() thisdrawing.Save() 'je sauvegarde avant de quitter pour ne pas avoir le message "voulez-vous enregistrez avant de quitter ?' AutoCAD.Quit() Ca fonctionne chez moi et m'enregistre dans le répertoire courant du fichier

Bonjour, Oui j'ai déjà fait un bout de code... Pour l'instant je recherche dessus : thisdrawing.SendCommand("-traceur " & "oui" & Strings.Chr(10) & Strings.Chr(10) & "DWG To PDF.pc3" & Strings.Chr(10) & etc...) Le soucis, c'est que j'ai une fenetre Windows qui s'ouvre (la fenetre enregistrer sous...) ! du coup pour moi, ca me va pas car je veux que tout soit automatique (sans interaction de l'utilisateur). PS : je suis en vb.net

Bonjour, J'ai le même soucis que toi ! Si tu trouves la solution n'hésite pas à la faire partager... :D Je vais continuer de chercher de mon côté ! Cyril