jfcantin197733

Bonjour J'ai fait un post il y a de cela quelques jours mais je n'ai eu aucune réponse.. alors vois une partie du code.... qui ne fonctionne pas. Mon code doit arriver à connaitre les deux extrémités de plusieurs segments En d'autres mots, si un utilisateur trace une ligne droite qui contient 3 segments. Je dois récupérer les deux extrémité de cette droite qui contient 3 segments. Si par exemple le segments est tracé à l'horizonatle, je veux récupérer la coordonnée extreme Ouest et la coordonnée à l'extrémité Est. Dans mon code je sélectionne les trois lignes et je mets dans un tableau les coordonnées de chaque lignes sélectionnées. For Each AcadObj In ssetobj Select Case AcadObj.ObjectName Case "AcDbLine" 'Ligne If Compteur = 0 Then ReDim Tableau_Somme_Ligne(Compteur) Else ReDim Preserve Tableau_Somme_Ligne(Compteur) End If varStart = AcadObj.StartPoint varEnd = AcadObj.EndPoint Tableau_Somme_Ligne(Compteur) = varStart(0) & ";" & varStart(1) & "-" & varEnd(0) & ";" & varEnd(1) Somme_Lignes = AcadObj.Length + Somme_Lignes Compteur = Compteur + 1 Ensuite j'avais pensé de "Spliter" mon tableau afin de récurérer la premiere coordonnée du tableau (qui selon moi devrait etre la premiere ligne sélectionne) et de prendre la derniere ligne de mon tableau pour la coordonnées de la derniere ligne sélectionnée. Dim Tableau_Split() As String Dim Tableau_Split2() As String Tableau_Split = Split(Tableau_Somme_Ligne(0), "-") MsgBox (Tableau_Split(0) & " " & Tableau_Split(1)) Tableau_Split2 = Split(Tableau_Split(0), ";") dblXs = Tableau_Split2(0) dblYs = Tableau_Split2(1) Tableau_Split = Split(Tableau_Somme_Ligne(Compteur - 1)) Le problème, lors de la sélection des lignes, il mélange l'orde de la sélection. La premiere ligne qu'il met dans le tableau est la ligne au centre. Cette ligne a été la deuxieme ligne que j'ai sélectionné. Comment est-il possible d'arriver à mes fins ? Mon but est de connaitre le centre de ces trois lignes. merci de votre aide

Bonjour J'essais de travailler avec les fonctions XREF (celle-ci fonctionne très bien) et la fonction REFEDIT qui bug. je tappe refedit et je sélectionne ensuite le fichier en référence que je veux apporter une modification et une fenêtre apparaît (Reference Edit). La case Enable unique layer and symbol names est coché et ensuite j'appuis sur la touche OK Dans la ligne de commande je voie apparaître "Select nested objetcs" Je sélectionne donc les éléments que je veux modifier. J'appuis sur Enter et j'ai ce message d'erreur Select nested objects: 5 items selected Errors found in references to other objects: ** Object reference missing: AcDbLayerTableRecord, to AcDbPlaceHolder. *Cancel* Pourquoi j'ai cette erreur ,??? J'ai été dans mon fichier en référencé pour faire un purge et faire une sauvegarde et cela n'a rien changé. merci de votre aide

Merci beaucoup

Bonjour J'utilise des fichiers avec xref(fichier en référence) Le proiblème est que si je "load" un fichier dans xref et qu'une personne du bureau ouvre le fichier que j'ai en référence, le fichier sera en lecture seul. Existe-t-il une façon que si je mets un fichier en référencre (avec xref) mon fichier en référence ne devienne pas en lecture seul pour qu'un utilisateur puisse modifier le fichier ? Je sais qu'avec microstation (ver. 1998) les fichiers en références peuvent etre modifié par un autre utilisateur mais avec autocad 2002, je ne trouve pas comment. merci de votre aide

Bonjour à tous Je cherche un moyen simple de centrer mon texte lorsque je sélectionne plus d'une ligne. Par exemple je sélectionne deux lignes (qui forments une ligne droite) et j'aimerais que le texte se place au centre de ces deux lignes. Je me suis trouvé une facon de faire en jouant avec les coordonnées des lignes sélectionnées mais c'est vraiment pas "clean" comme code. Je cherche dans l'aide de VBA et je trouve rien qui pourrait faire que mon texte ce centre automatiquement. Ma question existe-il une routine simple afin d'arriver à cela ? Voici la routine que je pense faire. Mais j'ai l'impression de tourner autour en rond... Étape 1: Créer un tableau des coordonnées des lignes X1,Y1-X2,Y2 Étape 2: Compter le nombre de segments Étape 3: Récupérer la premiere coordonnée du tableau et la derniere coordonnée du tableau Étape 4: Calculer la distance entre ces coordonnées Étape 5 Trouver le Centre Étape 6: Dessiner la mesure au centre des segments sélectionnés. merci de votre aide[Edité le 24/8/2010 par jfcantin197733] [Edité le 24/8/2010 par jfcantin197733]

Effectivement tu as raison pour le bug.. désolé... Mais je n'avais meme pas cherché car quand j'ai écris la ligne de code; textObj.style j'avais mis une minuscule (lettre "s" du mot style) et en appuyant sur la touche Enter le "s" minuscule s'est changé en "S" majuscule. J'étais donc certain que la fonction était OK... Je ferai attention les prochaines fois.. merci [Edité le 9/8/2010 par jfcantin197733]

Bonjour J'utilise un code tres simple pour faire écrite une mesure dans mon fichier autocad 2002. Je veux imposer un style (existant dans mon fichier) et lorsque j'arrive sur la ligne (dans le debug) ca bug... Je ne comprend vraiment pas pourquoi ca bug... :( Si vous voyez d'oû peut venir le problème. Merci textObj.Delete Set textObj = ActiveDocument.ModelSpace.AddText(Mesure_Finale, insertionPoint, Hauteur) textObj.Layer = Layer_Mesure textObj.Linetype = "ByLayer" textObj.Lineweight = acLnWtByLayer textObj.Alignment = acAlignmentTopCenter textObj.TextAlignmentPoint = alignmentPoint textObj.Rotation = Angle - Pi textObj.Color = acByLayer textObj.Style = 2 'Attention ici le 2 est entre guillemet et c'est sur cette ligne de code que ca bug textObj.Update

Bonjour Je savais que c'était normal que la ligne disparaisse étant donné le getpoint. Mais si on compare mon code avec le bouton de la ligne d'Autocad, on peux entrer une valeur sans que la ligne s'efface avec le bouton de la ligne d'Autocad. Je me demande comment est-il possible d'arriver à cela avec VBA.... Si c'est possible merci

Bonjour J'allais vous montrer ma solution mais j'ai vu que j'avais une réponse... Si je compare mon code avec le tien, ta facon de faire est tres élégante.... Merci mille fois c'est tres apprécié. Une derniere chose... mais celle ci est peux lié a du Lisp... Lorsque je clique sur le bouton pour tracer une ligne (bouton d'Autocad), ca me demande de cliquer un point. Apres avoir cliqué un point je vois toujours la ligne pour l'allignement de la futur ligne, même si j'entre une distance. Avec mon code, aussitot que je suis rendu au GetPoint, la ligne s'efface, je rentre ma distance, j'appuis sur Enter et la ligne réaparaît. Existe-t-il une facon de ne jamais faire disparaite cette ligne pour que mon bouton soit identique à celui du bouton de la ligne d'Autocad ? merci de ton aide

merci de ton aide Le problème est que le code que j'ai mis en exemple ne fonctionne pas. Ma variable est un Variant Dim ReturnString_Distance As Variant lineObj.Length = ReturnString_Distance = ERREUR lorsque je démarre le code Ca me dit: Compile error: Can't assign to read-only property Humm comment puis-je régler ce problème J'ai trouvé que Utility.PolarPoint pourrait me donner un coup de main mais je veux que l'angle soit défini par la ligne qui est active lorsque le getpoint est faite. Comment récupérer l'angle. merci d'avance de ton aide, c'est tres apprécié. [Edité le 3/8/2010 par jfcantin197733]

Bonjour J'ai posté un message hier et je n'ai eu aucune réponse. Je crois ne pas avoir été assez précis dans ma question. Je veux coder le bouton qui permer de traqcer ligne en VBA pour Autocad 2002. Je ne comprend rien au Lisp (si ce bouton est codé en lisp). Mon but est que lorsque l'on pique le premier point, on a la possibilité d'entrer la longueur de la ligne. Je veux que la longueur soit entrée en pied et soit convertie en mètre. Je suis bloqué dans mon code pour lui kimposé une longeur à la ligne. Je suis capable de dessiner mon point avec deux points mais je ne trouve pas comment faire pour piquer deux point et lui imposer une longueur. Dim kwordList_Distance As String Dim basePnt As Variant Dim returnPnt As Variant Dim ReturnString_Distance As Variant basePnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ") ActiveDocument.Utility.InitializeUserInput 128, kwordList_Distance ReturnString_Distance = ActiveDocument.Utility.GetKeyword("Distance: ") If ReturnString_Distance <> "" Then ReturnString_Distance = ReturnString_Distance * 0.3048 returnPnt = ThisDrawing.Utility.GetPoint(basePnt, "Enter a point: ") End If Dim lineObj As AcadLine Set lineObj = ThisDrawing.ModelSpace.AddLine(basePnt, returnPnt) 'Ici je ne sais pas comment coder cette partie lineObj.Length = ReturnString_Distance merci de votre aide

Bonjour Je cherche un moyen pour dessiner une ligne en lui imposnat une longueur spécifique. Par exemple l'utilisateur pique un point (là où il veut débuter la ligne) Inscrit la distance voulu de la ligne et choisi une direction et la ligne se dessine. Voici le début de mon code en VBA Dim basePnt As Variant basePnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ") Premiere question: je veux que l'utilisatreur inscrive un longueur et la ligne mesurera la longuer inscrite par l'utilisateur. Comment imposer un longueur en VBA pour une ligne ? Deuxieme question: Comment est-il possible de dessiner une ligne avec l'alignement que l'utilisateur choisi. (Quand on fait GetPoint on voit une ligne dans Autocad et donc l'alignement de la futur ligne) ? Merci de votre aide c'est tres apprécié

effectivement avec la commande GetPoint la ligne apparait merci

merci beaucoup... ca fonctionne super bien.. A+

merci beaucoup... J'essais ca lundi

Bonjour Je veux faire dessiner, le long d'un arc, le Rayon et par dessus la distance de l'arc. J'ai réussi à faire dessiner le rayon le long de l'arc au centre de celle-ci. Maintent, je suis rendu a copier le rayon qui vient d'être dessiner et de copier celui-ci et de le déplacer et ensuite l'éditer. Je résussi à tout faire sauf a éditer le texte. Dans mon code, ma variable textObj est utilisée pour faire dessiner mon Rayon. Je veux copier cette valeur et la déplacer et enuite la réédité sans pour autant modifer mon rayon pour dessienr l'arc. Voici mon code Set textObj = ActiveDocument.ModelSpace.AddText(Mesure_FinaleRayon, insertionPoint, Hauteur) textObj.Layer = Layer_Mesure textObj.Linetype = "ByLayer" textObj.Lineweight = acLnWtByLayer textObj.Alignment = acAlignmentTopCenter textObj.TextAlignmentPoint = alignmentPoint textObj.Rotation = Angle textObj.Color = acByLayer textObj.Update 'textObj.Text = "A:9.57" 'Ici ca bug le reste est OK textObj.Copy Dim Rpoint1(0 To 2) As Double Dim Rpoint2(0 To 2) As Double point1(0) = 0: Rpoint1(1) = 0: Rpoint1(2) = 0 point2(0) = 2: Rpoint2(1) = 0: Rpoint2(2) = 0 textObj.Move point1, point2 Est ce que cela ce fait d'étiter un bout de texte que l'onvient de copier et de déplacer ? Merci de votre aide [Edité le 9/7/2010 par jfcantin197733]

merci je vais essayer ca... je vous redonne des nouvelles

bonjour comment réparer autocad 2002 ??? Réinstalation ??? merci

Rebonjour et bien j'ai installer ce matin le driver de ma souris (bien que ma souris fonctionne super bien partout sauf dans auticad) et je n'ai vu aucun changement. Enfin si quelqu'un pense a quelque chose, gênez-vous pas... merci d'avoir essayé :)

bonjour Si j'essais de mettre le SHORTCUTMENU à 27 ca me dit: J'ai réessayé de changer les valeur mais ca change rien. Mon SHORTCUTMENU = 3 et je n'ai aucun menu.... quoi que je fasse. A moins de n'avoir pas tout compris l'aide mémoire..... je ne sais plus quoi faire... merci de ton aide... c'est tres apprécié

Rebonjour Mon bouton de droit fonctione comme la touche Enter sauf que.... si je clique n'importe ou avec mon bouton de droit, aucun menu apparait. De plus, si je clique sur une ligne et ensuite à l'extrémité de celle-ci (sur le petit carré) et je clique avec mon bouton de droit de ma souris, j'ai pas de menu. Aussi si je clique n'importe ou dans mon dessin avec la touche Shift et mon bouton de droit de souris, j'ai pas de menu qui apparait. Je ne comprend vraiment pas pourquoi ca fais ca. À noter que ma souris fonctione super bien dans mes autres applications. merci de ton aide

bonjour SHORTCUTMENU = 3 merci

merci je vais essayer cela.... je vous redonne des nouvelles... A+

Bonjour Depuis jeudi passé la bouton droit de ma souris ne fonctionne plus uniquement dans autocad 2002. J'ai été dans les options d'autocad dans l'onglet User Preference et la configuration pour le bouton de droit (Right-Click Customization) et OK. D'ailleurs j'ai rien modifié dans ce menu. Comment est-il possible de faire fonctionner le bouton de droit dans autocad 2002. Sachant que tout allait bien il y a une semaine. Merci de votre aide P.S. Je n'ai rien modifier pour le bouton droit de ma souris amoins d'avoir fait quelque chose sans m'en rendre compte. Le seul truc que je modifie dans Autocad est un fichier de macro qui ne fait que déssiner des truc dans autocad. Je ne sais meme pas comment gérer la souris en VBA. merci

Bonjour Je travail avec Autocad 2002 (Autodesk Map). Je cherche a me faire un bouton qui fait a peut près pareil comme le bouton pour tracer une ligne. Mon but est de piquer un point de départ (facile) mais de voir la ligne que je vais dessiner. Je suis capable de dessiner une ligne en piquant deux points mais je ne vois pas la ligne que je vais dessiner apres avoir piqué mon premier point. J'ai besoin de voir la ligne car je veux utiliser le "Polar", voir ma ligne qui se "bloque" à tous les 90 degré par exemple. P.S. Si je ne suis pas assez précis dans ma question, svp laisser moi un message. merci de votre aide [Edité le 30/6/2010 par jfcantin197733]