stephan35

Bonjour à tous, Je cherche un exemple vba qui pointe une base de données (le format m'importe peu, c'est la méthode qui m'interesse), donc acces ou dbase ou sql. Puis qui lit le contenu des données, tri requête etc ... Petite cerise sur le gateau .... si un acadien à cet exemple, a-t-il rencontrer un problème de conflit avec d'autres applications ? Très grand merci à celui qui me donne une piste VBA Ps: La solution lisp pose visiblement des problèmes de conflits d'accès.

à BRED Ben alors , on ne lit pas bien la question ? Question : Donc je relance le truc ! Y-a-t-il une solution pour se connecter aux bases de données avec VLISP (autre que ADOLISP) ? Merci !

Bonjour, Suite à mon echec avec adolisp (plantage récurrent d'autocad lors d'accès simultané à odbc), je cherche un moyen d'accèder aux bases de donnes *.mdb et *.dbf avec des commandes VLISP . Y a-til un tuto ? Quelqu'un peut-il me fournir un exemple ? Merci

Bonjour, De oli553 Facile, j'ai du bridé autocad à ouvrir un seul fichier à la fois à cause des traitement automatiques qui sont gérés par projet !, mais de toute façon le problème reste le même: [surligneur] En ouvrant une seule cession, autocad, via l'accès ADOLISP, accède à odbc et bloque tous les autres programme qui utilise le même driver ! [/surligneur] Ci-joint le module de connection : (if (null ADOMethod-Append) (cond ;; If we can find the library in the registry ... ((and (setq ADOLISP_ADODLLPath (vl-registry-read "HKEY_CLASSES_ROOT\\ADODB.Command\\CLSID" ) ) (setq ADOLISP_ADODLLPath (vl-registry-read (strcat "HKEY_CLASSES_ROOT\\CLSID\\" ADOLISP_ADODLLPath "\\InProcServer32" ) ) ) (findfile ADOLISP_ADODLLPath) ) ;; Import it (vlax-import-type-library :tlb-filename ADOLISP_ADODLLPath :methods-prefix "ADOMethod-" :properties-prefix "ADOProperty-" :constants-prefix "ADOConstant-" ) ) ;; Or if we can find it where we expect to find it ... ((setq ADOLISP_ADODLLPath (findfile (if (getenv "systemdrive") (strcat (getenv "systemdrive") "\\program files\\common files\\system\\ado\\msado15.dll" ) "c:\\program files\\common files\\system\\ado\\msado15.dll" ) ) ) ;; Import it (vlax-import-type-library :tlb-filename ADOLISP_ADODLLPath :methods-prefix "ADOMethod-" :properties-prefix "ADOProperty-" :constants-prefix "ADOConstant-" ) ) ;; Can't find the library, tell the user (T (alert (strcat "Cannot find\n\"" (if ADOLISP_ADODLLPath ADOLISP_ADODLLPath "msado15.dll" ) "\"" ) ) ) ) ) J'ai tenté une connection via la commande "connecbd", le problème est identique, Autocad demande, je le suppose , [surligneur]un accès exclusif à la base de donnée !!! [/surligneur] Le driver odbc utilisé est : Provider=MSDASQL;Driver={Microsoft dBase Driver (*.dbf)}; en utilisant le "do driver DBF" le problème reste identique ... Est-ce MSADO15.dll qui demande un accès exclusif ??? Merci pour vos réponses

Bonjour, De oli553 Facile, j'ai du bridé autocad à ouvrir un seul fichier à la fois à cause des traitement automatiques qui sont gérés par projet !, mais de toute façon le problème reste le même: [surligneur] En ouvrant une seule cession, autocad, via l'accès ADOLISP, accède à odbc et bloque tous les autres programme qui utilise le même driver ! [/surligneur] Ci-joint le module de connection : (if (null ADOMethod-Append) (cond ;; If we can find the library in the registry ... ((and (setq ADOLISP_ADODLLPath (vl-registry-read "HKEY_CLASSES_ROOT\\ADODB.Command\\CLSID" ) ) (setq ADOLISP_ADODLLPath (vl-registry-read (strcat "HKEY_CLASSES_ROOT\\CLSID\\" ADOLISP_ADODLLPath "\\InProcServer32" ) ) ) (findfile ADOLISP_ADODLLPath) ) ;; Import it (vlax-import-type-library :tlb-filename ADOLISP_ADODLLPath :methods-prefix "ADOMethod-" :properties-prefix "ADOProperty-" :constants-prefix "ADOConstant-" ) ) ;; Or if we can find it where we expect to find it ... ((setq ADOLISP_ADODLLPath (findfile (if (getenv "systemdrive") (strcat (getenv "systemdrive") "\\program files\\common files\\system\\ado\\msado15.dll" ) "c:\\program files\\common files\\system\\ado\\msado15.dll" ) ) ) ;; Import it (vlax-import-type-library :tlb-filename ADOLISP_ADODLLPath :methods-prefix "ADOMethod-" :properties-prefix "ADOProperty-" :constants-prefix "ADOConstant-" ) ) ;; Can't find the library, tell the user (T (alert (strcat "Cannot find\n\"" (if ADOLISP_ADODLLPath ADOLISP_ADODLLPath "msado15.dll" ) "\"" ) ) ) ) ) J'ai tenté une connection via la commande "connecbd", le problème est identique, Autocad demande, je le suppose , [surligneur]un accès exclusif à la base de donnée !!! [/surligneur] Le driver odbc utilisé est : Provider=MSDASQL;Driver={Microsoft dBase Driver (*.dbf)}; en utilisant le "do driver DBF" le problème reste identique ... Est-ce MSADO15.dll qui demande un accès exclusif ??? Merci pour vos réponses

Bonjour, Pour chaque commande traceur, il faut afficher au préalable la présentation à imprimer ? Je ne le vois pas ! Si tes présentation s'appellent "01" "02" "03" cela ne fonctionnera pas ! Il faut coder ton compteur sur le nombre de décimal affichier car inc = 0 puis 1 puis 2 etc Affiche sur ton ecran texte les nom des présentations que tu veux imprimer (pour debug) Je pense qu'avec ces indices tu devrais y arriver ... Bon courrage ;-)

Bonjour, Je cherche à résoudre un probleme de connection, en effet je ne peut pas ouvrir 2 sessions d'autocad en simultanée sans obtenir le message d'erreur suivant : Ma méthode de connection est la suivante : (setq ConnectString (strcat "Provider=MSDASQL;Driver={Microsoft dBase Driver (*.dbf)};DBQ=" $disque "\\" $Aff "\\" $Tranche "\\" )) (prompt (strcat "\n\nConnecting to the database using \n\"" ConnectString "\"" )) (if (not (setq ConnectionObject (ADOLISP_ConnectToDB ConnectString "" ""))) (progn(alert "\nConnection Impossible !")(ADOLISP_ErrorPrinter))(prompt " ok!")) Vraisemblablement, je ne peut ouvrir une connection driver dbf qu'une seule fois ! :( et ça me plante mes autres applicatifs qui utilise ce même driver. Merci de m'aiguiller ...

Bonjour, 1 - Précise l'environnement de travail pour que l'on puisse t'aider ... 2 - il y a pleins de raisons possible : 2 - a Tu as forcé les n° de bornes par rapport à celle qu"il t'avait proposé ? 2 - b Vérifie dans les méthodes les parametres des borniers 2 - c Regarde dans les parametres de ton editeur de bornier (renumerotation, insertion automatique de borne de réserve) 2 - d Etc ... Bon courrage ...

Bonjour, Je confirme l'explication de joffoon, petite précision , la commande cui accède directement à personnaliser, Le bouton nouvelle sert uniquement à creer de nouvelle commandes (ou macro) que tu identifie par l'ID exemple: MOI_effacer http://buchholz.s.free.fr/cui1.JPG Tu inserer ensuite cette commande partout ou tu le souhaite, menu déroulant ou pop etc, Attention : si tu remodifie cette commande, toutes les autres insertion utilisant la meme ID seront modifiée http://buchholz.s.free.fr/cui2.JPG Nota: pour les images des boutons, fait en sorte qu'il soit dans le path de recherche autocad ! http://buchholz.s.free.fr/cui3.JPG

Bonjour, Questions idiotes : - Une fois l'interface cadxp personnalisée, comment fait-on pour faire réapparaitre une fenetre cachée (ou supprimée )? - Le bouton sauvegarde dans les parametres météo ne sauvegarde pas (ville : rennes ?) Merci

Bonjour, voici la réponse d'AutoDesk : et Je pense qu'il faille peut-être se pencher sur la réponse : "Nous préconisons aujourd’hui de développer les nouveaux applicatifs dans un environnement .NET, C++ ou C#. " , et vous ? Merci

Bon, J'ai eu une réponse d'autodesk, j'attends son accord pour la diffuser .... :casstet:

Salut ! Visuellement ça correspond à quoi et, as-tu essayé de copier l'entité, et/ou tout du moins de l'identifier ? ??

Bonjour, j'aimerai être rassuré quand à la longévité des plateformes de développement actuel autocad, à savoir AutoLisp et VBA, qui serait, d'après certains internautes, en voie de garage (voir abandonnées). :present: Je n'arrive pas à avoir d'infos chez autodesk !... Etant donné la quantité d'applicatifs développés à ce jour, et mesurant à peine la difficulté et le temps de conversion sur une autre plateforme (C#, C++), pouvez-vous et avez-vous le droit de me répondre, ou tout du moins de me rassurer à ce sujet ? Merci ! Beaucoup !

Bonjours Breton, Je suis de rennes, J'ai connu autocad en 1988, Version 10 sur des 386, j'ai suivi les versions au fil du temps ... Je suis prestataire de service et J'utilise de temps en temps autocad dans le domaine électrotechnique quand les clients ne sont pas équipés de logiciels de CAO "digne de ce nom". J'utilise sporadiquement l'autolisp , et depuis 2 ans, je développe une pseudo interface CAO, pour un client qui ne veut pas changer de méthode de travail, donc c'est l'outil qui s'adapte au client ... A bientôt.

Pour cloturer ... Je n'ai pas encore tenter le setvar de patrick (cela devrait fonctionner). Le changement de palette fonctionne à merveille ... Cependant, si quelqu'un avait une idée pour selectionner un onglet précis dans la tablette, je serais heureux comme un roi ! :D et Merci à tous, PS : je reste en ligne

:mad2: Etrange autocad ... :mad2: erratum Visiblement, lorsque l'on fait le 1er changement, il faut quitter autocad, puis le relancer ? ou alors mes premiers programmes ne sont pas propres : (defun ptool ( $tool /) (vla-put-ToolPalettePath (vla-get-files (vla-get-preferences (vlax-get-acad-object))) (strcat $drive "ToolPalette/" $tool) ) (setq che (vla-get-toolpalettepath (vla-get-files (vla-get-preferences (vlax-get-acad-object))))) (print che) ) Voici le code qui marche ( :( ): (defun ptool2 ( $tool /) (command "_ToolPalettesClose") (command "*_toolpalettepath" (strcat $drive "ToolPalette\\" $tool) ) (command "_ToolPalettes") ) J'aurais préféré une solution plus "pro..." Avis au ammateurs ... Merci

Je doute de mes comptétences .... voici un article, simple, fournit par autodesk, http:// http://usa.autodesk.com/adsk/servlet/ps/item?siteID=123112&id=8768445&linkID=2475323 Cela ne fonctionne pas sur la 2006 ! (sur mon PC ) quelqu'un peu verifier ? Merci

Bien, j'ai opté pour la solution du répertoire de pointage, la variable se met bien à jour, mais pas la palette ! (defun etool (/) (setq che (vla-get-toolpalettepath (vla-get-files (vla-get-preferences (vlax-get-acad-object))))) (if (vl-string-search ";" che) (setq che (substr che 1 (vl-string-search ";" che))) ) (print che) ) (defun ptool ( $tool /) (vla-put-ToolPalettePath (vla-get-files (vla-get-preferences (vlax-get-acad-object))) (strcat $drive "ToolPalette/" $tool) ) (setq che (vla-get-toolpalettepath (vla-get-files (vla-get-preferences (vlax-get-acad-object))))) (print che) ) Une idée, :( merci

Merci , J'ai peur que ces exemples ne s'adresses qu'au barres d'outils(_toolbar) et non pas aux palettes, il faudrait dans ce cas trouver comment atteindre les palettes d'outils (_toolpalettes) . (setq menus (vla-get-menugroups (vlax-get-acad-object))) (setq menu (vla-item menus "ACAD")) (setq tbs (vla-get-toolbars menu)) (setq tb (vla-item tbs "WORKSPACES"));;use a toolbar that is visible & not docked (setq top (vla-get-top tb) left (vla-get-left tb)) (princ (strcat (itoa left) " - " (itoa top))) (vla-put-top tb (+ top 100)) ;;+ is down, - is up (vla-put-left tb (- left 100)) (setq top (vla-get-top tb) left (vla-get-left tb)) (princ (strcat (itoa left) " - " (itoa top))) Je tente et je répondes de nouveau ... Cool de faire parler autocad ! :thumbup: et en français ? ... Merci et a+

Bonjour, IGE-XAO avait ou a un contrat de diffusion des différents environnements clients automobile, PSA, Michelin, Renault , etc Rapproche toi de ton distributeur IGE pour l'obtenir (service payant) ou de ton client directement ? Effectivement certains site automobiles son passé sur SEE, peut-être est-ce des site pilotes pour le futur ? De mon point de vue, et dans l'état actuel de SEE, je ne pense pas que ce soit l'outils adéquat pour traiter des affaires d'automatismes complexe et je dirais même inconcevable psychologiquement à cause de la lenteur extrèmement pénible et de ses plantages à répétition :mad2: ... ou il faudra attendre quelques années ;) . Xelec reste le produit incontestable pour l'automobile, mais d'après mes sources son développement est abandonné ... (à verifier auprès d'IGE-XAO). A suivre avec patiente ... A +

Merci pour ta 1ère réponse :) Etant donné qu'a partir d'autocad 2008 il n'y aura plus de menu écran !, Je souhaite trouver une solution de substitution qui ne perturbe pas nos 30 utilisateurs ... Qui vont passer d'un autoCad 14 vers un autocad 2006 d'ici quelques mois ... Bref, la manip consisterait à recreer des pseudo menu ecran, chaque page menu_screen serait remplacée par un onglet , Activer au bon moment, puis cacher lors des fin de commandes. Les pages écran servent principalement à répondre à des options lors des executions lisp. (aspect convivialité non négligeable). Sachant que les boites de dialogue sont lourdingue à gérer en Lisp :mad2: , et ne maitrisant pas du tout le vba, vais-je trouver mon bonheur ??? :casstet: AVANT http://buchholz.s.free.fr/menu_screen.JPG APRES http://buchholz.s.free.fr/a2006.JPG [surligneur] -----------------------------------------------------------------------------------------------------------------------------------------------------------------[/surligneur] Peux-tu me fowarder des exemples de sendkey avec les _toolpalettes ? Merci pour ton aide

Bonjour, Je cherche désepérement une solution pour accèder aux palettes d'outils via LISP, VLISP ou VBA - Ajouter un onglet - Basculer dans les onglets - Modifications diverses (ajout d'item dans les onglets etc) Merci

Pour les futurs lecteurs: SeeElectrical = 10/10 en convivialité :) , 10/10 de rapidité sur des dossies < 30 folios :( , 60 Minutes de traitement, voir plus (exponentiel) sur des grands dossiers :mad: Eplan = 0/10 en convivialité , 10/10 en productivité , 0/10 en paramétrage Xelec = 0/10 en convivialié , 10/10 en productivité , 0/10 en paramétrage (lourdingue) Faites votre choix !