SpecialOne54

J'ai trouvé la solution c'est bon ! Merci pour votre aide et votre patience !

Je ne comprends pas, je n'ai pas besoin d'imprimante puisque je veux la présentation en format pdf

Comment le savoir si elle a un plot ? Pourquoi pas oui il faudrait que je me renseigne la dessus

Sub TestImp() Set MonApplication = CreateObject("Shell.Application") Dim plotFileName As String ThisDrawing.ActiveLayout = ThisDrawing.layouts("A3") mydate = Format(Date, "yyyy-mm-dd") chantier = InputBox(Msg, "Quel étage de quel chantier ?") plotFileName = ThisDrawing.Path & "\" & "Pointage " & chantier & " " & mydate Dim result As Boolean result = ThisDrawing.Plot.PlotToFile(plotFileName) MonApplication.Open (MonFichier) End Sub Voici le code et malheureusement l'impression ne se réalise toujours et une erreur intervient lors du traçage

ThisDrawing.ActiveLayout = ThisDrawing.Layouts(A3) C'est cette ligne qui provoque l'erreur et l'annulation du travail de traçage

Avec tes modifications cela n'effectue pas le tracé à cause d'erreurs. Pourtant la macro s'effectue normalement

Quand je lance la macro et que je suis dans l'onglet "objet" cela imprime toujours ma vue et non pas la vue définie dans mon onglet présentation. De plus le fichier pdf ne s'affiche pas lorsque la macro est terminée. Set MonApplication = CreateObject("Shell.Application") MonApplication.Open (MonFichier) Dim plotFileName As String y = CStr(Year(Now)) m = Right("0" + CStr(Month(Now)), 2) D = Right("0" + CStr(Day(Now)), 2) mydate = y + "-" + m + "-" + D chantier = InputBox(Msg, "Quel étage de quel chantier ?") plotFileName = ThisDrawing.Path & "\" & "Pointage " & chantier & " " & mydate Dim result As Boolean result = ThisDrawing.Plot.PlotToFile(plotFileName) Voici mon code. Je suis désolé de prendre de ton temps je suis certain que c'est pourtant simple et c'est juste que j'y comprends rien... Merci !!

Sub testimp() ' This example sends a plot of the current drawing ' to a file. 'ThisDrawing.ActiveLayout.ConfigName = "DWF6 ePlot.pc3" ' Define the output file name. ' Use "" to use the drawing name as the file name. Dim plotFileName As String plotFileName = "MyPlot" Dim result As Boolean result = ThisDrawing.Plot.PlotToFile(plotFileName) End Sub A partir de l'aide VBA j'ai récupéré leur code exemple et cela imprime le pdf mais à partir de ma vue sur l'onglet dessin. J'aimerai que cela imprime en pdf mon onglet présentation. De plus j'aimerai que le fichier s'ouvre lorsque le traçage est terminé

J'ai du mal à comprendre où on en est la ducoup 😅 J'ai expliqué mon but final plus haut si jamais. Merci pour votre aide précieuse !

Alors je vais tâcher de te répondre de façon compréhensible. L'idée est de rendre l'impression très rapide et accessible même à un débutant. Dans mon projet, je réalise le pointage de l'avancement des travaux directement grâce à des macros sur mon plan autocad. Une fois ce pointage réalisé, j'aimerai que le simple clic sur un bouton permette de sauvegarder le fichier autocad et également d'imprimer la présentation. La présentation serait quand à elle figée manuellement en amont sur la vue qu'on désire. L'appui sur un bouton l'imprimerait seulement en pdf et afficherait ce pdf sur l'écran directement. Pour l'instant, j'ai fait une macro qui, en appuyant sur un bouton, sauvegarde le fichier autocad sous un certain nom et imprime en pdf sous format A3 paysage l'onglet objet à partir de la vue que j'avais de l'objet au moment ou j'ai appuyé sur le bouton. Pour le pdf je n'aurai pas besoin de cartouche ou que l'échelle soit rappelée car il servirait seulement à l'aspect visuel et à figer l'avancement des travaux à une certaine date qui sera stipulée dans le nom du fichier. En espérant avoir répondu à tes interrogations. Si non je t'écoute pour d'autres questions. Merci beaucoup !

Merci pour ta réponse ! Je suis assez débutant sur vba Autocad alors est ce que tu pourrais m'expliquer le fonctionnement de ton code ? Cela permet de créer le pdf à partir de l'onglet présentation ?

Le pdf n'est pas encore créé. J'aimerai un code qui permet d'imprimer l'onglet présentation en format pdf et dans la foulée de l'impression ouvrir le fichier pour qu'il apparaisse.

Je sais qu'il n'y a pas besoin de vba pour cela mais j'aimerai le faire à partir de VBA. J'ai déjà un code qui permet de sauvegarder le fichier autocad et d'imprimer en pdf la vision du dessin. Cependant j'aimerai pouvoir faire de même mais avec l'onglet présentation pour ne pas à avoir zoomer manuellement sur la zone qu'on veut.

Bonjour à tous, ma requête me semble simple mais je n'ai trouvé aucune information à ce sujet. J'aimerai un code vba qui imprimerait l'onglet présentation en format pdf qui ouvrirait le pdf directement. Si quelqu'un saurait comment faire je suis preneur ! Merci pour votre aide !

Le tableau crée une ligne avec le nom du bloc et ses attributs si on le sélection lors de l'extraction de données mais à aucun moment, pour les lignes du tableau concernant les polylignes du bloc, on ne trouve une colonne avec le nom du bloc dont elles font parties ou alors je vois très mal Merci pour ta réponse

Bonjour à tous, Je cherche à réaliser une extraction de données pour un projet. J'aimerai comme informations lors de mon extraction la longueur, le calque, l'aire et le nom du groupe auquel l'élément appartient. Pour les 3 premières données c'est possible grâce à la fonction d'extraction de données Autocad mais je cherche en vain à faire également apparaitre le nom du groupe ou du bloc. Quelqu'un saurait-il comment faire ? Merci par avance Bien cordialement