formula1

merci rebcao c'est exactement ce que je cherchait mais je l'ai testée et il veut que je trace des ligne, pourquoi???

Didier, c'est bien une solution lisp que je cherche. ce que je voudrais, c'est que la routine me permette d'hachurer mes objets et de mettre en arriere plan mes hachure. Je m'explique, la routine m'obligerais a utilisé par exemple le layer hach ensuite de m'obliger à utiliser le pattern par exemple solid et puis de demander à l'utilisateur de faire pick point afin d'achurer un ou plusieur élément et enfin de metre automatiquement l'hachure en arriere plan grace à la commande drauworder.

non, car je suis avec autocad 2004 anglais et puis les palette me donnes une hachure mais pas dans le layers qui convien et ne me la met pas automatiquement en arriere plan

Bonjours a tous, Je cherche à faire des hachures automatiques sans passer par la boite de dialogue d'autocad. Je m'explique; je veus mettre une hachure de type solid à l'aide de pickpoint dans un layers définit (et non current) et ensuite le mettre automatiquement en arriere plan. J'espère etre claire et remercie d'avance toute les personnes qui m'aurons aider.

ben, je voudrais faire, en lisp ou vba, une routine qui me chargerais mes différents style de cotes que j'utilise afin de devoir éviter d'aller sur différent plans les chercher

Voici un aperçu de ce que tu peus aussi faire (defun c:laya () (command "layer" "n" "BETON-CSP-COUPE" "c" "2" "BETON-CSP-COUPE" "l" "continuous" "BETON-CSP-COUPE" "lw" "0.5" "BETON-CSP-COUPE" "") );defun laya ATTENTION, ce lisp marche sur des version anglaise de autocad, il faut traduire les commandes pour les versions fr (defun c:nom de la commande () (command "layer" "n" "nom du layer" "c" "2" "nom du layer" "l" "continuous" "nom du layer" "lw" "0.5" "nom du layer" "") );defun nom de la commande

Je relance mon sujet. J'ai vraiment besoin d'un coup de main si possible en VBA mais si lisp aussi

merci, mais j'avais mis le sujet étant résolu car j'avais trouvé

Bonjours, j'ai un fichier lisp qui me charge mes layers et j'aimerais donner des épaisseur de lign a mes layers mais je ne sais pas ou et quoi mettre, pourriez-vous m'aidé? Voici un exemple du code que j'ai : (defun c:laya () (command "layer" "n" "BETON-CSP-COUPE" "c" "2" "BETON-CSP-COUPE" "l" "continuous" "BETON-CSP-COUPE" "") );defun laya

Voilà, j'ai un bloc avec certain attributs (NUMPLAN, TITPLAN, INDICE...) qui se trouvera sur tous mes fichier DWG (dans le model space) et je voudrais que en cliquant sur 1 bouton, la routine m'ouvre un fichier que je lui donne et ouvre tous les dwg qui se trouve dedant afin d'extraire sur tous les dwg le bloc en question et en face une liste de plan dans un tableau excell.

non, pas encore car je ne sais pas encore comment dessiner un polyligne en lui demandant de selectionner les différent point (variant car c'est l'utilisateur qui dois cliquer sur ces points)

J'ai déjà regarder dans l'aide de autocad, j'ai bien trouver 2 ou 3 truc mais je ne sais pas comment je dois compiler les codes (niveau débutant oblige). Ce que je demande, c'est un petit coup de main pour un début de code et je ferrai le reste. Merci d'avance

Ce que je veus pouvoir faire, c'est de créer plusieur style de cote avec des taille de texte differrente, des échelle différente etc....

Un grand merci a toi, ton code m'a beaucoup aider. Il n'étais pas entièrement juste pour mon code, mais je l'ai adapter, ça donne ceci: Dim newlayer1 As AcadLayer Set newlayer1 = ThisDrawing.LAYERS.Add("BETON-CSP-CACHE") On Error Resume Next For Each entry In ThisDrawing.ModelSpace entry.color = acRed Next entry newlayer1.color = acRed newlayer1.Linetype = linetypeHidden

A mon avis, ce doit etre une histoire de variante mais je ne suis pas sur.

Bizarre que ça ne marche pas, car chez moi ça fonctionne en tout cas sous autocad 2004 Voici le bon bout de code Dim newlayer25 As AcadLayer Set newlayer25 = ThisDrawing.LAYERS.Add("HACH-BETON-PLAN") Dim color As AcadAcCmColor Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16") Call color.SetRGB(214, 214, 214) newlayer25.TrueColor = color

Comment faire pour avoir les couleur de l'index au lieu du RGB

Ce que je veus faire, c'est une fois cliquer sur les 2 points, il demande a l'utilisateur de définir une hauteur et une fois cette hauteur, il dessine un rectangle.

Bonjours a tous, J'aimerais faire une routine en VBA qui me ferrais des élévations de poutres, de voiles et de colonnes automatiques. Je m'explique j'ai un plan de structure en béton (en 2D) et j'aimerais que la routine me face mes élévation suivant les point que j'aurais cliquer sur ce plan (l'élévation se mets parrallelement au point cliquer et a une certaine distance. J'espere etre claire. Si c'est un voile, la routine doit me permettre de demander si il y a des percements (c'est aussi valable pour les poutres) Merci d'avance pour votre aide.

Merci pour ce renseignement, j'ai fait comme tu as dit, j'ai supprimmer le message

Un grand merci SECHANBASK

Mon probleme est de tracer une polyline suivant des point donné et de luis faire faire un offset et lui donner une épaisseur suivant le choix de l'utilisateur (combobox)

Ayant eu plusieur messages en meme temps, je me permet de mettre mon adresse mail pour, si vous le voulez, m'envoyer soit des message et/ou des routines exemples. Merci de votre compréhension. PS : Patrick_35, sache que je lit tous mes message, mais j'en reçoi plusieur en 1 seule fois et donc en générale je réponds une seule fois voir 2 fois si nécessaire et parfois un message n'a pas été répondus car au momment de taper ma réponse, je ne vais pas forcément plus bas pour relire les nouveaux messages, donc je m'escuse si vous voyer des réponses a d'autre message mais pas au votre.

lili2006, j'ai poster un message plus haut disant que les fichier lisp ne marchait pas sur tous les ordi mi a ma disposition, d'ou la programmation en VBA. J'espère que tu comprends maintenant pourquoi le fichier de patrick_35 ne m'interresse pas pour le moment.

Donc voilà le fichier cartouche http://www.cijoint.fr/cij79226835731159.zip