usegomme

Salut , ce qu'a dit lovecraft en tout petit lisp : (defun c:l2p () (setvar "peditaccept" 1) (vl-cmdf "_.pedit" "_m" (ssget) "" ) (command)(setvar "peditaccept" 0) (princ)) Autrement, j'ai un lisp fait pour changer l'épaisseur des polylignes et donc également , en les transformant , de ligne , cercle et arc et on peut toujours mettre épaisseur 0..

Ceux sont les blocs avec attribut qui me posent problème.

C'est pas vraiment un plantage mais je duplique un bloc de la sélection précédente. Tant mieux si tu n'as pas ce problème.

Salut , joli travail , etude0 , les info que tu donnes sont intéressantes pour moi qui essaie de démarrer en 3d , je dis essai car là je suis encore parti sur du boulot à la noix , en plus je suis sous equipé en matos. Bref. Question mémoire , ceux sont les présentations qui me cassent la baraque. Je n'ai pas compris si ton plan d'ensemble est constitué de xref ou si tu sors les détails sur des xrefs du plan d'ensemble , car la cotation pose effectivement qlq problèmes dès lors que l'on est en vu iso. Trouver la meilleure solution n'est pas aisé. A+

Content que ça te fasse plaisir , mais essaie donc d' enchaîner des copies de bloc(s) sans sortir du lisp pour voir . A+

J'ai fait un remplacement à la réponse 12. Concernant le bug pour les blocs , c'est pareil sur la 2009. ... ( soupir !) A+

Tu as oublié d'en renommer deux. Je l'ai fait dans la version 1.2 et la commande est renommée XE Les 2 lignes pour la surbrillance sont désactivés. J'espère que ça suffira. Sinon dans la 2008 , il y a un bug avec les copies de blocs et avec le lisp original le problème et le même ???. Pour l'instant je n'ai pas la solution .

Ce matin je l'ai testé sur une 2009 fraichement installée , sans rencontrer le moindre problème ! Variable "action" parce que ce nom "action" est peut être utilisé dans une de tes appli. Pour essayer remplace tout par "xed:action" ou "a" peu importe . A moins qu'un expert sache à quoi correspond ton message.

Il te faut essayer de renommer XED en XEDIT ou autre et aussi peut être de renommer la variable "action" , je ne la sens pas celle-là , xed:action ça fera pro. A+

J'ai beaucoup aimé le procès de l'humanité , la fin m'a attristé même si c'est plutôt satirique, j'ai pris ça au 1er degré , faut dire que j'aime les histoires qui finissent bien. Finalement le thème est bien trouvé , avec une sévère critique de nous autres humains , mais je trouve que le parallèle avec les animaux est excessif car nous n'avons pas la même raison d'être . Et quand il est dit que l'humanité est dans l'adolescence , ça me semble juste. Quant a la destruction de la planète par accident (l' action d'un dictateur fou) , cela n'ai pas possible sans que Dieu laisse faire et dans ce cas là ce n'est plus un accident mais l' aboutissement d'une déchéance de l'humanité dans des voies mauvaises sans possible retour ne laissant plus à Dieu d'autre solution qu'un déluge pour nettoyer tout ça et repartir sur des bases saines. (Dans le cas du livre ce serait un déluge de feu nucléaire). Que je dise cela et en même temps que Dieu est Amour peut en scandaliser certains. Il faut bien comprendre que ce qui est réel en nous c'est notre âme et notre conscience , et que j'ai dit que Dieu n'avait plus d'autre solution. L'existence terrestre n'est pas une finalité mais un moyen d'atteindre le dessein que Dieu a pour nous. Bien sûr il y a la souffrance mais les coeurs de pierre ont besoin d'être concassés et la souffrance et le signe de l'erreur et de la voie mauvaise qui nous éloigne de la VIE , la réelle. Comme Dieu ne peut faire autrement que de nous laisser libre , cela à cause du but à atteindre, il nous faut la souffrance comme avertisseur , exactement comme la douleur qui nous avertie que l'on a posé la main sur quelque chose qui est en train de nous brûler.

J'ai trouvé ce récit trés intéressant parce qu'elle parle d'être de lumière et de l'amour qu'elle a ressenti. Sinon dans le même style de ce qu'a dit Bonuscad , j'ai lu des récits où la personne dans le coma voyait tout ce qui se passait comme si elle planait au dessus des secouristes ou médecins. Je peux aussi vous en raconter une qui n'est pas une EMI ,mais tout de même surprenante: C'est un copain d'enfance avec qui j'étais cul-et-chemise qui un jour est venu me voir un peu affolé me racontant que se sentant mal en point , il s'était allongé sur son lit quand tout à coup "il est sorti de son corps" et s'est vu "de l'extérieur", allongé sur le lit avant de revenir à une situation normale. De la part d'un intello athé ce n'est guère sujet à caution surtout avec la tête qu'il faisait car c'était "frais du jour". Non , mais j'ai lu "nos amis les humains" . [Edité le 16/9/2008 par usegomme]

Bonjour Je suis dans la même config que lesourd2 que je remercie au passage, et donc je ne sais pas ce que c'est . Désactive les 2 lignes que j'ai mis pour la surbrillance avec un point virgule pour voir. Sinon il y a peut être un doublon avec tes applications déjà chargées. ---> irfcld quoitesse ?

Je viens de remplacer le code par une version améliorée, + une commande au nom barbare "scale-ref" pour avoir echelle référence directement car c'est ce que j'utilise presque toujours.

Avant hier , par hasard , j'ai lu un article fort intéressant traitant d'une EMI , expérience de mort éminente , dans le magasine Maxi n°1139 du 25 août. C'est Isabelle qui parle : Les médecins l'on ramenait grâce aux électrochocs . Il y aurait en France 2,5 millions de personnes ayant vécu ce genre d'expérience. La plupart des médecins disent que c'est une hallucination produite par le cerveau en souffrance. MAIS des scientifiques s'étonnent que le cerveau continue à produire cette hallucination, alors que souvent l' encéphalogramme reste plat et que le cerveau est donc sans activité. Bon d'accord , c'est pas dans les éprouvettes , ni dans les équations , mais est-ce vraiment moi qui ai des oeillères ?

Salut , voilà "xedit" revu selon ta demande Lilian , il y a encore qlq amélioration à faire notamment avec la cde miroir , mais pour l'essentiel ça marche bien. Version améliorée ;; adaptation v 1.2 par usegomme de XEDIT auteur inconnu (defun nsel-xe () ;; nouv objet-> nouv sélection (setq sel nil sel (ssadd)) (while (entnext elast) (ssadd (entnext elast) sel) (setq elast (entnext elast)) ) ) (defun c:xe (/ sel pdr npdr act elast nelast) (setq act T sel (ssget)) ;;;; (if sel (command "_move" sel "")) ;; pour surbrillance (if sel (setq pdr (getpoint "\nSpécifiez le point de base:"))) ;;;; (command) ;; fin surbrillance (while (and sel pdr act) (initget "Copier Deplacer Rotation Echelle Scale-ref Miroir Pt-base Quitter") (setq act (getkword "\n [Copier/Deplacer/Rotation/Echelle/Scale-ref/Miroir/Pt-base/Quitter] :")) (cond ((= act "Copier") (setq elast (entlast)) (command "_copy" sel "" pdr pause) (setq pdr (getvar "LASTPOINT")) (nsel-xe) ) ((= act "Deplacer") (command "_move" sel "" pdr pause) (while (not (zerop (getvar "cmdactive")))(command pause)) (setq pdr (getvar "LASTPOINT")) ) ((= act "Rotation") (setq elast (entlast)) (command "_rotate" sel "" pdr pause ) (while (not (zerop (getvar "cmdactive")))(command pause)) (setq nelast (entlast)) (if (not (equal elast nelast))(nsel-xe)) ) ((= act "Pt-base") (setq pdr (getpoint "\n Spécifiez le nouveau point de base :")) ) ((= act "Echelle") (setq elast (entlast)) (command "_scale" sel "" pdr pause ) (while (not (zerop (getvar "cmdactive")))(command pause)) (setq nelast (entlast)) (if (not (equal elast nelast))(nsel-xe)) ) ((= act "Scale-ref") (setq elast (entlast)) (command "_scale" sel "" pdr "_r" ) (while (not (zerop (getvar "cmdactive")))(command pause)) (setq nelast (entlast)) (if (not (equal elast nelast))(nsel-xe)) ) ((= act "Miroir") (setq elast (entlast)) (command "_mirror" sel "" pause pause pause) (setq npdr (getpoint "\n Nouveau Point de base <>:")) (if npdr (setq pdr npdr npdr nil)) (setq nelast (entlast)) (if (not (equal elast nelast))(nsel-xe)) ) ((= act "Quitter") (setq act nil) ) ) ;;; fin cond ) ;; fin while (princ) ) ;;; fin xe [Edité le 15/9/2008 par usegomme] [Edité le 17/9/2008 par usegomme]

Salut Tramber Sur la 2008 c'est un bug volontaire puisqu'il faut taper : ef pour réference . Pas franchement pratique car inhabituel et il faut être attentif à la ligne de cde.

Il n'est pas de moi ce bon lisp qui a au moins 10 ans , je ne connais pas l'auteur, je ne me souviens plus où je l'ai récupéré. Je peux te le passer en menu contextuel ,mais il te faudra patienter un peu , ça implique également le retour à l'usage de la touche "entrée pour l'utilisation clavier. A+

Salut Lilian , essaye ça : (defun c:XEDIT (/ SS1 P1 IN INP YN ELAST groupobj) (setq SS1 nil SS1 (ssget) P1 (getpoint "\nPoint de Reference:") IN 1 YN 1) (setq groupobj (getvar "pickstyle")) (setvar "pickstyle" 0) ; groupe inactif (while YN (while (/= IN 2) (prompt "\nCopier/Deplacer/Rotation/Echelle/Miroir/Pt ref/Quitter :") (setq INP (grread) IN (car INP)) (if (= IN 2) (setq YN (strcase (chr (cadr INP)))))) (cond ((= YN "C") (setq ELAST (entlast)) (command "_COPY" SS1 "" P1 pause) (setq P1 (getvar "LASTPOINT") SS1 nil SS1 (ssadd)) (while (entnext ELAST) (ssadd (entnext ELAST) SS1) (setq ELAST (entnext ELAST)))) ((= YN "D") (command "_MOVE" SS1 "" P1 pause) (while (not (zerop (getvar "cmdactive")))(command pause)) (setq P1 (getvar "LASTPOINT"))) ((= YN "R") (command "_ROTATE" SS1 "" P1 pause ) (while (not (zerop (getvar "cmdactive")))(command pause)) ) ((= YN "P") (setq P1 (getpoint "\n-XEDIT- Nouveau Point de Reference :"))) ((= YN "E") (command "_SCALE" SS1 "" P1 pause ) (while (not (zerop (getvar "cmdactive")))(command pause)) ) ((= YN "M") (setq ELAST (entlast)) (command "_MIRROR" SS1 "" pause pause pause) (setq P1 (getpoint "\n-XEDIT- Nouveau Point de Reference :") SS1 nil SS1 (ssadd)) (while (entnext ELAST) (ssadd (entnext ELAST) SS1) (setq ELAST (entnext ELAST)))) ((= YN "Q") (setq YN nil SS1 nil) (gc))) (setq IN 1)) (setvar "pickstyle" groupobj) ; groupe objet restore (princ)) Les options de départ fonctionnent avec une seule touche , pas besoin de taper "entrée". Pour "référence" le fonctionnement est ordinaire. Il faut penser à quitter par la touche "Q".

Pour les conformistes qui n'auraient pas pris le temps de regarder les vidéos sur Dailymotion et qui , je n'en doute pas , me prennent pour un agité du bocal . Je voudrais signaler 2 faits incontestables et que l'on retrouve dans le film. 1: Que le corps du sphinx (proche des pyramides) est trés érodé par les eaux de pluie , alors que la tête est en bon état , celle-ci ayant été retaillée par les égyptiens de nos livres d'histoire (post déluge). C'est d'ailleurs quelque chose qui frappe quand on le voit en vrai. 2: On ne sait pas évider l'intérieur des vases en albatre ou granit comme le faisait les egyptiens. Alors les mauvais élèves , à la vidéo . Et plus vite que ça !

Mazette , j'ai fait la bourde qu'il fallait pas , milles escuses . J'ai pas pensé 5 mn que lili était masculin . Bon comme ça , au moins je vais arrêter de fantasmer :cool: Cadxp c'est pas le téléphone rose. On est là pour bosser. Encore désolé lili2006 , j'espère qu'en tant que modérateur tu ne vas pas me coller un PV. [Edité le 9/9/2008 par usegomme]

Mais de rien , gente dame , ce fût un plaisir.

Pour que le bout de ferraille dans le bloc beton reste sur le calque fer , j'ai modifié le lisp. Ca me semble être mieux , ta question aura été utile. ;; usegomme 08-09-2008 ;; decompose en concervant le calque de l'objet ;; et concerve les calques internes au bloc autre que 0 (defun c:lexplode (/ js ent lent typent ss ca ca0 ca2 i1 i2) (setvar "cmdecho" 0) (setq ca0 (cdr (assoc 70 (tblsearch "layer" "0")))) (if (>= ca0 4)(command "_layer" "_u" "0" "")) (setq js (ssget)) (setq i1 0) (repeat (sslength js) (setq ent (ssname js i1)) (setq lent (entget ent)) (setq typent (cdr (assoc 0 lent))) (setq ca (cdr (assoc 8 lent))) (command "_explode" ent) (if (not (zerop (getvar "cmdactive")))(command)) (if (and (setq ss (ssget "p"))(/= typent "3DSOLID") (/= typent "SURFACE")(/= typent "REGION")) (progn (setq i2 0) (repeat (sslength ss) (setq ent (ssname ss i2)) (setq ca2 (cdr (assoc 8 (entget ent)))) (if ( = ca2 "0") (command "_change" ent "" "_p" "_layer" ca "") ) (setq i2 (1+ i2)) ) ) ) (setq i1 (1+ i1)) ) (if (>= ca0 4)(command "_layer" "_lo" "0" "")) (setvar "cmdecho" 1) (princ) )

Merci autospeed , c'est vraiment très intéressant , je dirais même à voir absoluement . De plus cette histoire de déluge me trottait dans la tête depuis qlq temps. Je ne doutais qu' il devait être à la fin de la période glaciaire , mais comme je savais aussi que la grande pyramide était avant de déluge , j'étais un peu embrouillé , j'aurai du penser que Khéops était un "squatter".

Salut , je vois que tes demandes son toujours dans le même état d'esprit. Tu as du mal à comprendre qu'on ne peut pas te faire un logiciel de tuyauterie et comme je l'ai dit juste au dessus , je suis bricoleur, pas programmeur. Dans le lisp ,il y a l'option épaisseur , mais il faut la redéfinir pour chaque changement de diamètre. Sinon il faudra en passer par les normes et définir une épaisseur par diamètre , ça c'est possible. Intégré le calo au lisp serait compliqué , mais il est possible de faire qlq chose à part. A voir selon quelle méthode. Quant au comptage ,il ne faut pas y penser, je ne sais d'ailleurs pas comment faire.

Bonjour C'est simplement le sujet de la discussion. Si on insère un bloc "beton" dans le calque "mur", et qu'ensuite on décompose ce bloc , les éléments constituant le bloc vont se retrouver sur le calque 0 (sauf si ceux-ci avaient un calque(s) spécifique(s) à l'intérieur du bloc. Le lisp "lexplode" va décomposer le bloc "beton" et remettre tous ses constituants dans le calque "mur". Petit inconvénient , si à l'intérieur du bloc "beton" ,des lignes sont du calque "fer" , aprés "Lexplosion" , elles vont être également placées dans le calque "mur" , sauf si ces lignes font parties d'un bloc "ferraillage" à l'intérieur du bloc "beton" car le bloc "ferraillage" ne sera pas décomposé à moins de remettre un coup de manivelle. Ouf !