jfcantin197733

merci Mais dans le gestionnaire VBA je ne trouve pas l'espion. J'utilise l'espion en VB6 ou en VB.Net mais en VBA je ne le trouve pas. J'utilise les points d'arrêts mais ou se cache l'espion ? merci

Merci beaucoup Je me suis mal exprimé... Je voulais dire par attributs, grosseur de la ligne, couleur, etc.. merci encore

Bonjour à tous J'utilise le code suivant pour me créer une polyligne afin de calculer la superficie d'un polygone. Dim PointChoisi As Variant Dim X_test As Double, Y_test As Double Dim xy_test As Variant Dim lignecommande As String PointChoisi = ThisDrawing.Utility.GetPoint(, "Cliquez un point intérieur: ") X_test = PointChoisi(0) Y_test = PointChoisi(1) xy_test = X_test & "," & Y_test lignecommande = "_-boundary" & vbCr & xy_test & vbCr & vbCr ThisDrawing.SendCommand lignecommande Existe-t-il un moyen pour faire dessiner cette polyligne de couleur rouge et d'augmenter la grosseur de la ligne. Comment je peux récupérer les informations de la polyligne nouvellement créé afin de modifier ces attributs ? merci de votre aide

bonjour merci de ton aide... Mon problème venait de la sécurité de macros... J'ai réussi.... ALT-F8 - Option et j'ai jouer avec les cases à cocher et tout fonctionne merci quand même P.S. Moi je programme plus en VB.Net et donc je trouve VBA un peu plus complexe. Mais c'est un langage quand même facile.

Hummm je ne crois pas car ca me dit rien... Voici ce que j'ai fais J'ai copier mes fichier Projet.dvb et mon fichier Menu (RenoJ.mns) dans le dossier Support d'Autocad. J'ai été dans le menu Tools – Load Application et été chercher le fichier Projet.dvb. J'ai cliqué ensuite sur le bouton Contents et ensuite sur la nouvelle fenêtre, j'ai appuyé sur le bouton ADD afin que mon fichier macro se connect automatiquement au démarage d'Autocad. Les étapes pour le menu.... je crois pas que le problème ne vient pas de là. Quelle étape me manque-t-il ? merci de ton aide

Bonjour Je me suis fais un projet.dvb (fichier Macro) avec 5 boutons. Tous fonctionnent correctement. Je me suis fais aussi un menu qui appelle mes différents macros. J'ai essayé d'amener mon projet.dvb sur un autre ordinateur qui a exactement la même version d'autocad. J'ai mis mon fichier dans le VBA Manager, amené mon menu et peut importe le bouton que je clique, ca ne fonctionne pas. J'ai donc été dans le Visual Basic Editor pour voir d'ou venait l'erreur. Rien ne fonctionne. Pourquoi mon fichier macro ne fonctionne pas sur les autres ordis de ma firme et fonctionne tres bien sur mon ordinateur. Qu'est ce que j'oublie de faire ? Je dois importer d'autres trucs afin de tous faire fonctionner ? Merci de votre aide

Bonjour J'utilise la commande SendCommand afin d'appeler la commande Boundary. Par exemple, j'ai 4 lignes qui forme un polygone et je veux calculer la superficie de ce dernier. Avec la commande Boundary, je peux me créer une polyligne suivant les limtes de mon polygone et ensuite je peux mesurer la superfice de ce polygone. Par la suite j'utilise la commande GetEntity afin de sélectionner la polyligne. Mon problème est qu'il lit ma commande SendCommand mais va aussitôt à la prochaine ligne de code (GetEntity) Voici mon code ThisDrawing.SendCommand "-boundary" & vbCr ThisDrawing.Utility.GetEntity ReturnObj1, BasePnt, "Selectionnez l'object pour calculer la Superfice" Set Entite(0) = ReturnObj1 ..... Comment faire, avec VBA, pour faire fonctionner correctement la commande boundary afin de créer un polygone Merci d'avance

Rebonjour Hein ? mais je ne suis pas francais de France et non je suis de l'autre bord de la rivière que l'on nomme, il me semble, l'Atlantique. :P je suis québécois J'ai tellement aucune idéée pour faire cela.... je vais fouiller un peu mais dison que le Lisp est un code que je déteste et j'ai beaucoup de difficulté à le gérer.. merci encore [Edité le 1/6/2010 par jfcantin197733]

Bonjour, encore moi Je veux utiliser la command SendCommand en VBA mais ca ne fonctionne pas. Quand je programmais en VB6 j'utilisais cette commande qui fonctionnait très bien ActiveDocument.SendCommand "-boundary" & vbCr J'ai modifié cette ligne pour la faire fonctionner en VBA pour mon fichier .DVB ThisDrawing.SendCommand "-boundary" & vbCr Le problème est qu'il inscirt la commande (Specify internal point or [Advanced options]:) mais va ensuite à la prochaine ligne de mon code qui est; ThisDrawing.Utility.GetEntity ReturnObj1, BasePnt, "Selectionnez l'object pour calculer la Superfice" Bref pourquoi il ne prend pas encharge ma commande SendCommand. Qu'est ce qu'il me manque pour qu'il attendre que je clique au centre d'un polygone pour créer une polyligne? merci encore une fois de votre aide.

re pour une raison que j'ignore j'ai femré le fichier et réouvert et hop ca fonctionne..... bisare.. Mais l'important c'est que ca fonctionne merci beaucoup à tous, c'est tres apprécié

Rebonjour Je travail en arpentage et je suis géographe avec mention en système géographique (SIG) J'avais effectivement regardé la version dans le à propos mais de ce que j'avais saisi c'est que j'ai la version 2002 avec un ajout "Map" Je croyais que Autocad avec la version 2002 et avais des ajouts (Autodesk Map, Civil, etc etc) En plus je coyais que le Autodesk Map avait un ajout de menu Map. Bref j'avais le 2002 et +++ Mais j'ai bien ris de moi lorsque tu m'as dit que je n'avais pas la version 2002.... Je ferai attention la prochaine fois :P ****************************************************************** Je reviens au sujet de départ.... J'ai ajouter mon fichier DVB en allant dans Tools - Load Application. J'ai fais cela il y a deux jours. Pour une raison que j'ignore, aujourd'hui mon fichier DVB n'est plus "Loader" Ma question. Comment faire activer mon fichier DVB toujours. merci de ton aide

merci le problème était là... curiosité pourquoi la base n'est pas toujours à 0 et pourquoi j'avais une base à -95585.69,-39572.04,0.00 ? Humm j'en profite étant donné que c'est la premiere fois que ca fonctionne..... Mon fichier est placé au bon endroit mais je suis incapable de "snappé" les élément ? comment fait-on pour rendre le fichier en référence "snapable" (je veux cliquer au milieu d'une ligne par exemple). Meric d'avance

non ma base = -95585.69,-39572.04,0.00 si je mets ma bse à 0,0 je peux faire ca ? merci

rebonjour lili2006 ma version est en anglais et moi quand je travail je me mets toujours en UCS World sur le bouton je voie une petite planète... Le SCG (_w) équivaut au UCS World ??? Si oui c'est ce que j'ai fait si non... hummm peux-tu me dire a quoi ressemble l'icone merci de ton aide

Bonjour BonusCad J'ai tapé insbase dans mon fichier que je veux mettre en référence et les chiffre n'étaient pas pareil. J'ai donc tapé base afoin de mettre les chiffre identique a mon fichier principal. J'ai sauvegradeé et fermer mon fichier. Je suis retourné dans mon fichier principale et le fichier se positionne toujours au même endroit, soit au mauvais endroit. Et lili2006, oui ils sont en UCS (Unite Coordinate System - Systeme coordonnée géoréférencé) J'attends de vos nouvelles merci d'avance de votre aide

Bonjour J'essais d'utiliser la fonction XRef pour positionner un fichier en référence. Pour une raison que j'ignore, lorsque j'amène mon fichier en référence, il ne se positionne pas au bon endroit. Mon fichier principal a un système de coordonnée géodésique (UTM) ansi que mon fichier que je veux mettre en référence. Mon fichier que je veux mettre en référence est en World UCD ainsi que mon fichier principale. Lorsque je tape XREF dans la ligne de commande, j'attache mon fichier et je coche Retain Path, mon reference Type est a Attachment et les 3 checkbox ne sont pas coché. je gfais OK et le fichier se positionne 1 km plus loin.... Comment faire pour régler mon problème.... merci de votre aide

<acronym class=dict title= effectivement ca fais bisare... Pour l'explication de ma farce... Je ne connais pas beaucoup Autocad et mon boss nous dit qu'on utilise la version 2002 mais à l'avenuir je mentioonerai que j'utilise Autodesk 2002 J'ai pris en note.. héhéhéhé :P

Je ne sais pas comment faire cela et ma question est que mon porjet n'est pas chargé au démarage d'autocad. Donc non il n'est pas chargé. ^C^C-vbarun;Insert_VBA Non donc je vais le mettre dans C:\Program Files\Autodesk Map 6\Support J'attends de tes nouvelles... merci

Bonjour Jeudi passé j'ai ajouté un projet dans mon VBA Manager. Aujourd'hui, j'essais un bouton, qui est associé à mon projet, il ne fonctionne pas. J'ouvre le VBA Manager et mon projet est absent. Existe-t-il un facon pour que mon projet soit toujours actif (visible dans la VBA Manager). Dans mon VBA Manager j'ai toujours un pojet AutoCAD.dvb actif mais mon projet (Projet.dvb) est absent. J'utilise la version 2002 d'Autocad merci de votre aide

J'avais trouvé cette ligne de code mais ca ne fonctionnais pas.... Je viens de découvrir mon problème. Mon autocad est en anglais et les commandes sont différentes... -vbarun au lieu de -exectvba merci de ton aide [Edité le 20/5/2010 par jfcantin197733]

Bonjour je me suis créé un projet .dvb ou j'aurai plusieur macro. Comment est-il possible, à partir d'un bouton d'Autocad, d'appeler un macro provenant de mon projet. merci à vous

J'ai trouvé par la gestion d'erreur merci quand même

Bonjour à tous J'écris ce "Post" en me demandant si je n'avais pas déja eu une réponse... enfin si oui je m'en excuse. J'ai réussi à utiliser le IDE d'Autocad 2002 afin de coder en VBA. Mon code fonctionne très bien mais je ne suis pas capable d'arrêter mon macro. Je me suis fait un bouton TEST afin d'incrémenter du texte Exemple je clique sur un texte qui vaut 232-1 j'accepte la sélection et si je clique à un endroit donné un nouveau texte s'inscirt et il est incrémenté. Donc le texte affiché vaut 232-2 et si je reclique, un nouveau texte est afficher et vaut 232-3. Mon problème, si j'appuis sur ESC je ne réussis pas à sortir du macro. Existe-til un bout de code qui détecte ce que l'utilisateur fais dans Autocad J'ai essayé ce bout de code mais ma form est à .Hide merci de votre aide Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyEscape Then MsgBox ("Allo") End If End Sub

héhéhé ok faison comme si j'avais rien dit :P merci encore une fois.... ce fut très apprécié

<acronym class=dict title=... c'est plus que le gars attentionné sur les mots est vraiment "mauvais" en angalis et je veux être certain.... Merci de ton aide :)