elen29

C'est plus compliquer mais dans un certain sens oui (Je préparer mon projet de mémoire) A très vite!!!!

Merci beaucoup sa marche. Vous êtes trop balèze!!! ;) Par contre il faut que je m'y mette pour le "entmake" c'est sa?!! J'ai déjà du mal à comprendre la programmation donc sa ne vas pas être pour tout de suite. C'est le début c'est pour sa!! Merci à tous vous m'avez vraiment sorti de la m.....de!!! A bientôt tous le monde Elen :)

c'est sur que sa marche mieux mais pas encore comme il faut. Je sais vraiment plus comment faire! Voilà où j'en suis: (defun c:ccalque () (setq nomcal (getstring "\nEntrez le nom du calque: ")) ;; récupérer un nom de calque (setq colcal (getint "\nEntrez la couleur du calque: ")) (if (snvalid nomcal) ; si le nom est valide... (progn (if (not (tblsearch "LAYER" nomcal)) ;; si le calque n'existe pas (command "_layer" "_new" nomcal "") ;; ...on le crée (command "_layer" nomcal "co" colcal "") ) (princ (strcat "\nSélectionnez les objets à tranférer dans le calque \"" nomcal "\"") ) (if (setq propent (ssget)) ;; si l'utilisateur sélectionne des objets... (command "_chprop" propent "" "_layer" nomcal "co" colcal "") ;; ...on les transfère sur le calque ) ) (princ "\nNom de calque non valide") ;; ... le nom spécifié n'est pas valide ) (princ) )

en faite je viens de réussir un truc: (defun c:ccalque () (setq nomcal (getstring "\nEntrez le nom du calque: ")) ;; récupérer un nom de calque (setq colcal (getstring "\nEntrez la couleur du calque: ")) (if (snvalid nomcal) ; si le nom est valide... (progn (if (not (tblsearch "LAYER" nomcal)) ;; si le calque n'existe pas (command "_layer" "_new" nomcal "") ;; ...on le crée (command "_layer" nomcal "co" colcal "") ) (princ (strcat "\nSélectionnez les objets à tranférer dans le calque \"" nomcal "\"") ) (if (setq propent (ssget)) ;; si l'utilisateur sélectionne des objets... (command "_chprop" propent "" "_layer" nomcal "co" colcal "") ;; ...on les transfère sur le calque ) ) (princ "\nNom de calque non valide") ;; ... le nom spécifié n'est pas valide ) (princ) ) Cela me permet de donner le nom d'une couleur (ex: rouge) mais d'une part ca ne marche pas pour tout les nom (ex: vert) D'autre part, la couleur de l'objet change mais dans la liste des calques elle reste comme avant!!! comment faut-il que je procède? merci d'avance Elen

c'est ça! nickel! Par contre, lorsque je créée mon calque je veux directement lui associer une couleur. Je pense qu'il faut le définir avant si j'ai compris quelque chose. Donc juste après qu'on demande le nom du calque?! (setq col (getvar "\nEntrez numéro de la couleur du calque: ")) Et après mettre quelque chose du genre (command "_layer" "_new" name "") (command "_layer" "co" col "") Mais comme d'habitude c'est pas sa! Une autre idée SVP pour pouvoir la terminer enfin ;)

J'ai pas compris, peut tu m'expliquer ce que tu veut dire. merci

J'ai compris qu'il fallait que je bosse sur les fonctions! Merci les gars! En attendant j'ai essayer en petit truc mais c'est pas très bien. Je galère un peu. (defun c:ccbassin () (princ "\n Choix des objets qui doivent changer de calque...\n") (setq ccb1 (ssget)) (if ccb1 (progn (setq e (entsel "Choix d'un élément du calque BASSIN")) (command "_chprop" ccbassin "" "_layer" BASSIN "") ) ) (princ) ) Je sais pas si sa vaut quelque chose. Le problème c'est que c'est trop simple. Mais surtout, je ne peut pas créer un programme pour tous les calques! Il me faut donc une façon pour créer un nouveau calque que je peut renommé directement et ce avant d'aller sélectionner mes objets. Le programme si dessus n'est pas adapter car il faut déjà avoir les calques et des objets dedans. Comment puis-je faire pour créer un programme avec tous sa sachant que j'ai vraiment du mal à commencer. Merci d'avance Elen

j'ai compris la méthode. Je vais essayer de mettre tous sa en forme mais c'est loin d'être gagner!! Je vais surement te demander de m'aider encore lorsque j'aurai commencer le programme, demain quoi!!! Merci beaucoup a+ Elen

bonjour a tous, j'ai un soucis urgent à régler et j'ai besoin de vos connaissances. Ce que je souhaite, c'est faire du ménage sur des plans: j'ai donc besoin de supprimer des calques, d'en créer d'autre mais surtout d'en regrouper plusieurs. Voici les étapes que je souhaite établir: Commande 1 : créer un nouveau calque et le rendre courant. Je connais les commandes autocad: Il faut utiliser les commandes « -CALQUE puis ETABLIR et entrer le nom du nouveau calque » Sa c’est OK. Mais j’arrive pas trop à le programmer. Pour commencer à le programmer j’ai pensé à sa : (command « -calque » « e ») Mais je ne sais pas quand il faut que je dise « Entrer le nom du nouveau calque ». Commande 2 : Sélectionner un objet qui devra changer de calque : (princ "\n Choix des objets qui doivent changer de calque...\n") (setq cc1 (ssget)) Commande 3 : Ajouter ce ou ces éléments dans le nouveau calque que nous venons de définir comme courant. J'espère que c'est assez clair et que vous pouvez m'aider à avancer. Merci d'avance Elen29

bonjour a tous A la suite de cette conversation, j'ai essayé de retravailler le lisp: je me demandais maintenant comment est- ce que je pourrais créer un nouveau calque et mettre le ou les éléments sélectionnés à l'intérieur au lieu de Je sais que pour le faire la commande autocad c'est: "-calque" puis "etablir" et on écrit le nom du nouveau calque qui deviendra courant. Le problème, c'est que je n'arrive pas l'écrire sous lisp puis à sélectionner un élément qui ira directement dedans. Je ne sais pas si c'est clair mais j'ai vraiment besoin d'un coup de main car je rame!!! Merci d'avance Elen

Merci a vous tous. je m'y penche ce weekend et lundi je vous fais part de ma solution (en espérant qu'elle soit bonne!!) C'est le premier programme que j'essaie de réaliser et je vois qu'il me manque beaucoup de logique. Mais bon ca viendra!! Quand on veux on peut!! Bon weekend à tous et à lundi pour la suite des aventures... Encore merci Elen

Merci beaucoup bonuscad. J'aimerai tout de même avoir des explication pour comprendre et avancer un peu. Tout d'abord: en faite je ne vois pas à quoi sert la fonction "null". De plus, pourquoi on doit changer de "nom": js / lay2 / ent / n ?(enfin je ne sait pas comment on appel sa). A quoi sa sert de mettre " ( js " sans rien après. Bon désolé pour les questions con que je pose mais j'essaie de vraiment bien comprendre toutes les étapes de ton programme. Merci encore Elen

Merci beaucoup bonuscad. J'aimerai tout de même avoir des explication pour comprendre et avancer un peu. Tout d'abord: en faite je ne vois pas à quoi sert la fonction "null". De plus, pourquoi on doit changer de "nom": js / lay2 / ent / n ?(enfin je ne sait pas comment on appel sa). A quoi sa sert de mettre " ( js " sans rien après. Bon désolé pour les questions con que je pose mais j'essaie de vraiment bien comprendre toutes les étapes de ton programme. Merci encore Elen

merci beaucoup je vais voir ce que sa donne.

Merci pour ta réponse mais lorsque que j'exécute mon programme, il me dit que je n'est pas assez de variables. Il me manque une fonction avant (command "_chprop" ccbassin "" "_layer" NOMCALQUE "") mais je n'arrive pas à la trouver et plus j'essaie moins sa va!! La cata!! Si quelqu'un à des idées merci de me donner un coup de pouce. Mon programme: (defun c:ccbassin () (princ "\n Choix des objets qui doivent changer de calque...\n") (setq ccb1 (ssget)) (if ccb1 (progn (setq e (entsel "Choix d'un élément du calque BASSIN")) (command "_chprop" ccbassin "" "_layer" BASSIN "") ) ) (princ) ) Merci d'avance Elen