eagle4

Bonjour ludwig et merci de me répondre. Problème : - je n'ai pas le droit de toucher au programme lisp qui définit la variable "nomdelavariable" - Sous AUTOCAD je vois la valeur de la variable en lançant la commande au clavier : "!nomdelavariable" - sous vb je lance la commande :"ThisDrawing.SendCommand "( setvar users5 nomdelavariable)" & vbCr - sous AUTOCAD je lance au clavier : !users5 et le résultat est : users5=nomdelavariable. Jusque là tout va bien. - Sous vb je lance la commande : rep = ThisDrawing.GetVariable ("users5") et comme réponse j'obtiens: rep=vide Alors que si j'écris en vb : 'ThisDrawing.SetVariable "users5", "TOTO" - sous AUTOCAD j'ai : users5 vide - sous vb avec la commande : rep = ThisDrawing.GetVariable ("users5"), j'obtiens : rep="TOTO" Je ne comprend plus rien, j'ai l'impression que je ne valorise pas la même variable "users5" suivant que je suis en lisp ou en vb Merci de m'aider car j'y perd mon latin (et mes cheveux) Cordialement Eagle4

Bonjour à tous J'utilise un programme lisp développé par une autre personne et je n'ai pas le droit de modifier ce programme. Ce programme Lisp crée une variable qui me serait utile dans mon programme en VBA. Comment puis-je récupérer cette variable ?. (La variable du programme lisp n'est pas une des variables "User"). En envoyant la commande "!nomdelavariable" au clavier je vois la valeur de celle-ci mais je ne peu pas la récuperer. j'ai écris en vb : 'ThisDrawing.SendCommand "(setq users5 nomdelavariable)" & vbCr puis : rep = ThisDrawing.GetVariable("users5") résultat : rep="" Alors que dans AUTOCAD la ligne de commande : "!users5 me retourne la valeur de la variable. Je ne comprend pas pourquoi la commande ThisDrawing.GetVariable("users5") me retourne une valeur vide. Merci de vos réponses @+ eagle4[Edité le 21/1/2006 par eagle4] [Edité le 21/1/2006 par eagle4]

Merci nazemrap c'est bien cette dll qu'il fallait charger @+ eagle4

Bonjour à tous J'ai le Pb suivant : si j'essaie d'inserer une UserForm dans mon programme, j'ai l'alarme suivante : "la classe n'est pas enregistrée. J'ai donc été dans le menu "outils/références" et là je n'ai pas trouvé "Microsoft form2". Comment puis-je faire pour le retrouver ? Merci de vos réponses eagle4

Salut PAKO Merci c'est juste ce qu'il me faut @+ Eagle4

Salut Pako et merci de ta réponse. Mais ce n'est pas tout à fait ce que je recherche car si je comprend bien le sub que tu m'as donné positionne la couleur et le type de ligne du plan "0" , mais le dessin par lui même conserve ses caractéristiques du départ. J'arrive correctement à passer dans le calque "0" mais je n'arrive pas à avoir la couleur "Ducalque" et ce qui est plus gênent pour moi, le type de ligne "Ducalque". Merci de ton aide Eagle4

Bonsoir à tous. Quelqu'un peut-il m'aider, voici mon problème : Situation de départ, j'ai le calque "0" qui a comme couleur "BLANC" et comme type de ligne "CONTINU". En ouvrant un dessin , il arrive que celui-ci soit sous un calque "X" avec comme couleur "Y" par exemple et un type de ligne "Z". Comment puis-je faire en VBA pour passer en calque "0" avec la couleur "DuCalque" et le type de ligne "DuCalque" ? Merci de vos réponses Eagle4

Salut Voici une solution : Des_sans_ext.= Microsoft.VisualBasic.Left(Des_avec_ext, (Len(Des_avec_ext)-4)) Cordialement eagle4

Salut Patrick J'utilise la méthode suivante dans mes programmes : J’utilise une variable d'environnement « Support » déclarée dans "propriétés système / variable d'environnement " et ayant comme valeur le chemin complet des fichiers à ouvrir. Puis dans mon programme VBA je remplace le chemin par %Support% Je n'ai trouvé que cette façon pour ne pas citer à chaque fois le chemin. Cordialement eagle4

Salut le doc Il me semble qu'il est impossible d'effacer un block avec une simple commande "delete". Il faut pour cela "décomposer" ton block avant de la supprimer. @+ Eagle4

Salut à tous Voici un nouveau Casse-tête que Microsoft et Autodesk m'ont offert pour Noël : Je dois, par programme analyser les dimensions d'un dessin. Si celui-ci est plus haut que long => rotation de 90°. Ensuite je choisis une configuration de traceur (fichier PC3) puis je lance l'impression dans un fichier. Si j'exécute mon programme en "Pas à pas détaillé", tout se passe bien mais si je l'exécute en mode normal, la rotation n'est pas systématique et ne se produit qu'une fois sur 5 ou 6 essais. Est-ce la bûche ou le chapon qui me brouille l'esprit ? Je rame comme un malade et je n'avance pas, je ne trouve pas de solution, Serge, dans un post précédant disais que c'étais un problème de compatibilité entre Autocad version 2002, et Visual Basic.Net en version 2003, mais dans ce cas pourquoi le prog tourne en pas à pas ? @+ Eagle4 PS : Goûtez les huîtres de ma petite ville de MEZE, sur la rive de l'étang de THAU, elles sont excellentes. Bonnes fêtes à tous.

Salut Serge Alors là je comprend pourquoi je galère depuis 4 jours (et presque 4 nuits) pour faire tourner un prog écrit en VB.net avec une plate-forme autocad 2002. J'arrive à lancer autocad, ouvrir un dessin, l'imprimer, gérer la config. des traceurs, charger les fichiers pc3 et cmd,. Je n'arrive pas à gérer les jeux de sélection. :( Mais peut-être que le Père Noël sera généreux et qu'il va me porter un beau TOTOCAD tout neuf en version 2005. ;) Bon réveillon à tous @+ Eagle4 [Edité le 25/12/2004 par eagle4]

Salut Didier Je suis dans le midi de la France et je ne suis pas insomniaque, mais simplement passionné par la programmation, surtout sur Autocad. Quand j'ai un problème je ne vois pas le temps passé. @+ Eagle4 ;)

Salut Didier Visual Basic.net coûte 122€ TTC (sur le site LDLC.com) Je programmais jusqu’à maintenant en VB6 et en VBA et ce n’est pas facile de passer à VB.NET. L’aide est assez déconcertante au début mais avec un petit effort on s’habitue. Par contre pas d’aide pour les commandes interprétables par autocad, de plus les progs. écrits en VB6 sont difficilement transportables en VB.NET. C’est plus rapide de les réécrire. L’interface de développement et le debug. sont super. De toute façon comme il n’y a plus de licence VB6 en vente, si tu veux rester dans la légalité tu es obligé d’y passer. Comme en VBA tu as toutes les commandes d’autocad de dispo. mais l’avantage de VB6 ou VB.NET c’est que tu disposes de plus de commandes qu’en VBA et tu manipules plus facilement les fichiers indépendants d’autocad. Bonnes fêtes et à bientôt. Eagles4

Salut à tous Ouf j'ai trouvé mais c'est une galère !!!!!! Voici ce qu'il faut faire : Dans le menu "Projet" de VB.net : "ajouter une reférence" Une fenêtre s'ouvre, choisir l'onglet "COM" chercher et sélectionner : "AUTOCAD 2000 Object Library" Déclaration des variables ..... Public AcadApp As AutoCAD.AcadApplication ..... Public AcadDoc As AutoCAD.AcadDocument Pour Lancer AUTOCAD ..... On Error Resume Next ...... AcadApp = GetObject(, "AutoCAD.Application") ..... If Err.Number Then .......... Err.Clear() .......... AcadApp = CreateObject("AutoCAD.Application") .......... If Err.Number Then ............... MsgBox(Err.Description) ............... Exit Sub .......... End If ..... End If ..... AcadDoc = AcadApp.ActiveDocument 'représente le dessin courant Voila j'espère que cela pourra aider les programmeurs qui veulent passer de VB6 à VB.NET car les licences de VB6 ne sont plus en vente. Bon Prog à tous et passer de bonnes fêtes. @+ Eagle4

Bonjour à tous Quelqu'un sait-il comment lancer Autocad depuis un prog écrit en Visual Basic.net ? (comment déclarer les variables de type : Public acadApp As AcadApplication par exemple) Merci de vos réponses Eagle4

Salut à tous Après un long week-end studieux (dico Anglais/Français ouvert et aide d’Autocad) et l'aide de PAKO, j’ai trouvé la solution à mes problèmes. Si cela peut aider quelqu’un en voici le résultat : Dim PlotConfigurations As AcadLayouts Dim PlotConfiguration As AcadLayout Public acadDoc As AcadDocument Set PlotConfigurations = acadDoc.Layouts Set PlotConfiguration = acadDoc.ActiveLayout ' Changer la configuration du traceur For Each PlotConfiguration In PlotConfigurations .....PlotConfiguration.RefreshPlotDeviceInfo .....PlotConfiguration.ConfigName = ‘nom du traceur (fichier.pc3) .....PlotConfiguration.StandardScale = ‘la variable ac1_1 pour échelle 1 par exemple .....PlotConfiguration.PlotType = ‘l’aire du tracé ( la variable acExtents donne « Etendue » par exemple .....PlotConfiguration.StyleSheet = ‘la table de style de tracé (fichier.ctb) .....PlotConfiguration.RefreshPlotDeviceInfo Next Voici donc le résumé de mon prog. en VB6 Cordialement Eagle4 [Edité le 20/12/2004 par eagle4]

Salut Pako Merci pour tous ces renseignements, cela fonctionne. Juste une dernière question, est-il possible d'imposer un fichier "ctb" , l'échelle de traçage et l'aire de tracé ?. l'aire et l'echelle sont-elles des variables ? Merci encore de ton aide. eagle4

Salut Patrick Je n'ai rien constaté mais je travaille surtout en VB6 et non en VBA et j'utilise souvant "ajouter un espion" pour débuguer mes prog. @+ Eagle4 ;) [Edité le 18/12/2004 par eagle4]

Bonjour Pako J'ai bien essayé de modifier ce bout de programme en remplaçant "layouts" par "PlotConfigurations" mais cela ne marche pas. Peux-tu, si cela ne te dérange pas m'en dire un peu plus car je suis vraiment planté et mon anglais n'est pas assez bon pour comprendre complètement les explications de l'aide. D’avance merci. Eagle4

Bonsoir Pako L'exemple que tu me donnes s'aplique aux onglets présentation mais peut-on faire le même chose avec l'onglet objet ? Merci de vos réponses Eagle4

Salut pako Merci beaucoup, c'est un peu plus clair maintenant Joyeuses fêtes à toi aussi Eagle4

Salut à tous Je suis toujours sur la configuration des traçage avec VBA ou VB6. Quelle galère !!!!!!!!!! Voici ma questtion : comment charge-t-on les fichiers de config PC3 depuis VBA ou VB6 ? Merci de vos réponses Eagle4 ;)

Salut Serge et micc Le "ELSE" ne manque pas : je teste si AUTOCAD est ouvert par getobject si il y a erreur j'efface celle-ci ET j'ouvre AUTOCAD : createobject. Si il y a de nouveau erreur alors j'imprime l'erreur et je sort du Sub Pour la déclaration d'acadApp, tu as raison il vaut mien la rendre "Public" --------------------------------------------------------------------- Pour micc Voici le code que j'utilise : Public acadApp As AcadApplication Public acadDoc As AcadDocument On Error Resume Next Set acadApp = GetObject(, "AutoCAD.Application") If Err Then Err.Clear Set acadApp = CreateObject("AutoCAD.Application") If Err Then MsgBox Err.Description Exit Sub End If End If acadDoc.Open courant ' ouvre le dessin dont le nom est contenu dans la variable "courant" acadDoc.Application.ZoomExtents Eagle4

Salut Serge Merci de ta réponse. eagle4