dr.loveless

Salut, je cherche le code me permettant d'avoir le choix dans la ligne de commande entre la selection d'un objet ou le choix d'un texte ( me servant de menu). J'ai l'habitude (certainement un tords) de me servior de la fonction INITGET, mais cell-ci ne fonctione pas dans ce cas, comment puis-je m'y prendre?? (initget " Configuration Decalage Justification ") (setq p1 (car(entsel "\nChoisissez la cloison à moduler ou [Configurer/Justification/Decalage] : "))) Merci d'avance

Ëffectivement mes collègues n'ont pas installé le menu express, je vais donc suivre cette piste, merci.

Merci quand même !! :(

Salut, voilà je fais un fichier .vlx qui je le dois dire s'avère tres pratique, mais j'ai déconné dans l'archivage de mes programmes, j'ai perdu ceux qui se trouve dans un vlx ( j'ai effacé les lsp, les fas et le prj volontairement en pensant les avoir enregistré ailleur, enfin bref). je voulais juste savoir si on pouvais récuperer sous format lisp (donc compréhensible) un fichier vlx?? J'y crois pas, mais on ne sait jamais. Salutations.

Salut Ayant déjà fais qq prog liant autocad à Excel, je ne pense pas que celà soit très difficile. Je verrais demain, si mon patron me le permet, comment on peut faire! salutations !!

Ben j'en sais trop rien, je suis pas un spécialiste moi, mais quand je la met pas, çà me met un message d'erreur. je pense qu'elle permet de diffuser le message sur la ligne de commande, en remplacer le <%1> par la valeur de la varibale qui suit, dans le cas présent "latancien" !! Si il existe une autre méthode je suis à votre écoute !!

Ben je veux rien faire, je veux juste pouvoir lancer mes prog depuis le PC de mon collègue, mais celui-ci ne reconnait pas le code acet-str-format, qui effectivement n'apparait pas l'aide. la ligne qui ne fonctionne pas sous sa version est la suivante, mais elle figure dans TOUS mes programme : (princ (acet-str-format "\n Entrez la longueur des axes de trames ( en mm ) <%1> " latancien )) Voilà

Salut Je comprends pas, sur le pc de mon boulot, j'ai fais des programmes en lisp, en utilisant entre autre le fonction : acet-str-format (je crois que cest çà) He bien sur mon poste aucun souci, mais sur le poste de mon collège, des que le programme arrive sur le code acet-str-format, çà plante. Alors j'ai vérifier sur mon poste, pensez donc la peur que j'ai eu !! Tous mes progs se servent de ce code...... Et bien aucun problèeme sur mon poste, donc j'ai ouvert Visual Lisp et le code acet-str-format est bien en bleu, donc reconnu par Visual lisp, tandis que sur le poste de mon collège, il apparait en noir et les autres code sont bien en bleu, donc Visual Lisp ne le reconnait pas et bute à chaque fois qu'il arrive sur cette ligne de commande. Bref, c'est bizarre, d'autant plus que nous disposons tous les deux de la version 2004 d'autocad, existe-t-il plusieurs version de Visual Lisp fourni avec Autocad 2004?? Quelqu'un aurait-il déjà rencontré le même problème ?? Bizarre, vous avez dit bizarre !!!

OK, voilà la solution acadDoc.sendcommand "filedia" & vbCr & "0" & vbCr ' désactive les boites de dialogues acadDoc.sendcommand "_menuload" & vbCr & "a:\mecanobloc.mnu" & vbCr 'charge le menu acadDoc.sendcommand "filedia" & vbCr & "1" & vbCr ' active les boites de dialogues Par contre le messages liés au chargement des mnu s'affichent toujours et je voudrais bien qu'on ne le voit plus et que la réponse soit systématiquement "oui", mais ce n'est pas indispensable. A ce propos je pense réalisé un tutorial de A à Z concernant la création de menu, le chargement des lisp s'y attachat et des icones, et l'installation du groupe de menus crée. J'essayerai de faire çà dans le week end. A plus

Bonjour, je cherche le moyen de charger un menu à partir d'un programme fais sous visual basic 6, et non sous VBA. Si qq à une idée, je suis preneur. Merci. Le code à l'heure actuelle : Public Sub Command1_Click() On Error Resume Next ' Connect to the AutoCAD application Dim acadApp As Object Dim groupe As Object Set acadApp = GetObject _ (, "AutoCAD.Application.16") If Err Then Err.Clear Set acadApp = CreateObject _ ("AutoCAD.Application.16") If Err Then MsgBox Err.Description Exit Sub End If End If ' Connect to the AutoCAD drawing Dim acadDoc As Object Set acadDoc = acadApp.Thisdrawing acadApp.Visible = true Set groupe = acadDoc.AcadMenuGroups.Load ("A:\monfinchier.mnu") Me.Hide End Sub

C'est encore moi, rectificatif concernant mon post précédent. Je pense qu'il faut mettre dans le fichier mnl aussi les chargement autolisp que les chargement dvb. En revanche pour eviter le message stipulant que le fichier dvb est déjà chargé, il faudrait trouver un code permettant de "tester" si le fichier est déjà chargé. Si celui-ci est chargé, on passe, si il n'est pas chargé, on le charge, et ce code devra être en Visual Lisp. Si quelqu'un ce sent de le faire, ce serait cool, perso je n'ai aucune idée du code. Merci et bon Week end .............miam miam.........

Bon c'est encore moi, finalement c'est OK pour les fichiers .mnl, le pb c'est que j'avais pour habitude de déclarer une fonction du type "defun c:xxx" et dans le cas présent il ne faut pas. Pour ceux qui n'ont pas suivi, il suffit de créer un fichier portane le même nom que le fichier mnu, mais avec l'extension "mnl". Dans ce fichier il suffit de taper le code : (load "nom du fichier.lsp") ; pour tous les lisp à charger. De ce fait, les lisps seront systématiquement chargés. De la même manière il est possible de charger les fichier vba en tapant: (command "chargvba" "nom du fichier.dvb") et ils seront chargés automatiquement. Le problème dans ce cas c'est que le fichier est rechargé sur chaque plan, d'ou l'apparation d'un message d'erreur. Comment y remedier ?? ... en ne mettant pas le code relatif au VBA dans ce fichier, mais où le mettre alors??? Mystère et boule de gomme. Je cherche, je cherche ..... A plus

Bon pour l'instant: - j'ai créer un menu ".mnu" avec dedans le menu, les barres d'outils et les boutons, le tout configurer nickel chrome (rien que çà c'est déjà super pour novice comme moi). - j'ai regrouper toutes mes icones dans un fichier dll du même nom que le fichier mnu et dans le même repertoire, et çà aussi c'est tres pratique, çà évite de trimbaler sans cesse toutes les icones .bmp . Pour çà, j'ai fais appel à VB6. - j'ai également ajouter des lignes de commandes qui chargent automatiquement à chaque ouverture de plan les fichiers lisp, dans le fichier "a c a d 2004doc.lsp". C'est pratique mais le probleme c'est que si copie ce fichier sur les autres poste de mon entreprise, çà marche, mais dans l'hyptohèse ou un de mes collègue à déjà modifié ce fichier pour sa propre utilisation, ses chargement seront éffacés. Donc je recherche une autre méthode, et celle du fichier ".mnl" paraitre être la meilleure. Je me penche donc sur çà dès à présent. Merci à BONUSCAD, je vais allez voir l'aide, mais elle est en Anglais alors je sens que je vais lutter, mais on a rien sans rien. Enfin bref Merci à tous le monde, je suis heureux de voir que ce sujet interresse pas mal de monde. Egalement faut que je vois pour le chargement automatique des fichiers VBA, là çà bloque. MERCi MERCI MERCI

OK, je suis TRES interesser par cette méthode. En effet, celà me permettrait de faire un setup de mon mnu en indiquant un repertoire. Mais avant celà faut tester, et j'ai beau écrire un fichier mnl ayant le même nom que mon mnu, celui-ci ne s'execute pas. Comment faire??

Merci, c'est carrément pratique.

OK, merci à tout le monde! Pour résumer: pour charger automatiquement des fichiers Lisp, j'ai écrit la ligne suivant : (load "C:/Documents and Settings/dumand/Mes documents/françois/Expressrapide") dans le fichier acad2004.lsp ; c'est le fichier qui s'execute automatiquement à chaque nouveau dessin. En revanche, impossible de trouver la commande pour lancer automatiquement un fichier dvb.

OK et comment on fais un fichier autoextractible ???

Mefci beaucoup pour toutes vos infos. Didier, mon aide est en Anglais et moi pas comprendre. Merci

Alors je détaille: J'ai d'une part tout les programmes visual lisp et VBA dans un repertoire, et d'un autre côté toutes les icones dans un autre repertoire. Moi pas savoir quoi être un ".mns" moi stupide!!

Re bonjour, Voilà, j'ai un probleme. J'ai créer un bon paquets de petites applications lisp pour mon boulot. Associé à ces applications, j'ai créer des barres d'outils avec icones personnalisé. Comment puis-je faire pour mettre en place cette barre d'outil sur les 43 autres PC de l'entreprise sans avoir à chaque fois à recréer la barre d'outil, à y attacher les boutons, puis à appliquer les icones pour chaque bouton et enfin enregistrer le nom du code pour le lancement. En fait dès que j'arrive sur un poste, je dois tout recommencer. Peut-on faire autrement! Sinon j'abandonne !!! Merci

Merci, mais j'ai beau essayer, çà ne marche pas!

Il suffit d'inclure la ligne (load suivi du nom complet du fichier) dans acad2004doc.lsp. Voilà

Merci,.... mais çà je sais faire. Je cherche une autre manière de faire, il me semble que c'est en passant par le fichier AutoCAD.lsp.

Salut c'est ecnore moi!! Je voulais savoir si il existait un moyen de charger automatiquement tous les programmes LIPS et VBA, sans passer par "Outil" "AUTOLISP" "CHARGER" puis de mettre les programmes dans "Charger au démarrage". Je voudrais donc savoir si on peut charger automatiquement sans avoir la possibilité pour l'utilisateur de base d'enlever les chargements automatiques. Merci

Merci, j'ai un peu galéré, mais c'est de ma faute, faut que j'apprenne à lire, j'avais pas vu l'histoire des double "\", donc forcément çà foirait. Merci mille fois!