Tramber

As-tu correctement désactivé les ACCROBJS ? Sinon, vite vu, je te prie de supprimer : (setq xo (rtos (car pnt) 2 4))(setq x1 (atof xo)) (setq yo (rtos (cadr pnt) 2 4))(setq y1 (atof yo)) au profit de (setq x1 (car pnt) y1 (cadr pnt)) Passer par des STRING est inutile et dévaste la précision.

Sinon y a possiblité de magouilles : export en DWF. Copie des entités dans le susdit et collage spécial entités AutoCAD. Ou encore attacher ce DWF en X-Ref mais malheureusement on ne peut lier un DWF. Je cherche à te faire éviter EXPORTPRESENT en déplorant que ca rame chez toi. Est-ce que ca rame autant pour une simple impression ? Je pense que c'est une question à se poser pour ton dessin.

(defun code(n)(last n)) (defun subcode(n)(substr(code n) 1 (1- (strlen(code n))))) (defun subind(n)(atoi(substr(code n)(strlen(code n)) 1))) (setq liste_tetes(vl-remove-if-not '(lambda(x)(zerop(subind x))) l_entree)) (mapcar '(lambda(p) (vl-remove-if-not '(lambda(x)(=(subcode p)(subcode x))) (reverse(cond((cdr(vl-member-if'(lambda (x) (= (last x)(strcat(subcode p)"0"))) (reverse(member p l_entree))))) ((reverse(member p l_entree))))))) liste_tetes) Nouvelle proposition. Je fais encore quelques tests. Ca devient balaise :blink:

Ah, ta remarque est juste concernant mon code. J'aurais dû y penser. A voir demain si j'ai 5 minutes....

On a bien compris B) Au client d'assumer ! J'ai fait des études de circuit en charge quand j'étais étudiant. Des méthodes de noeuds et Cie. Mais en théorie Maths et meca-flux ca pouvait déjà se compliquer assez vite. Bon courage...

Il y a un RAL de peinture adapté chez les antennistes. Je ne le connais pas mais il est censé rendre pas trop mal. Si seulement la nature n'avais qu'un vert, et pas changeant, ca serait quand même plus simple ! Et tu ne peux pas suivre une pente ou le faire plus haut ton ouvrage ?

(setq l_entree '(("1" "748.508" "749.573" "31.362" "740") ("2" "747.758" "749.56" "31.028" "780") ("3" "747.162" "752.98" "31.083" "783") ("4" "748.025" "753.042" "31.464" "743") ("5" "747.212" "757.872" "31.657" "743") ("6" "746.384" "757.796" "31.234" "780") ("7" "745.738" "761.566" "31.345" "783") ("8" "746.639" "761.686" "31.74" "743") ("20" "740.952" "786.986" "31.772" "4010") ("21" "740.575" "786.391" "31.818" "4013") ("22" "740.955" "786.738" "31.845" "3920") ("23" "740.498" "786.353" "31.817" "3923") ("31" "744.11" "783.727" "31.979" "930") ("32" "742.181" "783.418" "31.942" "933") ("33" "741.756" "786.621" "32.026" "933") ("34" "743.499" "786.977" "32.015" "938") ("36" "742.774" "791.674" "32.012" "900") ("37" "743.795" "786.223" "31.943" "903") ("38" "744.837" "780.736" "31.901" "903") ("39" "745.959" "774.738" "31.853" "903") ("40" "747.14" "768.723" "31.788" "903") ("41" "748.16" "763.341" "31.727" "903") ("44" "749.241" "757.617" "31.649" "903")) ) (defun code(n)(last n)); (code '("1" "748.508" "749.573" "31.362" "740")) (defun subcode(n)(substr(code n) 1 (1- (strlen(code n))))) ; ( subcode '("1" "748.508" "749.573" "31.362" "740")) (defun subind(n)(atoi(substr(code n)(strlen(code n)) 1)));( subind '("1" "748.508" "749.573" "31.362" "740")) (setq liste_tetes(vl-remove-if-not '(lambda(x)(zerop(subind x))) l_entree)); liste avec tous les 740, 780, 4010, etc (setq liste_restants(vl-remove-if '(lambda(x)(zerop(subind x))) l_entree)); le contraire ;;;assemblage de chaque tête de liste commencant par indice zéro avec le reste ayant un subcode commun et ainsi de suite. (mapcar '(lambda(p) (append(list p)(vl-remove-if-not '(lambda(x)(=(subcode p)(subcode x))) liste_restants))) liste_tetes) C'était pas si difficile. Je ne fais plus de boucles imbriquées depuis longtemps. Dis-moi : Si ca marche Si tu veux des explications Petites remarques : je n'ai pas éliminé les listes ne contennant pas de "8" à la fin. C'est facile, veux-tu le faire ? On est d'accord, on suppose que ton listing envoie les infos dans le bon ordre. Si j'ai bien compris, le tout premier indice n'a pas d'importance. Veux-tu aussi que je t'aide à les éliminer ?

Je pense que ca doit être tout à fait accessible. Mais je dois dire aussi que les explications m'embrouillent. Voudrais-tu recommencer, simplement et autrement ?

ARC+ est Israëlien, c'est rare, un produit qui ne soit pas US, F, GB ou D !? C'était juste une anecdote. C'est un produit ancien, très ancien, mais qui survit.

Un nouveau site ! Pour mon cas, depuis le site MSN de Patrick, c'est la V3.0 ! On se sent vieux hein Didier avec tous ces non-fumeurs et ces nouvelles technologies ! 'tain j'vais le twitter çui-là !

Je m'amuse bien à cliquer sur des gens pour qu'ils deviennet des amis. J'obtiens toujours une page d'erreur mais ca fonctionne. (Une fois, j'ai obtenu un doublon sans faire de fausse manip.) Mais c'est quand même troublant d'avoir sa boite pleine de message de ces amis qui viennent me dire qu'ils créent une nouvelle conversation personnelle avec moi alors que c'est moi qui le propose... :(rires forts):

Alors c'est qu'il y a bien demande des valeurs d'attributs sinon ton COMMAND planterait. PEut-être ATTECRAN.... mais nb3*1 est bien sous forme de string ? car c'est probablement necessaire. Sinon, c'est que j'ai pas compris :blink:

L'extrusion est la base de la programmation en 3D. Mais sache que la commande ALIGNER ou ALIGNER3D (pour moi c'est idem, sans faire dans le détail, en tous cas ce que je dis est vrai pour l'ancienne) est un lisp, enfin une commande externe. Bref non pas une commande interne. Bon courage

Ca m'amuse. Quand j'ai 5 minutes (comme d'hab', pas souvent) je tatonne un peu ces fonctionnalités. Dans quelques temps on sera tous blasés... Mais tous ces trucs demandent un peu d'orga. Et en plus il va falloir gérer les amis :(rires forts): Dans mon club de 2CV, je le dis souvent, j'ai pas d'AMI (comprendront certains)

Non. C'est Bertrand à l'envers...

.... les imbéciles :angry:

J'étais plus calé autrefois mais l'intégration du DWF dans IE est bien plus ancienne. Il y a plusieurs techno dont celle qui installe un plug, celle qui communique avec un serveur Autodesk, etc. J'ai envoyé pendant des années de 2006 à 2010 des 3D en DWF à des clients ni connaissant rien. Pour certains j'ai même posé le dwf en ligne intégré à une page. Easy. Consulte le tableau.

Ouais. Et il y aussi depuis longtemps la possibilité d'intégrer le DWF dans des pages HTML avec appel auto au plug. si pas installé (XP). Sinon je pense aussi à Edrawing qui était pas mal et gratuit en son temps...

Il suffit de poser ta X-Ref sur un calque. Et dans chaque fenêtre de chaque présentation de gérer la visiblité par fenêtre... Tu connais au moins ? :casstet: En entrant dans une fenêtre et en déroulant la liste des calques on trouve ce paramètre supplémentaire sous la forme d'un nouvel icone avec son petit soleil....

Pour un truc comme cela je fais une selection. Je lance CHPROP, je fais une selection et je change le calque (si le nom n'est pas trop complexe). Puis je copie. et je recommence. Mais j'utilise toujours P comme Précédent dans les manips de COPIER et CHPROP et ça gaze très vite. Je ne fais de la souris qu'à la première selection. Que du clavier après. Faire un programme se justifie-t-il ?

Il y a RESVUE et FACETRES à régler.

Lance donc FDELIM

Tu ferais mieux de sous-traiter à quelqu'un qui programme un peu et qui ne soit pas seulement équipé de LT ! Tu as combien de fchiers à traiter ?

[marquee] Des années qui s'envolent....[/marquee] (balise "marquee") Ca sera plus pareil même si ca sera pareil !