cyrkan

Je me permet de reposter car j'ai essayer une nouvelle méthode; et éditer le message précédent aurais été incompréhensible. j'ai essayer la technique du ssadd aprés 2 heures d'arrachage de cheveux... Voici le code: (defun c:tri () (setq liste1 (ssget "X" (list (cons 8 "*filtre1*,*filtre2*,*filtre3*")))) ;sélection de tout le dessin et création d'un liste contenant les élément filtre1 filtre2 filtre3 (princ (strcat "Il y a " (itoa (setq nombre (sslength liste1))) " entités à changer de calque")) (setq liste2 (ssget "X" (list (cons 8 "*filtre4*,*filtre5*,*filtre6*")))) (princ (strcat "Il y a " (itoa (setq nombre1 (sslength liste1))) " entités à changer de calque")) (setq liste3 (ssget "X" (list (cons 8 "*filtre7*,*filtre8*,*filtre9*")))) (princ (strcat "Il y a " (itoa (setq nombre2 (sslength liste1))) " entités à changer de calque")) (setq liste1 (entnext)) (setq listeultime (ssadd)) (ssadd liste1 listeultime) (setq liste2 (entnext liste1)) (ssadd liste2 listeultime) (setq liste3 (entnext liste2)) (ssadd liste3 listeultime) (princ (strcat "Il y a " (itoa (setq nombre3 (sslength listeultime))) " de liste dans liste ultime")) (command "chprop" listeultime "" "cal" "0" "") ) Et la ca ne fonctionne pas malgrés le faite que la fonction ssadd fonctionne bien elle! En effet la fonction ssadd me permet de renvoyé 3 dans le cas présent car elle a trois liste mais elle ne prend pas les élément qu'ils y avait dans la liste de départ... C'est ce qui me fait planter ma fonction. ce n'est pas qu'elle plante mais elle ne peut pas effectuer l'action (changer des polylignes de calques). PS: ma question reste valable pour le nom de l'erreur : "une erreur de type listp est dut a quoi??" Merci d'avance

Bonjour, ce qui a été présenté plus avant marche bien... J'ai donc tenté l'ajout deux deux liste dans une seule; autrement dit la fusion de deux liste (ou plus) Voici le code choisit: (setq listeultime (append liste1 liste2 liste3)) (princ (strcat "Il y a " (itoa (setq nombre3 (sslength listeultime))) " entités dans liste ultime") vous vous doutez bien que si je vous consulte ca veut dire que mon code ne marche pas... (pour changer :mad: ) mon code retourne: type d'argument incorrect: listp Au passage une erreur de type listp est dut a quoi?? comme ca je pourrait trouver tout seul une autre fois!! Merci d'avance!! [Edité le 29/5/2008 par cyrkan] [Edité le 29/5/2008 par cyrkan]

En effet le (vl-load-com) a bien amélioré les choses, je travail sous le 2004 (pour assurer une compatibilité maximum). mais bon maintenant autocad me retransmet l'erreur suivante: "erreur automation problème lors du chargement de l'application" j'ai essayer avec un fichier doc et un fichier txt (même un fichier xls), j'ai eut le même retour. Apparement si j'ai bien compris, une automation peut être l'intervention d'un autre logiciel suite la demande du premier. Dans ce cas pourquoi word ou notepad ne veule pas ce lancer?? PS: pour celui du dessus ^^: quand je disais aidacad je parle du site, et non de leur logiciel. Je n'est pas télécharger leur options... désolé [Edité le 20/5/2008 par cyrkan]

mon chère totocad :P me sort que le vlax-get-acad-object il ne connait pas... En gros no fonction definition? C'est du à quoi? :cool: On commence a touché le domaine pour lequel je ne m'y connais pas du tout! D'ailleur si quelqu'un sait ou je pourrez éventuellement trouvé des info sur les fonction de type: vlax-get-acad-object bref les truc de bourrin quoi! Je le remcierais grandement! [Edité le 19/5/2008 par cyrkan]

Bien le bonjour! Maintenant je suis plongé dans ma petite boite de dialogue et j'aimerais créer une fichier d'aide. Donc je créer un bouton pour lancé un .doc. J'ai donc avec l'aide du concurrent d'en face (AIDACAD) chercher différente solution de type startapp; Open; findfile... etc etc etc Mais tout ce que j'arrive a faire c'est démarrer notepad. J'arrive pas a ouvrir un word ou excel et encore moins le fichier que j'ai créer! Quelqu'un peut t'il me mettre sur la voie? (sans pour autant tout me prémaché ^^!!! Merci d'avance.

Bien el bonjour... Je suis en fin d'étude. J'ai un bts de géomètre topographe, et actuellement je suis dans une licence de projeteur en DAO/CAO dans le BTP a Nîmes Je travail actuellement en tant que thecnicien de bureau d'étude chez eurovia, ou je fait des métrés ainsi que du dessin sur des projets de voirie.

Petite précision... je me met moi aussi a opendcl. On ma conseillé d'aller voir dans l'aide. Vas s'y! Dedans tu trouveras un tuto (en anglais certe ^^) qui explique comment faire une petite boite de dialogue, comment la chargé et comment la faire tourné avec du lisp! Bref de quoi répondre à toutes tes questions. Pour y acceder: dans opendcl: help > help > Getting Sarted > Hello world (c'est le nom de l'exercice) PS: normalement opendcl peut ce trouver sur sourceforge; une fois télécharger c'est un fichier .msi, il suffit de cliquer dessus pour l'installer (sur le opendcl studio) [Edité le 19/5/2008 par cyrkan]

Effectivement il y a bien un toturiel dans l'aide d'opendcl... Il marche bien! cependant il faut faire attention au code qu'il propose car le logiciel et le tuto ne nous donne pas toujours la bonne version! Par exemple je suis tombé sur le code pour fermer la fenêtre en appuyant sur le bouton ok... Le code donné par le logiciel marche; pas celui donné par l'aide ^^ Tuto: (defun c:Dclform1_textButton1_clicked () ... Logiciel: (defun c:Dclform1_textButton1_Onclicked () ... Résultat pas de fenêtre qui se ferme dans le cas du tuto et 10 minute de grattage de tête pour voir la boulette! <acronym class=dict title= Sinon le logiciel est très sympas et promet beaucoup!!!! L'aide nous renvoie aussi au tutoriel et a l'aide faite par un devellopeur de objectdcl en 2003... (a voir)

Bonjour bonjour! Voici mon problème! Je cherche a faire fusionner des listes! Voici mon code: (defun c:test () ;(setq EP (ssget "X" (list (cons 8 "*busage*") (cons 8 "*pluvial*") (cons 8 "*fl1-p*") (cons 8 "*fls-p*") (cons 8 "*flt-p*") (cons 8 "*ep*")))) (setq EP1 (ssget "X" (list (cons 8 "*fl1-v*")))) (setq N1 (sslength EP1)) (setq EP2 (ssget "X" (list (cons 8 "*fl1-p*")))) (setq N2 (sslength EP2)) (setq EP (append EP1 EP2)) (setq N (sslength EP)) (princ (strcat "Il y a " (itoa (setq nombre (sslength EP))) " entités à changer de calque")) ) Comme vous pouvez le voir je cherche a faire une liste avec EP1 et EP2 et crée une liste appelé EP.

Bonjour à tous! Je reviens pour poser encore quelques question à la communauté! Mon gros problème du jour est le suivant: Je viens juste de télécharger opendcl, donc je ne sais pas le faire fonctionner! Mais le site officiel ne propose pas encore de tuto! comment faire?? Ensuite comment faire pour faire fonctionner une boite de dialogue sous autocad? Car à ce que j'ai compris opendcl studio est fait pour créer la boite de dialogue... Donc opendcl runtime sert t'il a faire tourner les boite de dialogue sous autocad? (si oui comment?) Et enfin, j'ai commencé à me créer une boite de dialogue sur opendcl studio, j'aimerais utiliser des liste déroulante dessus! Comment faire! A l'heure actuelle je me suis servis du bouton "listbox" mais aprés comment lui faire faire apparaitre la liste en question? c'est une liste créer en lisp? comment associé une boite de dialogue avec des commandes lisp? Merci d'avance à la bonne ame qui pourrais me porter assistance une fois de plus!!

Merci pour tout! Explication clair et limpide! <acronym class=dict title=

OK! Cette fois ci c'est la bonne j'ai compris!!!!!! (setq ancien (getstring "\nNom de l'ancien calque: ")) (setq nouveau (getstring "\nNom du nouveau calque: ")) ces deux ligne servent à rentrer les deux futurs paramètres utilisé comme variable par la suite! (TestCHP ancien nouveau) lance donc la routine créer au préalable! avec les deux paramètres rentré plus tot! Par contre ici on a comme paramètre ancien et nouveau et non plus ceux énoncé das le code d'avant! ( (defun testCHP( ancien_calque nouveau_calque / liste e le) ) Est ce que ancien et nouveau prenne le pas et remplace encien_calque et nouveau_calque? Mais sinon j'ai bien compris le principe cette fois ci! Encore merci!

euh, je ne vais encore passer pour un boulet.... (c'est la vie!) J'ai voulut tester sur un exemple ton procédé! j'ai donc créer deux calques (ancien_calque et un autre nouveau_calque). J'ai mis dans le calques ancien_calque une ligne, une polyligne et un cercle. Puis j'ai copier coller ton code celui sur la methode du chprop... Et enfin j'ai lancé directement de la ligne de commande,bon ca na pas voulut ce lancé; j'ai donc rajouté le c: c'est a dire: (defun c: testCHP (....)... Ca na pas marcher non plus! je ne comprend pas. Précision la il ma mis que le nombre d'argument était insuffisant. (les parenthèses son ok) HELP ;) Merci d'avance pour les précisions!

RE! En effet il y a deux solutions! (ce n'était pas un reproche le coup des 50 lignes <acronym class=dict title=! :D ) Je pense que je vais prendre la seconde qui ce raproche le plus de ce que l'on a appris en cours! et que je pense comprendre plus facilement! D'ailleur pour ce qui est de comprendre, je ne compte pas pompé ce que tu ma donner sans essayé de comprendre ^^ :cool: Donc j'ai quelque question à te posé! Question qui vont te paraitre extrèmement bête... mais c'est la vie :P 1ere chose que je n'est pas compris: En cour je suis resté sur du: (defun c: nomduprog () pourquoi ici on passe direct sur du : (defun nomduprog (annonce des variables) bref sans le c: ... 2ième chose que je n'est pas compris! je n'est pas compris la structure de code suivante: (/= (type ancien_calque) 'STR)) j'avous que le (/=(****) str) m'est complètement inconnu! (surtout le: (/= ) Voila je te remerci de me laisser abuser de ta patience!

Bonjour je me tourne encore vers vous!!!! ^^ Je voudrais savoir ou je pourrait acheter toolkit de drcauto!!! Avec de préférence, la possibilité d'envoyer un fax pour avoir un devis et éventuellement une hotline!!! Ou bien tout simplement une chaine de magasin en france qui le fait!!! Bref voila quoi! Car en effet je pense que ma boite va être frileuse pour acheter un produit directement sur internet! Merci d'avance!

Pfiouuuu! je met 5 ligne de code tu m'en met 50!!! <acronym class=dict title= Je ne peut pas tester tout ca pour le moment!!!! Mais en tout cas je te remerci! et je te tient au courant!

En faite non je ne veux pas "déplacer" dans un sens "x" ou "y" mais les garder au même endroit mais dans un calques que j'aurais choisit. Par exemple j'ai une polyligne dans un calques A Je veut juste qu'elle soit dans un calques B; Mais avec les même propriété qu'elle vait dans le calques A (longueur; couleur; type de ligne)

Bonjour bonjour! Pour mon rpojet je compte sélectionner les entité dans un calque et les déplacer! J'ai donc débuter mon code comme suit: ==== (defun c:test () (setq liste (ssget "X" (list (cons 8 "*test*")))) (setq nombre (sslength liste)) ) ==== Il y a donc le ssget + X pour tout sélèctionner; je filtre en ne gardant que les calques ayant test dans leur noms. Et ensuite je demande le nombre de calque sélèctionner pour savoir si j'ai réussit a sélectionner le bon nombre de calque! En gros jusque la tout marche! mais aprés je butte sur les commande approprié! je ne trouve pas le code qui me permettrait de déplacer les entité et non juste déplacé des liste ou juste supprimé des liste (j'avait penser a copier supprimé). Je vous remercie pour l'éventuel aide qui pourra mettre donné! EDIT: Euh ... Je me suis surement trompé de parti de forum; un admin pourrait déplacer le sujet ^^ (dans la parti débutant). J'ai regardé aussi, il y a apparement un sujet qui traite du déplacement de bloc (moi je cherche a déplacer l'intégralité), mais bon j'avous que j'ai pas tout capté (j'ai commencé à chercher une corde et un tabouret avant la fin!!! <acronym class=dict title=) [Edité le 14/4/2008 par cyrkan]

Bon bin la je croit que je suis un peu résigné a mon triste sort..... Les versions récente d'autocad lt apparement n'arrive même pas a chargé un .lsp.... Donc je part maintenant sur une autre hypothèse! Si j'ai lt extender? Je peut charger des .lsp? Et si oui? un simple appel au clavier peut lancé les lignes de codes concerné? Merci d'avance de me permettre d'usé de ton temps!! (et peut être de ta patience!)

Donc sans LT extender on est obligé de chargé en .exe une application qui aurait été créer au préalable en lisp sur un autre autocad... Autre question: Si on a chargé l'application, est ce que l'on peut appellé toute les application a l'intérieur plus facilement?! Je m'explique, je fais de la codification! donc aà la base, il suffisait de tapé au clavier (par exemple :) T2 pour lancé une polyligne rouge dans un calque précis. Mais si on tapais un autre code précis on obtenais un autre type de ligne dans un autre calques. Donc faudrat t'il a chaque fois tapé tout le chemin pour que ca marche, ou bien, une fois chargé on auras plus que a tapé l'appel de la commande. Précision toute les codifications sont compilés à l'heure actuel dans le même .lsp!

Donc si je comprend bien je peut quand même lancer une application que j'aurais créer au préalable... Mais cette application ca pourrait être quoi? sous quel forme elle doit être? Ca peut être un .lsp?

Bonjour... J'ai un petit (gros) problème. Dans le cadre de ma licence de projeteur en DAO CAO. On doit faire un projet. Je me suis lancé dans de la codification automatique et du triage de calques. Le tout avec Autolisp! Tout marche bien a l'IUT ou chez moi. Mais à l'entreprise on a Autocad LT! Et la surprise, je ne peut pas travaillé! Bon je me suis renseigné et j'ai vue que les versions LT ne dispose pas d'autolisp, ce qui n'est pas un gros problème je peut travaillé sur mon projet chez moi. Ma question est: Comment exploiter (faire tourner!) un programmme écris en Lisp sur autocad LT? Ceci sachant que LT extender ne sera pas accepter vue que apparement il n'est pas accepter légalement par autodesk. Précision mon entreprise compte passé bientot a une version LT plus récente (autocad LT 2008 ou 2009). Celui qui pourrais m'apporter une réponse me sauverais un peut le vie. (ou du moins de gros ennuis!)