Matt666

Je vois ce que tu veux faire... Je vais voir ça... Oui, j'ai tenté de faire un routine avec mapcar... Mais je n'arrive pas à modifier la valeur à changer... Je ne trouve rien qui le permette, à part un bricolage moche auquel je viens de penser... genre (car (subst n (list o) (list x)))... Je sais pas si ça fonctionne, mais je trouve cela un peu trop bricolé... Ca ne m'étonne pas ! Tes routines sont mes modèles de code simple, concis, efficace, et beau aussi. Forcément, cela transpire dans mes routines :) Je continue à m'arracher les cheveux : :P

Excuse moi lili, mais tu parles de quoi, là ??

D't'façon on dépassera pas 2012 !!!! :P

Il est chiant ce gile, avec ses gros mots !!! J'ai été obligé de regarder dans le dico :cool: Je rappelle juste que là n'est pas la fonction première de SU... Ensuite, je rappelle que la version pro est 355€... Une blague. [Edité le 30/6/2008 par Matt666]

Ta base, c'est des points topo, nan ? va voir du coté de ce site dément, tu trouveras un script "fr_cloud_v6"... D'après le descriptif : Importe des fichiers de modèles numériques de terrain, plusieurs format supportés. Option pour translater l'origine du nuage, insérer des composants (au lieu de points de construction) aux emplacements des points. Toutes unités supportées. Option de triangulation des points importés. Nécessite example.dat pour tester l'exemple. Doc incluse. Sinon tu le bac à sable (c'est pas une blague), que tu affiches en allant dans Fenêtres>Préférences>Extensions>Outil bac à sable. Voilà. Sinon regarde bien les vidéos d'apprentissage, elles sont très bien.

Salut Lilian !! Pas de Problème, c'est quand tu veux !! Bah perso je suis très souvent sur le forum de Sketchucation, sinon regarde ici, ya déjà eu un topo sur les liens etc concernant Sketchup. Houlà, pavé. Bon, par rapport à Autocad et en pagaille, je trouve Sketchup : - Moins cher (ah bah oui, hein !!) : Gratuit ou payant avec un peu plus d'options - En 3D, il est, à mon avis, totalement génial ! Imbattable pour ce qui est de la simplicité d'utilisation... Moins d'outils, mais ils recèlent des méthodes super intéressantes. D'ailleurs je n'ai pas encore fait le tour des "sous-outils" disponibles dans SU. - Idéal pour les archis en manque de rapidité d'exécution. - Outil principalement destiné aux esquisses, bien que je ne sois pas tout à fait d'accord avec ça. Je travaille dans la menuiserie, et cet outil est parfait pour ça. D'ailleurs un paquet de menuisiers américains l'utilisent désormais. - Un langage de programmation qui vaut ce qu'il vaut, on peut faire pas mal de chose avec. Malheureusement on n'a pas des fonctions géniales du lisp, comme (command), ou toutes les fonctions (getmachin). Donc moins polyvalent. - Des plugins de rendu payants mais performants, et intégrés à SU (à l'image de Vray) - Les tonnes de plugins créés par des gens comme ici, qui s'avèrent très vite indispensables. - Possibilité d'importer du dwg. Par l'inverse. Bouh AutoCad. - Soit dit en passant, le nouvel autocad a l'air de se rapprocher du modèle SU en 3D... - Su est assez lent lorsque le dessin est trop lourd - Impossible d'éditer un dessin à l'échelle sans la version pro. Très chiant ça... - Etc Etc. Personnellement, je ne peux plus me passer de SU. AutoCad sert au dessin technique 2D, c'est tout. Voilà, avis aux autres utilisateur de SU (Tramber, x_all, nazemrap, axx, etc) de donner leur avis aussi !!! C'est intéressant tout ça. A bientot. Matt.

Tiens d'ailleurs, vous savez pour ? Nan ? Grmbl moi non plus... PS : Pour la 3D, Sketchup ???? :cool: (Ca va être la baston...)

Un peu du genre ça : http://images4.hiboox.com/images/2708/e4a27a37b32ec7ab1ba2a80dd72d52d2.jpg (C'est mon avatar sur un autre forum :)) Il a pas le droit de me le piquer !!! Nan mais oh...

Merci Bred :red: :red: :red: :red:

Salut Gile Cool un challenge ! Voici un truc récursif qui devrait fonctionner... (defun c21 (n o l / tmp) (setq tmp l l nil ) (while tmp (if (eq (type (car tmp)) 'LIST) (setq l (cons (c21 n o (car tmp)) l)) (if (eq o (car tmp)) (setq l (cons n l)) (setq l (cons (car tmp) l)) ) ) (setq tmp (cdr tmp)) ) (reverse l) ) Je n'ai pas réussi à le faire avec mapcar, mais je tente !! A bientot. Matt. [Edité le 30/6/2008 par Matt666]

Salut Perso j'aurais plus utilisé la combinaison getpoint getcorner pour bien singer la vraie commande... (command "_rectang" (setq a (getpoint)) (getcorner a)) Ou encore (defun c:rec () (command "_.rectang") (while (not (zerop (getvar "cmdactive")))(command pause)) ) Pour toutes les options disponibles avec l'outil natif. Salut !

Ah bah !!! L'avatar de Patrick_35 !!! Le pauvre... Si j'étais lui je gueulerais... :P :P :P [Edité le 24/6/2008 par Matt666]

Salut ! Pour l'instant la v7 est encore plus intéressante que la v8. Notamment (et surtout) à cause de bugs concernant le lisp... Normalement, une nouvelle version ce moi-ci sera disponible avec des corrections de bugs à ce niveau. Après faut pas rêver non plus !! 10x moins cher, mais ya du bug, logique. Pas trop, mais quand même. Ya des outils non dispo dans bricscad, genre les blocs paramétrables, etc. Mais c'est 10x moins cher.... Si qqs outils supplémentaires t'intéressent dans BricsCzd, dis moi je te ferai un zip avec tout le bordel. A bientot ! Matt.

Salut ! Je n'arrive pas a donner une matière comme tu l'as fait au mur... Tu fais comment, si ce n'est pas trop compliqué d'expliquer !! Merci ! A bientot. Matt.

Salut Voici un petit script pour avoir la purge dans les plugins et/ou en icone. Il est disponible ici. Je le poste là bas, puisque le forum intègre le téléchargement de fichiers directement. A bientôt ! Matt.

Salut ! C'est quand même pas Fredo6 de sketchucation ???? :o Si tu ne comprends rien à ce que je dis, c'est que ce n'est pas toi !! :cool: exemple A bientot ! Matt.

Ah aha ah Dément !! Et celle-ci ? http://images0.hiboox.com/images/2208/1pksa7hk.jpg A bientot. Matt.

Salut ! J'utilise BricsCAD depuis 3 ans maintenant, et je suis assez satisfait du résultat. Après plusieurs essais sur les autres logs concurrents, il s'est avéré que BricsCAD semblait le meilleur compromis. Maintenant je parle de la version 7 !! Pas de la version 8 encore beaucoup trop buggée. La version 7 lit le lisp mais pas le vlisp. Sinon, c'est un logiciel qui plante comme tous les autres, Autocad compris. Javoue que j'attedais beaucoup de la v8, mais elle n'est pas encore exploitable. Essayez plutot la v7, et à mon avis vous vous en ferez une autre idée. Si vous voulez des conseils, voire tous les outils persos que j'ai pu faire dessus, n'hésitez pas.. A bientot ! Matt.

Houlàlà... Ca devient extrêmement ardu, là !!!

Salut Gile ! bon bah plus besoin de chercher ! Sauf que j'ai quand même fait un truc, mais n'ayant pas AutoCAD sous la main, je ne sais pas si cela fonctionne... Si vous pouviez voir ça ?? Je ne sais même pas si c'est une bonne méthode... Ca m'a l'air un peu simplet :) C'est une méthode en autolisp, pas en vlisp. Merci ! ;;; LSTAB ;;; Génère automatiquement une liste des entités d'une des tables de la bd graphique. ;;; (LSTAB "layer") -> ("0" "structure") (defun LSTAB ( TABL / LB X ) (if (member (strcase tabl) '("APPID" "BLOCK" "DIMSTYLE" "LAYER" "LTYPE" "STYLE" "UCS" "VIEW" "VPORT") ) (progn (setq lb (cons (cdr (assoc 2 (tblnext tabl T))) lb)) (while (setq x (cdr (assoc 2 (tblnext tabl)))) (setq lb (cons x lb)) ) (if (/= (strcase tabl) "BLOCK") (setq lb (acad_strlsort lb)) lb ) ) ) ) ;;;Normalise les styles de cotes (defun c:COTZ (/ cmdecho sel n ent) (setq cmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) (command "_undo" "d") (if (setq sel (ssget "_X" '((0 . "DIMENSION")))) (progn (repeat (setq n (sslength sel)) (setq ent (entget (ssname sel (setq n (1- n))))) (if (/= 256 (cdr (assoc 62 ent))) (entmod (subst (cons 62 256) (assoc 62 ent) ent )) ) (entupd (cdr (assoc -1 ent))) ) (setq dimstyle (getvar "dimstyle")) (foreach pt (lstab "dimstyle") (setvar "dimstyle" pt) (setvar "dimclre" 256) (setvar "dimclrd" 256) (setvar "dimclrt" 256) ) (setvar "dimstyle" dimstyle) ) ) (command "_undo" "f") (setvar "cmdecho" cmdecho) (princ) ) A bientot. Matt. [Edité le 18/3/2008 par Matt666]

Ah pardon !! je n'avais pas tout lu... Je te finis le truc dès que j'ai un peu le temps ! Adtal ! Matt.

Un autre un peu plus poussée... (defun c:COTZ (/ cmdecho sel n ent) (setq cn 0 cmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) (command "_undo" "d") (if (setq sel (ssget "_X" '((0 . "DIMENSION")))) (progn (repeat (setq n (sslength sel)) (setq ent (entget (ssname sel (setq n (1- n))))) (if (/= 256 (cdr (assoc 62 ent))) (entmod (subst (cons 62 256) (assoc 62 ent) ent )) (setq cn (1+ cn)) ) (entupd (cdr (assoc -1 ent))) ) (setq cn (- (sslength sel) cn)) (if (and (< cn 2) (/= 0 cn)) (princ (strcat "\n1 cote sur " (itoa (sslength sel)) " a été modifiée.")) (if (/= 0 cn) (princ (strcat "\n" (itoa cn) " cotes sur " (itoa (sslength sel)) " ont été modifiées.")) (princ "\nToutes les cotes sont à jour.") ) ) ) ) (command "_undo" "f") (setvar "cmdecho" cmdecho) (princ) ) - Un annulation de la commande - Des messages de fin. A bientot ! Matt.

Salut. Un truc comme ça ? (defun c:COTZ (/ sel n ent) (if (setq sel (ssget "_x" '((0 . "DIMENSION")))) (repeat (setq n (sslength sel)) (entmod (subst (cons 62 256) (assoc 62 (setq ent (entget (ssname sel (setq n (1- n)))))) ent )) (entupd (cdr (assoc -1 ent))) )) (princ) ) A bientot. Matt.

Tout à fait d'accord pour le tutorial !! Même s'il en existe déjà là, ici ou encore là pour Vray. Soit-dit-en-passant, mahr.françois, si tu pouvais montrer des rendus avec autre chose que VRAY, cela pourrait être intéressant... A bientot. Matt. [Edité le 3/3/2008 par Matt666]

Salut ! Je ne connais pas Map, mais ce doit être la même chose que pour Autocad normal.. Il suffit de créer une ligne pour la ligne de la flèche, puis de créer une polyligne en changeant sa largeur en début et en remettant à zéro pour la fin. Exemple : (command "_line" "0,0" "10,0" "" "_polyline" "10,0" "la" "3" "0" "14,0" "") PS : je ne sais plus la lettre pour l'option de largeur, je crois que c'est "la", mais pas sur... J'ai pas Autocad sous la main.... Voilà ! A bientot. Matt.