lovecraft

AH je viens de trouver une nouveau challenge par rapport a ce sujet. Le but serait de mettre tous les elements 3D à Zéro. (ligne 3D, Face3D, ligne, elevation de polyligne etc....). Mais afin de garder les elements d'origine du dessin. c'est de copier cette 2D dans un nouveau calque. Exemple: les faces 3D du calque MNT_PROJET deviendront des face3D à Zéro dans le calque MNT_PROJET_2D. Voilà bon devellopement à tous. Moi je commence de suite ;)

Bonjour, ou t'as la solution d'utiliser la commande FILTER, y a une autre solution c'est de develloper un lisp avec une boite de dialogue specifique @plus

Je viens de regarder autocad MEP sur le site autodesk, car je ne connaissais pas ce logiciel y a tellement de version Autocad Map Civil etc.... Enfin bon , ce qui m'a interpelé c'est qu'il faut avoir un ordi vacheent puissant pour le faire tourner Configue recommandée: Processeur Intel® Pentium® 4, 3,0 GHz, ou processeur AMD® Athlon® équivalent Microsoft® Windows® XP SP1 ou version ultérieure (Édition Professionnel, Familiale, Tablet PC) ou Windows® 2000 SP4, Microsoft® Windows Vista™ (Édition Entreprise, Business, Premium, Intégrale) [surligneur] 3 Go de RAM [/surligneur] 4 Go d’espace disque disponible Adaptateur couleurs 32 bits (True Color) pour affichage vidéo 1 280 x 1 024, 128 Mo Carte vidéo dédiée avec prise en charge matérielle d'OpenGL® spéc. 1.3 ou version ultérieure Périphérique de pointage compatible souris MS Avez vous cette config?

bonjour, Merci bseb67 pour cette astuce Doslib, je ne connaissais pas. Ci-dessous le lien pour le télécharger: http:// http://download.mcneel.com/download.asp?id=doslib Merci

Ben tu changes l'origine de ton scu dans ta presentation. je ne vois pas l'interet mais bon. Si tu veux exporter des objets de l'espace objet dans ta presentation tu peux utiliser la commande [surligneur] changespace[/surligneur] (tu peux exporter des objets de d'espace papier vers l'espace objet et inversement) @plus

tu peux aussi faire la même chose avec la commande rtext puis $(getvar,dwgname). C'est assez utile pour le cartouche. Y a aussi $(xrefs,2) pour avoir le nom de ref externe "remplacer le 2 par 3 pour avoir le chemin complet" Voila ma p'tit contribution @plus

Bonjour, ci-dessous un document que j'ai mis en téléchargement, j'espère qu'il pourra t'aider. @plus ;) Cimer qui...... http:// http://cjoint.com/?kyo0QVuMkt

SUPER..... il nous reste qu'a poster des animations ;) Mais au fait comment fait on pour les posters....!!!!! Merci ;)

gile j'ai pas essayer mais regards peut etre celui-ci premier lien le telechargement puis le second le tuto @plus http:// http://www.clubic.com/telecharger-fiche19891-super.html http:// http://www.media-cool.com/modules/smartsection/item.php?itemid=58

bonsoir gile, Regard là => http:// http://software.benetonfilms.com/Beneton_Movie_GIF/ @plus

C'est vrai que c'est pas mal comme rendu..... Autrement toujours pas reçu le fichier davyb. j'ai regardé l'courriel que j'avais posté (il n'y a pas d'erreur de saisi de ma part. @plus

OK barrlaurent@gmail.com

re il y a aussi Wink , qui est aussi gratuit. A moi ils me servent a faire des demos et des tutos. @plus

bonjour, je ne peux voir l'aperçu mais je connais un gratuiciel qui permet de faire des captures en video c'est camstudio (regarde sur google). @plus

Voila j'ai essayer autre chose pour le jeu de selection j'ai remplacé (0 . "*TEXT") je l'ai remplacer par(100 . "AcDbText") =====> pour le jeu de selection me selectionne ton les objets du calque ? (setq ss (ssget "_X" '( [surligneur] (0 . "*TEXT")[/surligneur] (8 . "TEXTE_INDICE")))) Merci

Ah que dire de plus .... Merci (Gile and Patrcik_35) je vais regarder ta version vlisp (comme je suis debutant )c'est peut etre le moment d'apprendre cette évolution d'autolisp. PS:Je vais essayer de m'accrocher pour rivaliser sur les challenges des experts (c'est pas gagné). En fait je crois qu'ici y a des gens qui viennent prendre , ce qu'ils veulent et rien d'autre (on leurs dévellope des lisps et puis oups disparu), enfin c'est ce que je ressents. @plus

bonjou, As tu fais une reinstallation de covadis? il se peut qu'il faille effacer le fichier .mnl il va se regenerer tout seul.. en attente de confirmation @plus

ben voila j'ai fini une partie de ce challenge "mon challenge" puisque aucun aute debutant n'a participé. "je ne sais pas ce qu'il faut faire pour que d'autre peersonne puisse participer car il me semble que ce challenge etait a la hauteur de tout debutant. enfin bon Voici mon code: (defun sstext () (ssget "X" (list (cons 0 "*TEXT") (cons 8 "TEXTE_INDICE"))) ) ;************************************************************** (defun c:lstf () (setq jstext (sstext)) (setq listd nil) (setq i 0) (repeat (sslength jstext) (setq enttxt (ssname jstext i) bdenttxt (entget enttxt)) (setq listd (cons (atof(cdr(assoc 1 bdenttxt))) listd)) (setq i (+ 1 i)) );fin du repeat (setq listfin (vl-sort listd ' (setq fic (open "D:\\AUTOCAD CIVIL 2008 FICHIERS\\LISP\\new.txt" "w")) (setq k 0) (repeat (sslength jstext) (setq rfic (rtos (nth k listfin))) (write-line rfic fic) (setq k (+ 1 k)) );fin du repeat (close fic) );fin du defun PS: maintenant il me reste le plus dure de l'optimiser grave a vos commentaire que je vais reprendre et ceux à venir. Merci

comment dire; (vl-sort listd ' je pensais pas que c'était aussi simple Merci

Re voici le code avec qqes corrections: (defun sstext () (ssget "X" (list (cons 0 "*TEXT") (cons 8 "TEXTE_INDICE"))) ) ;************************************************************** (defun c:lstf () (setq jstext (sstext)) (setq listd nil) (setq i 0) (repeat (sslength jstext) (setq enttxt (ssname jstext i) bdenttxt (entget enttxt)) (setq listd (cons (atof(cdr(assoc 1 bdenttxt))) listd)) (setq i (+ 1 i)) );fin du repeat (princ listd) );fin du defun Maintenant je voudrais passer a l'etape suivante mais là je ne sais pas comment faire . je pensais utiliser la fonction min mais je n'y arrive pas. Peut on me donner le bout du fil.... PS:Gile j'appliquerai la suite de tes remarques a la fin de l'etape 4. ;) Merci

Ok merci de tous vos commentaires cela va me permettrev d'evoluer,Donc je regarde ce midi afin de vous proposer un nouveau code dans la soirée. @plus

Voila ma reponse pour la deuxieme partie: OK c'est peut etre babare mais je ne sais pas faire autrement (et j'ai même galeré). enfin voici le resultat: (defun c:lstf () (setq jstext (sstext)) (setq i 0) (repeat (sslength jstext) (setq enttxt (ssname jstext i)) (setq bdenttxt (entget enttxt)) (if (= i 0) (setq listd (list (atof(cdr(assoc 1 bdenttxt))))) (setq listd (cons (atof(cdr(assoc 1 bdenttxt))) listd)) );fin du if (setq i (+ i 1)) );fin du repeat (princ listd) );fin du defun Merci de vos commentaires afin que j'améliore cette routine ;)

Yes patrick je suis en train de voir la seconde etape (pour ma part je vais le tenter avec un repeat). Le seul soucis que je rencontre c'est d'ajouter des elements a une liste . @plus

ben je crois que c'est un bon lancement.... C'est une bonne occasion pour moi car je me sert jamais de l'editeur je fais tout sur notepad donc je vais commencer.... Merci pour ce debut

Voici un fichier support: http:// http://cjoint.com/?kouSSPCV6J Voici ma reponse pour la premiere etape: ;******************challenge débutant ;******************Etape 1 création de la fonction sstext (defun sstext () (ssget "X" (list (cons 0 "*TEXT") (cons 8 "TEXTE_INDICE"))) ) Merci de vos aides @plus