Clément.a

ah j'en déduit que la fonction open creer le fichier quand il n'existe pas. y se créer ou ce fichier?

Comment fait alors pour creer un fichier .txt?

Je suis allé un peut trop vite, enfete il s'enregistre avec le fichier dwg sur lequel on l'a affecté. Du coup ma question c'est : Peut on faire pour qu'il ne soit pas attaché à un fichier et lisible depuis n'importe qu'elle DWG?

Vous savez ou se sauvegarde les Idatas, peut on choisir ou? J'ai l'impression que les idatas ce supprime après avoir quitté Autocad, y à t'il un moyen de les sauver? Merci

Je crois que j'ai ce qui me faut avec les Idata, j'ai pas encore tout compris mais je suis deçus( si vous avez des conseils...). Merci

C'est pas vraiment ça que je cherche à faire du moins dans ce que j'ai compris du lien. je me suis peu etre mal expliqué je pense, voila j'ai une boite de dialogue dans laquelle je renseigne plusieurs information indispensable pour pouvoir par la suite appliqué une routine. Or il est fort probable que j'ai à utiliser plusieur fois cette routine pour le même cas donc avec les même informations, j'aimerais donc pouvoir enregistrer ces infos dans un fichier que j'enregistrerais dans un répertoir et par la suite ouvrir ce répertoir pour ne pas à avoir à toute les resaisir. Donc y faudrait que je creer un fichier .txt je pense et que j'ecrive ce dont je veut. Merci

Ah merci, ça va beaucoup m'aider, c'est juste ce qui me faut. J'ai pas encore essayé mais ça va le faire. Merci encore. @+

Bonjour tout le monde, J'aimerais savoir si il est possible d'enregistrer les valeurs d'une variable sur un fichier externe de tels façon pour qu'on puisse les rouvrires 6 mois après et les réafecter à des variables. Merci.

Merci pour vos réponse c'est bon j'ai réussi à faire des essais simple et ça marche. En revanche j'ai un petit souci j'aimerai dans la liste du "foreach" : (foreach txt '( "exl : dialog {" " key = \"titre\";" " alignment = centered;" " is_cancel = true;" " allow_accept = true;" " width = 50;" " : list_box {label= \"Sélection\"; key=\"sel\"; height = 20; multiple_select=true;}" " spacer;" " : boxed_row {" " label = \"Gabarit\";" " : toggle {key = \"gab\";}" " : text {key = \"txt\"; width = 40;}" " : button {label = \"...\"; key = \"par\"; width = 2;}" " }" " spacer;" " ok_cancel;" "}" ) (write-line txt fil) ) Metre une variable genre comme ça (foreach txt '( "exl : dialog {" key_txt " alignment = centered;" " is_cancel = true;" " allow_accept = true;" " width = 50;" " : list_box {label= \"Sélection\"; key=\"sel\"; height = 20; multiple_select=true;}" " spacer;" " : boxed_row {" " label = \"Gabarit\";" " : toggle {key = \"gab\";}" " : text {key = \"txt\"; width = 40;}" " : button {label = \"...\"; key = \"par\"; width = 2;}" " }" " spacer;" " ok_cancel;" "}" ) (write-line txt fil) ) avec key_txt : (setq n_i "3")) (setq key_txt (strcat" key = \"Position " n_i "\";")) j'ai essayé mais j'ai pas trouvé mieux que de le faire séparément de la liste donc de réécrire un write-line de cette façon : (write-line key_txt fil) ce qui ne m'arrange pas trop par la suite. Donc si je pourai le metre directement dans la liste ça serait "magique" Merci beaucoup.

Bonjour à tous, J'ai déja aperçu plusieur fois qu'il était possible de créer une Boite de dialogue (un fichier *.DCL) depuis une routine Lisp. J'aurais besoin de savoir comment fait on pour ça, j'ai déja cheché sur le forum mais sans réponse bien clair (J'ai peut être loupé LA réponse j'ai vu ça mais j'ai pas vraiment tout suivi (que des ptits bout...) ) Voila ce que j'aimerais savoir faire depuis ma routine Lisp: - par qu'elle moyen créer-t-on la fichier *.DCL - Y à t'il un moyen particulier pour l'éditer (j'ai aperçus un truk du genre "write-lin"...)comment fonctionne t'il (--> ce moyen) - y à t'il une façon particulière pour chaque élément de les editer (genre edit_box, bouton) ou alors c'est le même format pour chaque qu'on remplace ensuite par les bon mot-code (key label etc). Voilou, qu'elle sont les fonctions et bout de codes pour pouvoir savoir faire ça? Merci pour vos réponses.

Réponse parfaite(juste les infos qui faut pour que je puisse avancer), c'est pile ce que je voulais faire. ça marche niquel! Merci à vous deux! Bonne Journée

Merci pour cette réponse. Bon j'ai pas tout suivi mais ça m'aide à construire mes idées.J 'ai au moin appris qu'avec le "set_tile" je pouvais changer le "edit_box" de mon choix (plutôt coul!) Du coup j'ai quelque question : -bon j'aime bien le principe du "boulot de pw_comifo" et "pw_est_reel" mais comment je fais: - Avec la fonction "numberp" pour vérifier si c'est bien un nombre je dois convertir la chaine de caractère donc y a plus d'interer parcque --> (atoi "kjh") renvoie 0 et (atoi "lk54") renvoie 54 donc sa me mène à rien! - du coup j'ai aucune idée pour "pw_off_all_but_current" désactivé ok mais sauvgarder chépa! et j'ai peur que ce soit un peu lourds de tout désactivé et de sauvgarder tant que la valeur n'est pas juste et après de tout remetre, moi juste afficher une alert pour dire que c'est pas bon effacé ce qu'on avait mis dans edit box avec set_tile "" et replacer le curseur dans cette edit box comme ça il régénère obligatoirement le test puisque qu'il se lance avec action_tile de l'edit_box. j'attend pas une réponse avec un code tout fait qui répond à ce que je demande mais ce qui pourais contribuer à y arriver (je suis étudiant j'ai le temps de cherché et d'apprendre la preuve il est déja tard ^^) Merci beaucoup

Bonjour à tous, J'ai une boite de dialogue, l'utilisateur dois rentré un nombre entier dans une "edit-box" et j'aimerais vérifier qu'il n'a pas fait autre chose! voici la définition de mon "edit_box" : :edit_box { key = "Nombre_place"; label="Nombre de place standard : "; value= ""; edit_width = 15; } et mon code Lisp pour tester cette valeur : (action_tile "Nombre_place" "(alert1)") (defun alert1 () (setq nbrplace (get_tile "Nombre_place")) (setq nbrplace (atoi nbrplace)) (cond (( zerop nbrplace) (alert "Entrer un nombre entier et différent de zéro !!") ) A partir de ce point mon code m'affiche bien le message d'erreur si c'est une chaine de caractère ou 0 mais pas si c'est un décimal. De plus après le message d'erreur j'aimerais éffacer le contenu qui ne correspond pas aux critères et que le curseur revienne dans cette "edit_box". je sais pas si c'est possible... Merci

Merci beaucoup pour vos réponse! C'était ça toute mes sous-routines étaient déclarées en global et non en local et certaine avec des nom identique suivant les routines donc forcément ça à vite amené un problème et des phénomènes bizzard. Merci patrick_35 je ne savais pas comment on faisait pour travailler en local maintenant ça va rendre les choses plus facile pour mes prochaines routines!! J'ai pris l'option de les renommer c'était plus simple pour corrigés et reprende mes Lisp mais dorénavant je commencerai juste du premier coup! Merci encore j'en apprend tout les jours grace à vous!

Bonjour à tous, J'ai un problème assez bizzard avec plusieur routine. Voila j'ai creer une nouvelle barre d'outils ou chaque bouton appel une routine LISP et la boite de dialogue DCL qui va avec. Jusque là rien de plus normal. Or quand j'utilise un bouton (le bouton 1), la boite de dialogue s'ouvre, mais quand je clique sur OK un message d'erreur intervient!! Ce message d'erreur c'est moi qui l'ai créer mais dans une autre routine affecté un autre bouton (le bouton 2) avec une autre boite de dialogue! Ce message d'erreur (pour la routine du bouton 2) consiste à nous avertir qu'on à pas coché un critère dans la boite de dialogue. Or avec la routine du bouton 1 ce critère n'existe pas; conclusion : il doit y avoir une interférance entre le la routine du bouton 1 et la routine du bouton 2! Comment faire ?? J'ai bien une idée du pourquoi, j'ai appelé des variables avec le même nom et des "defun" interne au routine aussi! J'aiemrai avoir vos avis avant de tout changer pour pas faire qqch pour rien et aussi parce que il y en à beaucoup (j'ai une dixaine de bouton). Merci de vos réponse!

Bonjour à tous, Est il possible de masquer un image dans une boite de dialogue de la même manière que l'on fait avec "mode_tile..." Si oui de qu'elle manière car je n'ai pas réussi? Merci de votre aide @+

je l'avais pas vu comme ça c'est en effet plus court merci et désolez pour la faute.

OK merci je savais pas tous ça!! Si j'ai besoin du cond car le nom du fichier est du genre VPM_PN20_DN200_VC (qui est apellé rname dans le code) et name c'est seulement VPM mais dans le code que j'ai ecrit je me suis trompé c'est pas tout a fait ça voila ce que sa donne : (defun wbk () (cond ((= name "VPM") (setq cheminint "K:\\AUTOCAD\\Tuyauterie\\VPM\\")) ((= name "VP" ) (setq cheminint "K:\\AUTOCAD\\Tuyauterie\\VP\\")) ((= name "VPD" ) (setq cheminint "K:\\AUTOCAD\\Tuyauterie\\VPD\\")) ((= name "VO" ) (setq cheminint "K:\\AUTOCAD\\Tuyauterie\\VO\\")) ((= name "VB" ) (setq cheminint "K:\\AUTOCAD\\Tuyauterie\\VB\\")) ) (setq chemin (strcat cheminint rname)) (command "_-insert" chemin (getpoint "\nDonné le point d'insertion : ") "" "" "" ) ) Du coup la variable chemin donne K:\\AUTOCAD\\Tuyauterie\\VPM\\VPM_PN20_DN200_VC si le nom du fichier name est VPM_PN20_DN200_VC. Voilou Merci beaucoup.

C bon j'ai trouvé y faut juste les doublé et sa marche Je pensais pas que même si les antislash apparaisait doublé quand on renvoyais la variable autocad allais retrouvé le chemin avec la command _-insert mais apparement si y dois comprendre comme si y en avait qu'un! merci

Bonjour, Je vais faire avec la commande "_-insert" c'est ce qui me parait le plus approprié. Or j'ai des petits souci avec le nom du chemin d'accès. Voila suivant le nom de mon fichier j'aimerais lui donner un chemin d'acces différent exemple : (defun c:k () ;la variable name a été affecté préalablement à une chaine de caractere ; cheminint est le chemin intermédiaire (cond ((= name "VPM") (setq cheminint "K:\AUTOCAD\Tuyauterie\VPM\")) ((= name "VP" ) (setq cheminint "K:\AUTOCAD\Tuyauterie\VP\")) ((= name "VPD" ) (setq cheminint "K:\AUTOCAD\Tuyauterie\VPD\")) ((= name "VO" ) (setq cheminint "K:\AUTOCAD\Tuyauterie\VO\")) ((= name "VB" ) (setq cheminint "K:\AUTOCAD\Tuyauterie\VB\")) ) ;rname est le nom réel du fichier que je dois integrer ;chemin est le chemin final (setq chemin (strcat chemin name)) (command "_-insert" chemin (getpoint "\nDonné le point d'insertion : ") "" "");la j'aimerai qu'il me cherche le ;fichier dans le bon répertoire. Le souci est que la variable cheminint ne prend pas les antislash j'ai essayé de les doublé de les précéder de guillements enfin j'ai bidouillé mais j'ai pas compris comment ça marche pour qu'il les affecte corrrectement à la variable Pour ceux qui se demande pourquoi : je pourai faire en ajoutant des chemins de recherche de fichier support dans les options mais il y a beaucoup de chemin à ajouter et ceci une fois l'outil terminé il fait le metre sur le poste de chaque déssinateur de l'entreprise. Donc sa facilitera la tache pour tout le monde et diminura les manips pour le metre en place. Cordialement

Ah oui!! j'avais essayé ce matin mais sa marchais pas alors je me suis dit que c'était pas possible donc j'ai arreter, j'en conclu donc que je devais avoir des probleme de connexion au réseau. Merci beaucoup. Bonne fin de journée.

Bonjour à tous! Voila j'ai creer un lisp qui permet d'inserer différent type de bloc. J'ai environ 200 wbloc qui sont répértorier dans différent dossier ( une dixaine ). Et il possible d'indiquer le chemin de recherche des dossiers dans le lisp pour éviter de devoir tous les metres dans les options -> fichier etc. Merci Cordialement

Bonjour, j'aimerai savoir en créant une barre d'outils si il est possible lors de son utilisation, d'ajouter autiomatiquement des chemins de recherche de fichiers support en évitant donc de devoir rajouter les chemins de recherhce dans les option. Un truk dans le même genre que les fichiers MNL pour les LISP. Merci Cordialement

J'ai trouver avec la fonction substr merci

Bonjour, J'aurai aimé savoir si il était possible de récuperer une partie de chaine de caracter. Si oui par qu'elle fonction ? exemple : La variable PnDn a comme chaine de caractere affecté "20 ; 50". J'aimerai récuperer le "20" et le "50". Merci Cordialement