formula1

J'aimerrais bien un début de code sous autocad 2004 eng. Attention, j'aimerrais que le bloc s'inserre sur un dessin vierge (donc aucun bloc dedans) Merci d'avance

Bonjours, je voudrais créer une petite routine en VBA qui insererrais (par exemple des cadres) des blocs avec ou sans attributs. Je suis débutant en VBA et me suis procurer un livre mais meme avec le livre et l'aide de autocad 2004 je ne trouve pas comment faire. Merci d'avance pour vos réponses.

Bonjours a tous, je voudrais insserer plusieurs styles de cote différents dans mon dessin (encore vierge ou existant). J'ai trouvé comment les insserer mais je n'ai pas trouver comment définir leur propriétés car elles sons toutes différentes. Par exemple je veus insserer un style cote-50 ou il y a certain parametre a regler comme les fleche, la hauteur et le style du texte ... Pourriez-vous me donner un petit coup de main. Merci d'avance a tous ceux qui me répondrons.

Merci SACHENBASK, je vais essayer ça ce soir

tu veus bien présiser ta question? au final?

Bonjours, Voilà je suis de retour après qlq jours de vacances. J'ai fais ce que tu as dis, mais quand je clique sur le bouton rien ne se passe.

Je lui ai mis en caption ParaPolyline et j'ai laisser userform1

Le code de l'erreur est : Run time error '424': object required

J'ai testé ton code, il bug à la partie surligner Private Sub CommandButton1_Click() Dim sngElement As Single 'initialise la variable pour qu'elle reçoive le choix que l'utilisateur fait [surligneur] sngElement = ParaPolyligne.ComboBox1.List(ParaPolyligne.ComboBox1.ListIndex)[/surligneur]MsgBox sngElement End Sub

Malheureusement, je n'arrive pas a débuter car comme tu le sais, je débute avec le vba.

Pour les polyline, je n'ai encore rien trouvé

Ben, j'ai trouver dans l'aide de AUTOCAD comment inserer un style de cote mais pour ce qui est de ses propriétés, il n'est rien mentionné. C'est pour cela que je demande sur ce forum, car je sais qu'il y a toujours quelqu'un pour aider.

Ce sera une macro pour charger d'autre style de cote et d'autre style de texte que ceux par défaut.

Sechanbask, je ne veus pas inserer du mtext mais des styles de texte et des style de cote comme ça quand j'en aurrai besoin, au lieu d'aller les chercher sur un autre fichier, je pourrais les charger directement.

Un grand MERCI à toi, ça fonctionne parfaitement.

Merci, je vais tester ça et te tenir au courant si ça fonctionne.

Voilà mon code Private Sub CmdCoffrage_Click() Dim linetypeHidden As String Dim linetypeCenter2 As String Dim linetypePhantom2 As String linetypeHidden = "HIDDEN" linetypeCenter2 = "CENTER2" linetypePhantom2 = "PHANTOM2" For Each entry In ThisDrawing.Linetypes If StrComp(entry.Name, linetypeHidden, 1) = 0 Then Dim trouve As Boolean trouve = True Exit For Else End If Next If trouve = False Then Dim fichier1 As String fichier1 = "acad.lin" ThisDrawing.Linetypes.Load linetypeHidden, "acad.lin" Else End If For Each entry In ThisDrawing.Linetypes If StrComp(entry.Name, linetypeCenter2, 1) = 0 Then End If Next If trouve = False Then ThisDrawing.Linetypes.Load linetypeCenter2, "acad.lin" Else End If For Each entry In ThisDrawing.Linetypes If StrComp(entry.Name, linetypePhantom2, 1) = 0 Then End If Next If trouve = False Then ThisDrawing.Linetypes.Load linetypePhantom2, "acad.lin" Else End If Dim newlayer1 As AcadLayer Set newlayer1 = ThisDrawing.LAYERS.Add("BETON-CSP-CACHE") Dim color As AcadAcCmColor Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16") Call color.SetRGB(0, 255, 255) newlayer1.TrueColor = color newlayer1.Linetype = linetypeHidden Dim newlayer2 As AcadLayer Set newlayer2 = ThisDrawing.LAYERS.Add("BETON-CSP-COUPE") Call color.SetRGB(255, 127, 255) newlayer2.TrueColor = color Dim newlayer3 As AcadLayer Set newlayer3 = ThisDrawing.LAYERS.Add("BETON-CSP-VU") Call color.SetRGB(159, 255, 127) newlayer3.TrueColor = color Dim newlayer4 As AcadLayer Set newlayer4 = ThisDrawing.LAYERS.Add("BETON-PREF-VU") Call color.SetRGB(0, 255, 255) newlayer4.TrueColor = color Dim newlayer5 As AcadLayer Set newlayer5 = ThisDrawing.LAYERS.Add("BETON-PREF-COUPE") Call color.SetRGB(255, 255, 0) newlayer5.TrueColor = color Dim newlayer6 As AcadLayer Set newlayer6 = ThisDrawing.LAYERS.Add("BETON-PREF-CACHE") Call color.SetRGB(255, 0, 0) newlayer6.TrueColor = color newlayer6.Linetype = linetypeHidden Dim newlayer7 As AcadLayer Set newlayer7 = ThisDrawing.LAYERS.Add("HOURDIS-COUPE") Call color.SetRGB(114, 76, 152) newlayer7.TrueColor = color Dim newlayer8 As AcadLayer Set newlayer8 = ThisDrawing.LAYERS.Add("HOURDIS-PLAN") Call color.SetRGB(114, 76, 152) newlayer8.TrueColor = color newlayer8.Linetype = linetypePhantom2 Dim newlayer9 As AcadLayer Set newlayer9 = ThisDrawing.LAYERS.Add("PREDALLES-PLAN") Call color.SetRGB(114, 76, 152) newlayer9.TrueColor = color newlayer9.Linetype = linetypePhantom2 Dim newlayer10 As AcadLayer Set newlayer10 = ThisDrawing.LAYERS.Add("MAC-COUPE") Call color.SetRGB(152, 114, 76) newlayer10.TrueColor = color Dim newlayer11 As AcadLayer Set newlayer11 = ThisDrawing.LAYERS.Add("MAC-VU") Call color.SetRGB(255, 255, 255) newlayer11.TrueColor = color Dim newlayer12 As AcadLayer Set newlayer12 = ThisDrawing.LAYERS.Add("MAC-CACHE") Call color.SetRGB(255, 0, 0) newlayer12.TrueColor = color newlayer12.Linetype = linetypeHidden Dim newlayer13 As AcadLayer Set newlayer13 = ThisDrawing.LAYERS.Add("METAL-COUPE") Call color.SetRGB(255, 127, 159) newlayer13.TrueColor = color Dim newlayer14 As AcadLayer Set newlayer14 = ThisDrawing.LAYERS.Add("METAL-VU") Call color.SetRGB(255, 0, 0) newlayer14.TrueColor = color Dim newlayer15 As AcadLayer Set newlayer15 = ThisDrawing.LAYERS.Add("METAL-CACHE") Call color.SetRGB(255, 127, 0) newlayer15.TrueColor = color newlayer15.Linetype = linetypeHidden Dim newlayer16 As AcadLayer Set newlayer16 = ThisDrawing.LAYERS.Add("AXES") Call color.SetRGB(255, 255, 255) newlayer16.TrueColor = color newlayer16.Linetype = linetypeCenter2 Dim newlayer17 As AcadLayer Set newlayer17 = ThisDrawing.LAYERS.Add("NUM-ELEMENT") Call color.SetRGB(255, 0, 0) newlayer17.TrueColor = color Dim newlayer18 As AcadLayer Set newlayer18 = ThisDrawing.LAYERS.Add("NUM-AXES") Call color.SetRGB(255, 255, 255) newlayer18.TrueColor = color Dim newlayer19 As AcadLayer Set newlayer19 = ThisDrawing.LAYERS.Add("TITRES") Call color.SetRGB(255, 255, 0) newlayer19.TrueColor = color Dim newlayer20 As AcadLayer Set newlayer20 = ThisDrawing.LAYERS.Add("PERCEMENTS") Call color.SetRGB(152, 76, 76) newlayer20.TrueColor = color Dim newlayer21 As AcadLayer Set newlayer21 = ThisDrawing.LAYERS.Add("CADRES") Call color.SetRGB(255, 255, 255) newlayer21.TrueColor = color Dim newlayer22 As AcadLayer Set newlayer22 = ThisDrawing.LAYERS.Add("CARTOUCHE") Call color.SetRGB(255, 255, 255) newlayer22.TrueColor = color Dim newlayer23 As AcadLayer Set newlayer23 = ThisDrawing.LAYERS.Add("TEXTES") Call color.SetRGB(0, 255, 255) newlayer23.TrueColor = color Dim newlayer24 As AcadLayer Set newlayer24 = ThisDrawing.LAYERS.Add("HACH-BETON-CSP") Call color.SetRGB(76, 152, 152) newlayer24.TrueColor = color Dim newlayer25 As AcadLayer Set newlayer25 = ThisDrawing.LAYERS.Add("HACH-BETON-PLAN") Call color.SetRGB(214, 214, 214) newlayer25.TrueColor = color Dim newlayer26 As AcadLayer Set newlayer26 = ThisDrawing.LAYERS.Add("HACH-BETON-PREF") Call color.SetRGB(114, 76, 152) newlayer26.TrueColor = color Dim newlayer27 As AcadLayer Set newlayer27 = ThisDrawing.LAYERS.Add("HACH-MAC") Call color.SetRGB(255, 127, 127) newlayer27.TrueColor = color Dim newlayer28 As AcadLayer Set newlayer28 = ThisDrawing.LAYERS.Add("HACH-DIVERS") Call color.SetRGB(255, 255, 255) newlayer28.TrueColor = color Dim newlayer29 As AcadLayer Set newlayer29 = ThisDrawing.LAYERS.Add("COTES-AXES-100") Call color.SetRGB(255, 255, 255) newlayer29.TrueColor = color Dim newlayer30 As AcadLayer Set newlayer30 = ThisDrawing.LAYERS.Add("COTES-AXES-50") Call color.SetRGB(255, 255, 255) newlayer30.TrueColor = color Dim newlayer31 As AcadLayer Set newlayer31 = ThisDrawing.LAYERS.Add("COTES-AXES-25") Call color.SetRGB(255, 255, 255) newlayer31.TrueColor = color Dim newlayer32 As AcadLayer Set newlayer32 = ThisDrawing.LAYERS.Add("COTES-AXES-20") Call color.SetRGB(255, 255, 255) newlayer32.TrueColor = color Dim newlayer33 As AcadLayer Set newlayer33 = ThisDrawing.LAYERS.Add("COTES-100") Call color.SetRGB(255, 255, 255) newlayer33.TrueColor = color Dim newlayer34 As AcadLayer Set newlayer34 = ThisDrawing.LAYERS.Add("COTES-50") Call color.SetRGB(255, 255, 255) newlayer34.TrueColor = color Dim newlayer35 As AcadLayer Set newlayer35 = ThisDrawing.LAYERS.Add("COTES-25") Call color.SetRGB(255, 255, 255) newlayer35.TrueColor = color Dim newlayer36 As AcadLayer Set newlayer36 = ThisDrawing.LAYERS.Add("COTES-20") Call color.SetRGB(255, 255, 255) newlayer36.TrueColor = color Dim newlayer37 As AcadLayer Set newlayer37 = ThisDrawing.LAYERS.Add("COTES-10") Call color.SetRGB(255, 255, 255) newlayer37.TrueColor = color Dim newlayer38 As AcadLayer Set newlayer38 = ThisDrawing.LAYERS.Add("DIVERS") Call color.SetRGB(255, 255, 255) newlayer38.TrueColor = color Dim newlayer39 As AcadLayer Set newlayer39 = ThisDrawing.LAYERS.Add("VPORT") Call color.SetRGB(255, 127, 0) newlayer39.TrueColor = color newlayer39.Plottable = False Dim newlayer40 As AcadLayer Set newlayer40 = ThisDrawing.LAYERS.Add("CONSTRUCTION") Call color.SetRGB(91, 91, 91) newlayer40.TrueColor = color newlayer40.Plottable = False Dim newlayer41 As AcadLayer Set newlayer41 = ThisDrawing.LAYERS.Add("METRE") Call color.SetRGB(255, 127, 0) newlayer41.TrueColor = color newlayer41.Plottable = False End Sub Et je t'assure, il fonctionne sur plusieur pc mais uniquement dans des dessins vierge

Bonjours, J'ai besoin d'un coup de main car je ne trouve pas dans l'aide de autocad commen inserer des dimstyle et des textstyle avec leur propriete. J'ai trouver comment ajouter different textstyle et dimstyle mais pour leur propeiéta du genre taille des fleche, taille du texte, etc... Merci d'avance.

Sechanbask, Peus-tu me dire pourquoi quand je charge mes layers via ma macro et que je veus imprimer (normalement en noir avec mon fichier .ctb) le preview qui normalement devrais etre noir, ben est en couleur?

Merci gille, ça marche super

Bonjours a tous, j'aimerais savoir si c'est possible de créer en VBA une routine me permettant de cliquer sur un bloc dans mon dessin et d'en ouvrir le fichier source? Je m'explique, j'ai un prog qui se greffe a autocad pour sortir mes indices de barre. Seulement quand je sort des barre avec des forme bizarre, le bloc qu'il créé ne me conviends pas, donc je dois le modifier, le seul hic c'est qu'il porte un nom pas possible du genre "s_AAR@MBR@EED@ID.dwg". Et donc ce que je veus faire c'est cliquer sur ce bloc et qu'il me l'ouvre automatiquement dans AUTOCAD.

Je travail avec AUTOCAD 2004

J'ai tester ton code, mais ce n'est pas vraiment ce que je cherche. En fait, je te donne d'autre indications: J'ai une élévation de poutre par exemple et je dois dessiner des polyline en forme de U ou de L suivant les instructions de l'ingénieur (ATTENTION, la forme de barre ne se limite pas au U ni au L) et cette barre dois se trouver a une distance du bord de ma poutre que je défini, elle doit avoir une épaisseur suivant son diametre (par exemple je veu un diametre 20 alors la polyline dois avoir 2 d'épaisseur) et enfin elle dois avoir un fillet que l'on appelle un rayon de courbure déterminer en fonction du diametre. En fait, je veu créer une feuille avec un menu déroulant qui me permetrai de selectioner le diametre (donc l'épaisseur de ma barre) et en fonction d'une certaine regle en armature pour le rayon de courbure (a savoir 5x le diametre) pouvoir faire la commande fillet. Et ensuite sur cette feuille serai ajouter un bouton me permettant de dessiner cette polyline. Et aussi un textebox qui me donnerai la distance pour décaler la barre du bord de ma poutre.

Pako, Chez moi, il m'indique une erreur a ce niveau vPointInsert = ThisDrawing.Utility.GetPoint(, "ENTRER LE POINT D'INSERTION")

oui, c'est bien une polyline avec demande utilisateur. En fait, je travail dans le dommaine des armatures. et ça me fait ?????????? de devoir faire plusieur commandes pour dessiner une barre avec plusieur plis (en polyline)