formula1

pixel61, tu vas au début de la routine et tu remplace le texte HA par celui que tu veus remplacer et le texte %%C par le nouveau texte. Exemple : tu veus remplacer bonjour par bonsoir. Tu remplace le texte HA de la routine par bonjours et tu remplace le texte %%C de la routine par bonsoir

Si je veus lui donner une épaisseur? Ce serais bien d'y ajouter une boite de dialogue pour l'épaisseur et pour l'offset. Mais le probleme, est que je n'y connai pas grand chose en fichier DCL

Bonjours à tous, Est-il possible de faire une routine qui extrait certain attribut et qui les envoi vers excell? je m'explique, je voudrais extraire certains attributs de mes dessins (ex: REP, MUL, NBR, DIA, A à J ect...) vers un tableau excell que j'ai créer. Pourriez-vous m'aider?

Bonjours à tous, Je cherche à faire une routine en VBA qui pourrais sortir mes repère de barres ainsi que leur formes (sous forme de blocs avec attribut) et une incrémentation automatique. Je m'explique, j'ai une polyline de forme en "L" avec les plis suivant A=50 et B=500. Je cherche à faire en sorte que quand je lance la routine, il me demande de cliquer sur la barre (qui est dans le layer "ACIER") et ensuite me demande une direction pour le leader et une direction pour le bloc du repere et une direction pour le schéma de ma barre. Attention, je cherche à garder des liens entre les blocs et les attributs. Je débute dans le VBA. Pourriez-vous m'aider?

merci CHRISFS, je vais regarder cela à mon aise affin de mieux la digérée.

Merci gile, je vais potassé tous ça.

Bonjours à tous le monde. Voilà, je cherche à tracer une polyline en VBA Comment dois-je faire? Ensuite, j'aimerai lui faire un offset d'une valeur que l'utilisateur choisira. Pourriez-vous m'aider SVP?

Bonjours à tous le monde. Voilà, je cherche à tracer une polyline en lisp. Comment dois-je faire? Ensuite, j'aimerai lui faire un offset d'une valeur que l'utilisateur choisira. Pourriez-vous m'aider SVP?

Bonjours à tous, Je cherche à faire un fichier lisp qui pourrais sortir mes repère de barres ainsi que leur formes (sous forme de blocs avec attribut) et une incrémentation automatique. Je m'explique, j'ai une polyline de forme en "L" avec les plis suivant A=50 et B=500. Je cherche à faire en sorte que quand je lance le lisp, il me demande de cliquer sur la barre (qui est dans le layer "ACIER") et ensuite me demande une direction pour le leader et une direction pour le bloc du repere et une direction pour le schéma de ma barre. Comment puis-je faire? Pourriez-vous m'aider? [Edité le 18/4/2009 par formula1]

Un grand merci à toi gile, ça marche au poil

Gile, il y aurrait-il moyen de limiter les changement uniquement au modelspace?

Super, ça marche très bien. Un grand merci à toi Gile

Gile, la commande "_FIND" fonctionne sur tous mes attributs. Pour ce qui est des attribut constant, je vais regarder cela

Bonjours a tous, j'ai reessayer le lisp de gile et il ne marche tjs pas pour les attributs. Est-il possible que c'est du fait que j'ai une version full et en anglais?

C'est bien cela, mais chez moi, il ne les change pas (AUTOCAD 2004)

Gile, merci pour le lisp mais il ne fonctionne pas pour les attribut. Il ne me met pas de message d'erreur et il ne change pas mes %%C de mes attributs

Gile, ça fonctionne bien pour du texte, mtext mais comment dois-je faire pour que ça fonctionne aussi pour les attribut?

Super merci gile cela fonctionne maintenant.

gile, j'ai tester ton lisp et il me remplace mes %%C par AAC au lieu de HA. Pourrais-tu me dire ou ça cloche?

Merci gile, je vais le tester

merci, et en lisp ça donne quoi?

Bonjours @ tous, J'aimerais faire un bouton avec comme macro la commande FIND et qu'il remplace tous les %%C par des HA. Comment dois-je procédé, j'ai essayeé ceci mais il m'ouvre la boite de dialogue de la commande FIND et s'arrete : ^C^C_find;F(%%C);R(HA);RA; Merci d'avance a tous ceux qui m'aurons aider

Tu vas dans Tools==>Macro==>Visual Basic Editor Ensuite tu fais un clik droit dans la première fenetre en haut a gauche et tu clik sur Insert==>UserForm puis tu lui ajoute un bouton de commande et tu met le code dans le bouton de commande Ensuite tu fais un clik droit dans la première fenetre en haut a gauche et tu clik sur Insert==>Module et tu y met le code suivant Option Explicit Sub OUTILS() Load FrmOutils FrmOutils.Show End Sub Et enfin tu enregistre ton projet

nagaouss, voici un exemple de mon code : Private Sub CmdOut100_Click() Dim BlocObj As AcadBlockReference Dim pins As Variant FrmOutils.Hide pins = ThisDrawing.Utility.GetPoint(, "Veuillez choisir un point : ") Set BlocObj = ThisDrawing.ModelSpace.InsertBlock(pins, "OUTILS100.dwg", 1#, 1#, 1#, 0) BlocObj.Update 'on explose les blocs pour que le texte des cotations soient de meme taille BlocObj.Explode 'il faut l'effacer car sinon on a 2 blocs superposés BlocObj.Delete 'il faut l'effacer car sinon on a 2 blocs superposés Unload FrmOutils End Sub

un grand merci a toi gile, le lisp fonctionne a merveille, mais j'ai un probleme avec le draworder