tunisieno

Bonjour, Je voudrais créer une ligne qui soit de couleur jaune avec un trait noir en gros qu'il y est 2 ligne superposé une jaune et une autre noir. En vous remerciant par avance

Bonjour, Je voudrais créer une ligne qui soit de couleur jaune avec un trait noir en gros qu'il y est 2 ligne superposé une jaune et une autre noir. En vous remerciant par avance

Bonjour, J'aimerais savoir s'il était possible de faire apparaitre une fenêtre enregistrer sous en vba autocad car j'ai tout essayé et impossible. J'ai un programme de tracé automatique pour le plt et j'aimerais que l'utilisateur choisisse son propre chemin de répertoire: This drawing.plot.plottofile "d:\" Voici la fin de mon programme j'aimerais pouvoir faire apparaitre une fenetre enregistrer sous afin de facilité sons utilisation. En vous remeciant.

Bonjour, J'aimerais savoir s'il était possible de faire apparaitre une fenêtre enregistrer sous en vba autocad car j'ai tout essayé et impossible. J'ai un programme de tracé automatique pour le plt et j'aimerais que l'utilisateur choisisse son propre chemin de répertoire: This drawing.plot.plottofile "d:\" Voici la fin de mon programme j'aimerais pouvoir faire apparaitre une fenetre enregistrer sous afin de facilité sons utilisation. En vous remeciant.

Bonjour, Je dois pouvoir lancer un programme lorsque x= ch9 et que optionbutton1 = true sinon il lance un autre programme. Le problème c'est qu'il lance les 2 programmes.. Private Sub CommandButton1_Click() Dim Nom As String Dim x As String Nom = ThisDrawing.Name x = Left(Nom, 3) If x = "CH9" And OptionButton1 = True Then Call prog_etiqCAB Else Call prog_PLT_traceur End If si x n'est pas égale à ch9 et que OptionButton1 = alors il doit lancer prog_PLT_traceur. Merci pour votre aide

Bonjour, J'aimerai créer des plt en vba mais je ne sais pas comment le faire. J'ai créé un use forme avec des boutons et des fenêtres de sélection. grâce a se useform je peux selectioner une liste de dwg et l'ajouter dans une listbox5. ' impression d'une liste de plans : Var_nb_plan_ferme = 0 For Var_boucle = 0 To (ListBox5.ListCount - 1) 'Ouvrir les plans de la liste Box N°5 ThisDrawing.Application.Documents.Open ListBox5.List(Var_boucle) Call prog_plt En cliquant sur le bouton ok de mon use forme je dois lancer les impressions de ma sélection mais comment faire pour les imprimer en plt. Pour la création des plt je suis partie sur 2 type de programme le: 1)Sub prog_plt() ThisDrawing.SendCommand ("-traceur " & "Oui" & Strings.Chr(10) & "Objet" & Strings.Chr(10) & "XEROX8830.pc3" & Strings.Chr(10) & "Format1" & Strings.Chr(10) & "Millimètres" & Strings.Chr(10) & "pAysage" & Strings.Chr(10) & "Non" & Strings.Chr(10) & "Etendu" & Strings.Chr(10) & "1:1" & Strings.Chr(10) & "0.00,0.00" & Strings.Chr(10) & "Oui" & Strings.Chr(10) & "monochrome.ctb" & Strings.Chr(10) & "Oui" & Strings.Chr(10) & "Filaire" & Strings.Chr(10) & "O" & Strings.Chr(10) & "" & Strings.Chr(10) & "N" & Strings.Chr(10) & "O") End Sub Le souci c'est qu'il me demande d'enregistrer le plt et je ne sais pas comment faire et 2 plus en selectionant plusieurs dwg grâce au useform cela plante car l'ouverture des dwg se fait trop rapidement. 2)Sub prog_plt() 'déclaration de l'imprimante ThisDrawing.ActiveLayout.ConfigName = "XEROX8830.pc3" 'Désactiver l'affichage du rapport d'erreurs de tracé ThisDrawing.Plot.QuietErrorMode = True 'Spécifier le nombre de copies ThisDrawing.Plot.NumberOfCopies = Impression_PERSO.SpinButton1.Value 'ThisDrawing.Plot.PlotToFile ThisDrawing.ActiveLayout.StyleSheet = "Monochrome.CTB" 'configuration de l'impression 'unité millimètre ThisDrawing.ActiveLayout.PaperUnits = acMillimeters 'Echelle ThisDrawing.ActiveLayout.SetCustomScale 1, 1 'Choix du format ThisDrawing.ActiveLayout.GetCanonicalMediaNames (perso) ThisDrawing.ActiveLayout.CenterPlot = False 'Etendu ThisDrawing.ActiveLayout.PlotType = AcPlotType.acExtents ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo ThisDrawing.Plot.PlotToDevice ThisDrawing.Plot.PlotToFile ("C:\dwg\" & Mid(ListBox5.List.Name, 1, Len(ListBox5.List.Name) - 3) & "dwg") J'obtiens une erreur du à la dernière ligne et il me lance directement l'impression sur le traceur. [Edité le 6/11/2009 par tunisieno] [Edité le 6/11/2009 par tunisieno]

Bonjour, Je suis débutant en vba. J'ai fait un début de programme qui me permet de sélectionner plusieurs fichier dwg. Le but est de les imprimé automatiquement après les avoirs sélectionné. Je n'arrive pas à imprimer tous les fichiers sélectionné il m'imprime toujours le premier de la liste. J'aurais voulus savoir comment sélectionne le mode paysage ou portrait en fonction du schéma je n'ai pas réussi a trouvé. Au travail nous avons 2 type de format horizontaux qui peuvent faire plusieurs mètre et des verticaux qui peuvent aussi faire plusieurs mètre. j'aimerais pouvoir faire une routine qui sélectionne le mode paysage ou portrait automatiquement. J'aimerais savoir la commande pour imprime en etendu en vba en vous remerciant par avance