zebulon_

Bon, dont acte. Ton opinion est définitive et le passif est trop grand pour que je puisse y changer quelque chose. Dommage. Si jamais tu venais à changer d'opinion, tu sauras où me trouver. Je ne suis pas quelqu'un d'obtus et tout ce que tu dis est vrai, sans aucun doute. Mais de là à jeter l'opprobre sur toute une région et tous ceux qui en sont originaire, il y a un limite. Il se trouve que j'ai été victime d'un chauffard, qui m'a renversé alors que j'étais tranquillement en train de marcher sur un trottoir. Résultat : 6 fractures aux 2 jambes. Il se trouve aussi que le conducteur du véhicule était turc. Donc, n'ayons pas peur de le dire, tous les turcs sont des chauffards. Amicalement Zebulon_

Bonjour, pour récupérer l'objet ainsi créé un (entlast) suffit (bns_tcircle ...) fonctionne avec un jeu de sélection et crée autant de cadre que de textes sélectionnés. (entlast) ne suffit donc pas sauf dans le cas où il n'y a qu'un seul objet dans le jeu de sélection. Amicalement Zebulon_

bonjour, Il y a tout ce qu'il faut dans les express tools. Regarde un peu de plus près le fichier acettxt.lsp dans le répertoire des express tools. Dans ce fichier, tu trouveras la fonction (c:tcircle) qui est la commande lancée par le menu express. Elle ne nous intéresse que moyennement, puisqu'elle n'a pas de paramètres. Par contre, vers la fin de cette fonction, on voit qu'elle en appelle une autre : (defun bns_tcircle ( ss rad ent slot offset) .... ) qui, elle, est paramétrable. Il suffirait donc de faire quelque chose comme ça : (defun c:mytcircle (/ ss) (setq ss (ssget '((-4 . "< OR") (0 . "TEXT") (0 . "ATTDEF") (0 . "MTEXT") (-4 . "OR>"))) ) ;; charger la fonction si elle ne l'est pas (if (not bns_tcircle) (load "acettxt.lsp")) (bns_tcircle ss "Variable" "Rectangles" nil 0.5) ) PS 1 : il faut enlever l'espace entre "< et OR, sinon ça ne marche pas. PS 2 : par contre, les auteurs de ce lisp n'ont pas prévu de paramétrer le calque et c'est bien dommage Amicalement Zebulon_

. Ce n'est pas coluche qui disait : "il 53 millions de français et 4 milliards d'étrangers..."Par francophile, j'ai voulu dire que j'aime la culture française. Je suis autant français que toi, mais depuis sans doute moins longtemps, et quelque fois par intermittence, parce que l'Histoire en a décidé ainsi. Personnellement je préfère être français qu'allemand, parce que si j'étais allemand cela voudrait dire que Hitler aurait gagné la guerre. Tiens, encore pour la petite histoire, en rangeant j'ai retrouvé les papiers militaires de mon grand père maternel. Il à fait sont service militaire au 1er régiment de hussards (armée française) en 1931. Sur son livret militaire, on peut lire : "connaissances en langues étrangères : allemand". Il a été mobilisé en 39 comme tous les français de sa génération. Après s'être battu courageusement contre l'ennemi, il fut fait prisonnier, comme beaucoup d'autres soldats français. Mais, comme tous les alsaciens et les mosellans, il a été libéré en tant que "Volksdeutscher" (donc , pas tout à fait allemand, mais presque) puisque l'alsace et la moselle on été annexés de fait entre temps. Personne en France n'a élevé la voie contre cette flagrante violation du droit international. Par la suite, mon grand père a donc été enrôlé dans l'armée allemande comme beaucoup de ceux de sa génération, et sur son livret militaire allemand, on peut lire "fremdsprachkentnisse : französisch" donc "connaissances en langues étrangères : français". Suivant le cas, on constate que les langues étrangères ne sont pas les mêmes. Encore une question de point de vue. Mon grand père paternel était plus âgé (né en 1892), il est donc né Allemand et à fait la 1ère guerre mondiale sous l'uniforme allemand (avec casque à pointe et tout l'attirail du parfait uhlan). En 1918, de retour de son excursion en Géorgie, il revient en Alsace française et devient français "par réintégration". Cette terminologie figurait sur sa carte d'identité française. Alors, s'il se trouve des alsaciens qui pensent être des français pas comme les autres, il y a des raisons. Je t'invite donc à venir à Strabourg, place de la République, y voir le monument qui est en son centre. Il représente une mère qui tient sur ses genoux ses deux fils morts au combat. L'un est tourné vers l'Est, l'autre vers l'Ouest. Tout le symbole du déchirement de cette région et de toute la souffrance que cela a pu représenter. Tu pourras profiter également de l'ensemble architectural wilhelminien fin XIXème que tu trouveras autour de cette place. Strasbourg reste la seule ville où une telle architecture subsiste (la bibliothèque, l'ancien parlement d'alsace-lorraine et actuel théâtre, le palais du Rhin, la préfecture, l'hôtel des impôts...). Les villes allemandes ont été trop bombardées en 1944 1945. Si tu préfères l'architecture française, il y a l'Aubette sur la place Kleber, la mairie rue Brulée, le palais du gouverneur militaire, le palais des Rohan etc... Et il y a bien sûr la cathédrale de Strasbourg dont le style est clairement inspiré des cathédrales françaises. La nef est du plus pur style gotique champenois et la façade n'est pas sans rappeler notre dame de paris, si tu fais l'effort d'imagination pour enlever le faux beffroi, la haute tour et la flèche de notre dame de strasbourg. Il y en a pour tous les gouts, si cela te dis. J'aimerais quand même te prouver que tous les alsaciens ne sont pas comme ceux que tu a la malchance de côtoyer. Amicalement Zebulon_

Si tu penses qu'on est tous d'accord avec ça... Et quand tu dis : C'est grave, très grave. Ceux que tu cites ont fait leur choix aussi. Est-ce que tous les français sont d'extrême droite parce que Le Pen est au deuxième tour de l'élection présidentielle ? Est-ce que tous les italiens sont fascistes parce qu'ils ont voté Berlusconi ? Est-ce que tous les corses sont des gens inhospitaliers parce que quelqu'un uns font sauter les villas de métropolitain ? Et les exemples ne manquent pas à travers le monde, malheureusement. Ce n'est pas parce que Le Pen fait ses meilleurs scores en alsace qu'on est tous encarté au FN. On peut être à la fois attaché à sa culture régionale, francophile, profondément européen et ouvert aux autres. Cherche un peu, tu en trouveras. Amicalement Zebulon_

et même si tu en as 10, 100 ou 1000, cela ne suffira pas. Je ne pense pas être comme ceux que tu décris (et je n'ai jamais nié qu'ils existent, comme partout, d'ailleurs) et nous sommes quand même quelques uns ici qui ne rentrons pas dans le costume que tu nous tailles. Mais, je peux me tromper... La logique est implacable. Pour prouver le contraire d'une affirmation, il suffit de trouver un et un seul contre exemple. Il sera donc plus facile pour moi de trouver un alsacien qui n'est pas comme tu dis, que pour toi de prouver que TOUS les alsaciens sont comme tu dis. Ceux qui viennent s'installer ici (et ils sont nombreux) seraient-ils tous des masochistes, retranchés dans leurs maisons ou leurs apparts, entourés d'une population autochtone hostile ? Après le Far West, le Far East, en quelque sorte. S'ils restent, c'est que je crois bien que la région leur plait. Et pas seulement le paysage... Hug Zebulon_ le Dernier des Mohicans. Mir sin d'Letschte, d'Allerletschte von denne Laetze wo noch so babbele wie 'ne der Schnawwel gewachsen ésch (Nous somme les derniers, les tout derniers qui parlent encore tel que le bec nous est poussé - Germain Muller)

si 2 exemples te suffisent pour te fixer une règle, cela me désole. Il se peut qu'en alsace le pourcentage de cons est plus élevé qu'ailleurs. Un philosophe local du nom de Martin Graff en parle bien mieux que moi ici. Que voulez-vous, on a pas de chance. "La connerie est la chose la mieux partagée au monde". Cette citation universelle concerne l'humanité en général et la tribu alsacienne en particulier.Les Alsakos ont hérité de la connerie tricolore et de la connerie germaine. Nous sommes nés doublement cons. Et, un jour que le général de Gaulle inspectait la 2ème DB, il vit inscrit sur le capot d'une jeep cette phrase "Mort aux cons". Il se retourna vers le général Leclerc et lui dit : "Vaste programme"... Mais de là à généraliser, en partant du comportement de certains, même s'ils sont la majorité, c'est un mauvais procès. Pour ce qui est de Laurent_Campedel, juste une petite précision : J'en suis le meilleur exemple, mon grand oncle ne disait pas autre chose, lui qui a enseigné le français au petits alsaciens. , Il n'y a aucun doute et c'est pareil en Alsace où l'on, pratique 3 dialectes différents (le francique mosellan, le haut alémanique et le bas alémanique). Avec, en fond de vallée vosgienne, quelques ilots romans.La particularité de l'Alsace, c'est que la vallée d'à côté c'est l'Allemagne avec 82 millions d'habitants. Cela vaut le coup, je pense, de connaitre la langue de son voisin immédiat, surtout si le dialecte pratiqué dans sa région est un dialecte germanique. Cela aide, compte tenu que le vocabulaire et la grammaire sont identiques. Moi, mon meilleur ami est Iranien, alors ... Amicalement Zebulon_ [Edité le 29/5/2007 par zebulon_]

Ce n'est pas une question de peur, c'est simplement une question de disparition d'une identité culturelle spécifique, ce que je considère comme un appauvrissement. J'aime la langue française. Ce que je n'aime pas c'est qu'on a essayé de l'imposer comme langue exclusive au détriment d'une autre. Un peu comme on a imposé le christianisme aux indiens d'amérique (mais c'était pour leur bien, n'est ce pas Benoit XVI ????) Je suis un métis culturel et je trouve cela plutôt bien, comme tout métissage d'ailleurs. Pour ce qui est des années 20 et 30, mon grand oncle était professeur de français et d'allemand au collège st-joseph de matzenheim (il n'était donc ni laïc, ni athée). Ce qui l'a amené à rédiger et à éditer des manuels de français spécifiques à notre région pour apprendre le français aux petits alsaciens de l'époque (et à leurs maitres). Cela lui a valu d'être expulsé d'alsace en 1940, comme l'ensemble de sa communauté religieuse. Voilà pour la petite histoire... Il a aussi rédigé des manuels d'allemand. Je pourrai te les prêter si tu souhaites devenir un métis aussi. Mais il y a des manuels plus modernes, maintenant... Tout ça pour la tour de pise, c'est quand même trop fort Amicalement Zebulon_

Je dis simplement que d'ici 50 ans, tu trouveras autant de personnes parlant l'alsacien que de cigognes. Ce sera donc plus facile pour des français de l'intérieur de venir s'installer en Alsace. Et quand je dis métropole et je les dis au sens étymologique (du Grec mêtêr, mère, et polis, ville) et je parle de Strasbourg qui est la capitale politique et économique de l'Alsace. D'autant plus que, moi, j'habite un patelin, au nom imprononçable, de 300 habitants, alors ... Ce n'est pas loyal de généraliser comme ça. La Bretagne, je n'y ai été qu'une seule fois, quand un copain s'y est marié. Tu vois, contrairement à ce que tu dis, j'ai au moins un amis, en plus breton (il a d'ailleurs déménagé en Vendée, pour cause de boulot...). je ne connais donc pas particulièrement la Bretagne et j'ai autant de sentiment pour la bretagne que pour l'auvergne ou la picardie. Chaque personne est différente par la culture dans laquelle elle grandit, on est donc tous différents et c'est bien comme ça. Moi, j'ai eu la chance de grandir imprégné par deux cultures différentes. C'est une richesse, pas une tare. Quand on a 2 langues maternelles (le français et l'allemand) et qu'on se débrouille en anglais, on peut bourlinguer aux 4 coins de l'europe sans trop de difficultés et c'est très bien aussi au niveau professionnel (les salaires en Allemagne et en Suisse ne sont pas ce qu'ils sont en France). Mais va trouver du boulot à Bâle ou à Stuttgart si tu ne parles pas Allemand ! Les français, avec raison, défendent l'exception culturelle française face à l'hégémonie anglo-saxonne. Tu permettras donc qu'on essaye, nous aussi, de défendre notre exception culturelle face à l'hégémonie jacobine. Mais, je crois que la bataille est perdue... Amicalement Zebulon_

J'ai un copain qui ne parle pas un mot d'allemand et qui n'a rien trouvé de mieux que d'épouser une allemande et de s'installer à Offenburg en Allemagne. Hé bien, ils parlent tous allemand dans son lotissement. Pas un qui fait l'effort de lui parler le français, à part sa femme. S'il veut s'intégrer, il faudra bien qu'il s'y mette, à l'allemand. C'est comme si tu t'installais en Chine et que tu trouverais bizarre que les chinois te parlent en chinois. Tu vas me dire que l'Alsace, c'est la France. C'est une question de point de vue. Quant à moi, je ne parle plus le dialecte qu'avec mes parents et ma grand-mère qui a 90 ans. Elle n'a jamais appris correctement le français et je ne vais pas lui demander de faire un effort à son âge. Tu vois, j'en suis arrivé à devoir faire un effort pour parler le dialecte... Parce que dans la région strasbourgeoise où je vis, la langue usuelle pour les personnes de moins de 40 ans, c'est clairement le français. Pourtant, c'est tout ce qu'il y a de plus rural. Mais cela doit être l'influence de la métropole qui transforme petit à petit les villages en banlieue dortoir. Et les enfants en maternelle ne connaissent plus que le français (à part quelques petits mohicans ...) Donc la frontière linguistique est en train de bouger... Amicalement Zebulon_

Je veux dire que dans deux ou trois générations, tu ne trouveras plus un seul enfant qui parlera le dialecte. Le rouleau compresseur de la centralisation parisienne aura atteint son but : que tout le monde parle la langue de la république. Désolé si je reviens un peu en arrière, mais si tu t'intéresse un peu à l'histoire d'un pays, tu comprendras mieux la psychologie, les réactions et les coutumes de ses habitants. Pour revenir un peu en arrière (30 ans, c'est pas beaucoup...), quand j'étais à l'école communale, nous étions punis si nous ne parlions pas français. Et pas qu'un peu, je peux te le dire.... La punition corporelle était encore d'usage. Un peu plus en arrière (après la révolution française), certain révolutionnaire trouvaient Question politesse, en Alsace il faut aller vers les gens. Si tu attends qu'ils viennent spontanément vers toi, tu pourras attendre longtemps. Avec les personnes âgées, c'est encore plus vrai. C'est comme ça, il faut faire avec. C'est pas des méridionaux, qu'est ce que tu veux... Donc, quelques petits conseils : - Bonjour se dit Bouchour(ou bien saalut, si on connais bien la personne) - Au revoir se dit Orwaar - Le matin, on dit Guatè Moriè (donc "bon matin") - Le soir, on dit Guatèn Owe (donc "bon soir") - et merci se dit merci c'est pas dur. Et, pour la petite histoire, lorsque l'Alsace a été annexée à l'allemagne en 1940, il était interdit de dire Bouchour, cela faisait trop français pour l'occupant qui exigeait un "guten tag", ou mieux encore un "heil hitler", sinon le contrevenant s'exposait à une contravention de 2 marks. Comme il y a quand même quelques alsaciens qui ont de l'humour, ils se saluaient en disant "zwei marik" (ce qui veut dire "deux marks"), ce qui leur évitait de dire bouchour, guten tag et encore moins heil hitler. Pour conclure je dirais que pour aller de l'avant, faut jeter un coup d'oeil au rétroviseur de temps en temps. C'est comme en bagnolle. Amicalement Zebulon_

ça c'est la faute à Louis XIV. Quand il à pris possession de l'Alsace, il a tout de même laissé la frontière sur la crête des Vosges. Les Alsaciens étaient donc des Français de l'extérieur. Par opposition, on parle donc en Alsace de français de l'intérieur. Au train où ça avance, bientôt on se moquera de celui qui parle le dialecte, alors ... Désolé, mais je n'ai pas compris. Et puis, si ça peut te rassurer, tous les habitants de l'Alsace sont des immigrés de plus ou moins longue date. Tu vois, ce n'est qu'une question de temps. Amicalement Zebulon_

Désolé pour l'offense !!! ;) je corrige donc : ...en tant que mosellan, ça devrait t'intéresser... comme c'est effectivement la même histoire pour les mosellans. Amicalement Zebulon_

regarde au cstb cstb sinon, il y a aussi l'afnor afnor ça coute un peu d'argent, mais on peut tout y trouver. Et comme tu es dans le cadre d'une démarche QSE, tu as certainement un petit budget pour ça ? Qualitativement Zebulon_ [Edité le 24/5/2007 par zebulon_]

Bonjour, mon prof de topographie, à l'IUT, appelait ça, si je me souviens bien, le calcul de surface par la méthode des trapèzes. Sachant que la surface d'un trapèze est : (B+b)*h/2 et qu'un polygone peut se décomposer en n trapèzes, on peut retrouver la formule magique. Par exemple, un polygone de 4 côtés dont on cherche la surface S, peut se décomposer en 4 trapèzes de surface S1, S2, S3 et S4 dont il suffit de faire la différence pour trouver S. S=S1+S2-S3-S4 et S1=(x2-x1)*(y2+y1)/2 S2=(x3-x2)*(y3+y2)/2 S3=(x3-x4)*(y3+y4)/2 S4=(x4-x1)*(y4+y1)/2 d'où 2*S=(x2-x1)*(y2+y1)+(x3-x2)*(y3+y2)-(x3-x4)*(y3+y4)-(x4-x1)*(y4+y1) on développe 2*S=x2y2+x2y1-x1y2-x1y1+x3y3+x3y2-x2y3-x2y2-x3y3-x3y4+x4y3+x4y4-x4y4-x4y1+x1y4+x1y1 on peut simplifier tous les termes en xn*yn 2*S=x2y1-x1y2+x3y2-x2y3-x3y4+x4y3-x4y1+x1y4 et on met en facteur suivant les xn 2*S=x1(y4-y1)+x2(y1-y3)+x3(y2-y4)+x4(y3-y1) cqfd, si je ne me suis pas planté en cours de route... Comme quoi, c'est une bonne école l'IUT Amicalement Zebulon_

Je me demandais aussi comment tu faisais pour avoir un message d'erreur avec une LT. Je ne connais pas bien LT et encore moins LTExtender. A priori, suivant le message d'erreur, c'est la syntaxe de (setvar ...) qui lui cause des soucis. Tu peux essayer de mettre un ; avant les lignes où il y a un (setvar...) pour que le lisp ne tienne pas compte de ces lignes. Histoire de tester... Amicalement Zebulon_

a tout hasard regarde là si tu n'as pas déjà regardé. Amicalement Zebulon_

aucun lisp ne marche avec LT Vachement pas cool... Amicalement Zebulon_

je ne pense pas... ça ne marche plus parce que tu as changé le dcl. Il y a des clés dans le dcl que le lisp utilise. Si tu as changé les ligne "key", ça va foirer forcément. Remet le comme il était et ça marchera. Enfin je pense. Et ça fait revenir l'ancien calque aussi. Amicalement Zebulon_

;;; créer un calque (defun calque (NewLayer ColLayer TlLayer) (if (not (tblsearch "LTYPE" TlLayer)) (command "_LINETYPE" "_L" TlLayer "acadiso" "") ) (if (not (tblsearch "LAYER" NewLayer)) (command "_layer" "_M" NewLayer "_CO" ColLayer "" "_LT" TlLayer "" "") (command "_LAYER" "_T" NewLayer "_ON" NewLayer "_S" NewLayer "") ) ) ;------------------------------------------------------------------------------ (defun place_cote (TYP_COT) (cond ((= TYP_COT "lin") (princ (strcat "\nCotation linéaire au 1:" (substr TYP_ECH 5))) (command "_dimlinear") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ali") (princ (strcat "\nCotation alignée au 1:" (substr TYP_ECH 5))) (command "_dimaligned") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "con") (princ (strcat "\nCotation continue au 1:" (substr TYP_ECH 5))) (command "_dimcontinue") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "lig") (princ (strcat "\nCotation ligne de base au 1:" (substr TYP_ECH 5))) (command "_dimbaseline") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ord") (princ (strcat "\nCotation ordonnée au 1:" (substr TYP_ECH 5))) (command "_dimordinate") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ray") (princ (strcat "\nCotation rayon au 1:" (substr TYP_ECH 5))) (command "_dimradius") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ang") (princ (strcat "\nCotation angulaire au 1:" (substr TYP_ECH 5))) (command "_dimangular") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "dia") (princ (strcat "\nCotation diamètre au 1:" (substr TYP_ECH 5))) (command "_dimdiameter") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "rep") (princ (strcat "\nCotation repère au 1:" (substr TYP_ECH 5))) (command "_leader") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ) ) ;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------ (defun init_cct (/ prefix cfgname cfg) (if (not TYP_COT) (setq TYP_COT "lin") ) (if (not TYP_ECH) (setq TYP_ECH "cot-50") ) ) ;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------ (defun do_accept_cct () (setq TYP_COT (get_tile "typ_cot")) (setq TYP_ECH (get_tile "typ_ech")) (done_dialog 1) ) ;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------ (defun do_cct_dimstyle (ECH) (cond ((= ECH "cot-1") "COTE-01") ((= ECH "cot-2") "COTE-02") ((= ECH "cot-5") "COTE-05") ((= ECH "cot-10") "COTE-10") ((= ECH "cot-20") "COTE-20") ((= ECH "cot-25") "COTE-25") ((= ECH "cot-50") "COTE-50") ((= ECH "cot-75") "COTE-75") ((= ECH "cot-100") "COTE-100") ((= ECH "cot-200") "COTE-200") ((= ECH "cot-250") "COTE-250") ((= ECH "cot-500") "COTE-500") ) ) ;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------ (defun do_cct_layer (ECH) (cond ((= ECH "cot-1") "COTES-01") ((= ECH "cot-2") "COTES-02") ((= ECH "cot-5") "COTES-05") ((= ECH "cot-10") "COTES-10") ((= ECH "cot-20") "COTES-20") ((= ECH "cot-25") "COTES-25") ((= ECH "cot-50") "COTES-50") ((= ECH "cot-75") "COTES-75") ((= ECH "cot-100") "COTES-100") ((= ECH "cot-200") "COTES-200") ((= ECH "cot-250") "COTES-250") ((= ECH "cot-500") "COTES-500") ) ) ;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------ ; programme principal ;------------------------------------------------------------------------------ (defun c:CCT (/ OLD_CMD WHAT_NEXT DCL_ID old_CLAY) (if (= (getvar "cmdactive") 1) (command "_exit") ) ;; (setvar "DIMASSOC" 1) ; cotation non associative ;; (setvar "DIMASSOC" 2) ; cotation associative (init_cct) (setq dcl_id (load_dialog "cct.dcl")) (if (not (new_dialog "Cct" dcl_id)) (exit)) (set_tile "typ_cot" TYP_COT) (set_tile "typ_ech" TYP_ECH) (action_tile "accept" "(do_accept_cct)") (action_tile "cancel" "(done_dialog 0)") (setq what_next (start_dialog)) (unload_dialog dcl_id) (if (= what_next 1) ;OK (progn (setq old_CLAY (getvar "CLAYER")) (setq OLD_CMD (getvar "cmdecho")) (setvar "cmdecho" 1) (setq CCT_DIMSTYLE (do_cct_dimstyle TYP_ECH)) (if (not (tblsearch "DIMSTYLE" CCT_DIMSTYLE)) (alert (strcat "Le style de cote " CCT_DIMSTYLE " n'existe pas")) (progn (calque (do_cct_layer TYP_ECH) "7" "CONTINUOUS") ;; la couleur 7 pour le calque (command "_dimstyle" "_r" CCT_DIMSTYLE) ;; restaurer le style de cote (place_cote TYP_COT) ) ) (setvar "cmdecho" OLD_CMD) (setvar "clayer" old_CLAY) ) ) (princ) ) le lisp modifié. Le dcl reste inchangé. Pour le nom des styles de cote tu regardes dans la fonction do_cct_dimstyle, si jamais tu veux changer. Et pour le nom des calques, c'est la fonction do_cct_layer. Tu inviteras chaque heureux à faire un petit geste Amicalement Zebulon_

Bonjour, il faut faire 2 fichiers : un qui s'appelle cct.lsp dans lequel tu mets toutes les fonctions lisp. Un autre qui s'appelle cct.dcl dans lequel tu mets la partie description de la boite de dialogue. Ces 2 fichiers, tu les copies dans un répertoire référencé avec : Outils/Option/Chemin de recherche de fichier de support Le mieux, c'est de se créer un répertoire C:\mes documents\mes lisps (par exemple), que tu références comme ci-dessus et tu mets les 2 fichiers dans ce répertoire. Après il suffit de taper (load "cct") pour charger le lisp et c'est le lisp qui s'occupe de charger le fichier dcl. Pour autant qu'il le trouve. D'où l'importance de mettre ces fichiers dans un répertoire référencé dans les Chemins de recherche de fichiers de support. Puis taper cct pour lancer le lisp Amicalement Zebulon_ (qui ne sait pas nager, encore moins avec un gros boulet au pied...)

Oui mais au moins, elle ne risque plus de se casser la figure. La tour de Pise est plus jolie debout qu'en ruine. Même si elle a été un peu redressée. Les allemands ne sont pas mauvais non plus, dans ce domaine... Et en tant qu'alsacien, cela devrait t'intéresser... Il s'agit de la cathédrale de Strasbourg et à l'époque, l'Alsace était allemande. Knauth est d'ailleurs resté en alsace en 1918, malgré qu'il fût allemand. Mais pas très longtemps, parce que les autorités françaises voyaient d'un très mauvais oeil les ressortissants allemands et le leur faisaient sentir. Il est donc retourné en allemagne, expulsé au cours des années 20, où il était mal vu parce qu'il était resté en alsace française... et où il est mort dans la misère. Strasbourg a quand même fini par donner son nom à une rue de la ville, dans le quartier dit des "maîtres d'oeuvre" où il côtoie Maître Erwin, Maître Hülz, Maître Dotzinger etc ... et ce n'est que justice. Celui qui restaure et qui sauve à le même mérite que celui qui construit. Amicalement Zebulon_ [Edité le 22/5/2007 par zebulon_]

et le hex (defun dec->hex (NB / RES) (if (< NB 10) (setq RES (+ NB 48)) (setq RES (+ NB 55)) ) RES ) (defun hex (NB / LST RESULTAT) (setq RESULTAT NB) (while (>= RESULTAT 16) (setq LST (cons (dec->hex (rem RESULTAT 16)) LST)) (setq RESULTAT (fix (/ RESULTAT 16))) ) (setq LST (cons (dec->hex RESULTAT) LST)) (vl-list->string LST) ) On va lasser le soin aux spécialistes d'écrire la même fonction en récursif. En plus, je n'ai pas utilisé la fonction lsh et j'ai utilisé des fonctions vl-*. C'est qu'il doit y avoir plus simple. Amicalement Zebulon_ [Edité le 22/5/2007 par zebulon_]

Pour le dec, cela pourrait être quelque chose comme ça (defun dec (NB / LST ID I RES) (setq NB (strcase NB)) (setq LST (reverse (vl-string->list nb))) (setq I 0) (setq RES 0) (repeat (length LST) (setq ID (nth I LST)) (if (< ID 58) ;; ascii du "9" (setq ID (- ID 48)) ;; ascii "0"=48 et 48-48=0 (setq ID (- ID 55)) ;; ascii "A"=65 et 65-55=10 ) (setq RES (+ RES (* ID (expt 16 I)))) (setq I (+ I 1)) ) RES ) Amicalement Zebulon_

bonjour, un peu d'algèbre... Quand on est en base 10 et qu'on écrit un chiffre, par exemple 125, ce chiffre se décompose en : 5*10^0 + 2*10^1 + 1*10^2 De la même manière, quand on est en base 2 et qu'on écrit 1010, ce chiffe se décompose en : 0*2^0 + 1*2^1 + 0*2^2 + 1*2^3 (c'est à dire 0+2+0+8 = 10) En base 16, c'est pareil. 1C0 se décompose en 0*16^0 + ©12*16^1 + 1*16^2 (c'est à dire 0+192+256=448) Voilà qui devrait être une bonne piste pour la fonction (dec "1C0"). On pourrait même imaginer une fonction (dec "CHIFFRE" BASE). Dans l'autre sens, il faut passer par les divisions entières en divisant par la base et en regardant ce qui reste. Par exemple on veut transformer 118 décimal en binaire 118 div 2 = reste [surligneur]0[/surligneur] resultat 59 59 div 2 = reste [surligneur]1[/surligneur] resultat 29 29 div 2 = reste [surligneur]1[/surligneur] resultat 14 14 div 2 = reste [surligneur]0[/surligneur] resultat 7 7 div 2 = reste [surligneur]1[/surligneur] resultat 3 3 div 2 = reste [surligneur]1[/surligneur] resultat [surligneur]1[/surligneur] et je m'arrête quand le dernier résultat est inférieur à la base. Puis je remonte la liste des restes à l'envers en commençant par le dernier résultat, donc : 1110110 Quand on est en base 16, c'est pareil. Faisons avec l'exemple décimal 448 448 div 16 = reste [surligneur]0[/surligneur] résultat 28 28 div 16 = reste 12 [surligneur]©[/surligneur] résultat [surligneur]1[/surligneur] Je m'arrête parce que le dernier résultat est inférieur à la base et je remonte la liste des restes comme tout à l'heure en commençant par le dernier résultat 1C0 Voilà pour une fonction bin ou hex (ou ce qu'on voudra). Amicalement Zebulon_ [Edité le 22/5/2007 par zebulon_]