Bred

Encore merci ! Double merci pour les explications !

Merci... Mais... c'est une double récursivité ???.... jamais vu ça... déjà que je n'arrive pas à en faire une normale toute simple. :casstet:

... ah, tiens...: (doubles-fuzz '(16.5 25.5 20.9 30.0 4.88 4.88 4.883) 0.1) ne fonctionne pas.... = nil

parfait.... merci. :mad2: ... j'en étais très loin...

Salut (gile), je voulais utiliser tes routine pour réalise une routine identique à 'DOUBLES", mais en y mettant une tolérance. J'ai donc fusionner 2 de tes routines récursive... mais je ne comprends pas, cela ne fonctionne pas.... ;;; MEMBER-FUZZ Comme MEMBER avec une tolérance dans la comparaison par (gile) (defun member-fuzz (expr lst fuzz) (while (and lst (not (equal expr (car lst) fuzz))) (setq lst (cdr lst)) ) ) ;;; DOUBLES Retourne la liste des doublons d'une liste (/ (gile)) (defun doubles-fuzz (lst fuzz) (if lst (if (member-fuzz (car lst) (cdr lst) fuzz) (cons (car lst) (doubles (cdr lst))) (doubles (cdr lst)) ) ) ) (doubles-fuzz '(-0.182862 -0.182862 -0.182862 -0.182862 24.6079 11.1322 37.642 -0.19) 0.5) donne (-0.182862 -0.182862).... alors que normalement, cela aurait dû donner (-0.182862 -0.182862 -0.182862 -0.182862 -0.19)... J'ai essayer de refaire tout à 0 en créant une fonction récursive à ma sauce... mais, ma sauce récursive n'a jamais réussis à prendre..... Merci d'avance.

... bon, ben ça n'avais pas l'air si urgent que cela... j'ai répondu trop tard hier soir ? ou alors la réponse n'est pas suffisante ?.... :P :exclam:

Je n'ai pas écris que la question étais idiote, j'ai juste remarqué que le fait de présenter votre demande pour une raison de programme de production n'étais justement pas une chose à faire. Il n'est pas question de vol de programmes, mais juste de principe. Vous êtes programmeur, vous êtes donc plus à même de le comprendre : - Si une demande d'aide est faites à titre privé, pas de souci (mais je vois mal qui pourrais avoir besoin de cela à titre privé). - Si une demande d'aide est faite à titre personnel pour une aide professionnel, mais dans le but d'enrichir les connaissance de la personne afin qu'il réussisse, c'est la raison d'un tel forum (et en parallèle vous pouvez mettre le milieu éducatif.) - Par contre, et c'est là où ça coince, vous faites une demande non pas pour vous, mais directement pour votre société. C'est à dire que ce que vous demandez ne servira pas à vous personnellement afin de progresser à votre poste, mais votre demande touche directement au bénéfice de votre société, et qui plus est celle-ci vous payes, puisque vous êtes programmeur, pour savoir ce genre de chose.... Si dans mon travail de technicien, j'apprenais que certains proposerait de réaliser des études, des projets, des notes de calculs, des plans d'exécutions gratuits, cela me contrariais, et je ne comprendrais pas la raison, sauf celle de faire du mal à ceux de mon métier, et de me mettre au chômage.... ... Je vais être large d'esprit, et je vais donc partir du principe que l'aide ne servira pas directement à votre boite, mais que cela vous permettra de présenter la puissance du lisp afin d'en mettre plein la vue et vous permettant ainsi de pouvoir demander une formation, ou de faire appel à un professionnel.... à vous de jouer donc : ;;; selectionner toutes les hachures de couleur verte (setq sel (ssget "_X" '((0 . "HATCH") (62 . 3)))) ;;; et les mettres dans un calque hachure_remblai (setq i 0) (repeat (sslength sel) (setq hach (entget (ssname sel i))) (entmake (subst (cons 8 "hachure_remblai") (assoc 8 hach) hach)) (setq i (1+ i)) ) ;;; et de sélectionner les hachures de couleur rouge (setq sel (ssget "_X" '((0 . "HATCH") (62 . 1)))) ;;; et de les mettre dans le calque hachure_déblai. (setq i 0) (repeat (sslength sel) (setq hach (entget (ssname sel i))) (entmake (subst (cons 8 "hachure_déblai.") (assoc 8 hach) hach)) (setq i (1+ i)) ) ... pas tester, la sélection se fait pour toutes les hachures, enlevez le "_X" si à la demande, version entmake permettant de créer le calque automatiquement, par contre il n'y a pas de vérif pour savoir si le calque est verrouillé, gelé ou autre....

salut, c'est idiot... parce que c'est très simple... Mais cette phrase Va te valoir aucune réponse.... normalement. Nous ne sommes pas là pour voler du travail aux programmeur de métier. Si vous voulez absolument ce programme pour une raison d'efficacité en production, payer quelqu'un qui vous le réalisera. cordialement.

Merci !!!!!.... :D

Salut, C'est vrais que je me suis trop vite exprimé. "croissant" n'est pas le bon terme. Ce que je recherche c'est : Ordonner de la distance la +petite à la +grande une liste de points par rapport à un point. Encore merci.

Salut, J'avais fait (ou j'avais récupéré ici) une routine qui permettait de ranger les coordonnées 3D contenus dans une liste, par ordre croissant, à partir d'un point (contenu dans cette liste)... plus moyen de mettre la main dessus.... Je crois que c'était sortis d'un challenge d'ordre de sommet de polyligne, ou un truc dans le genre... Si vous aviez ça ça m'aiderais grandement au lieu de me le retaper.... Merci.

Salut, avec la commande "delai". Exemple : (command "delai" "2000")

Salut, Tu remplis la liste lst avec append : (setq lst nil) (foreach element '((1 . 9.55) (2 . 9.75) (2 . 10.0) (1 . 11.0) (2 . 11.25) (1 . 11.50) ) (setq lst (append lst (list element))) ) Donc, tu te trouves avec une liste de tes éléments passé par foreach dans la variable lst. [Edité le 12/10/2010 par Bred]

... bon, ben en fait c'étais pour cela que ça ne fonctionnais pas : j'avais configuré un "type de ligne par couleur dans le style de tracé", donc la variable PSLTSCALE n'avait aucun action sur l'impression... Encore merci.

oui... Merci. c'est vrais qu'à l'écran cela change, mais pas à l'impression... C'est pour cela que je pense que je dois avoir un truc avec le style de tracé. Je regarde ça et je vous tiens au courant.

...Merci, mais ça ne fait rien... Je suis en train de me demander si je n'ai pas un conflit entre le Type de Ligne de l'objet et le type de ligne par couleur configuré dans le style de tracé....

Salut, j'ai pas mal chercher dans le forum, et j'avoue ne pas avoir compris ce que j'ai trouvé (car les manip à faire n'ont rien fait...) j'ai testé touts les variables que j'ai trouvé... nada.... je cherche à avoir à l'impression, à partir de l'EP, que l'echelle du type de ligne par rapport à l'échelle de la fenêtre s'adapte : Exemple : j'ai une ligne en pointillé. Une fenêtre à l'échelle 1 en EP pointant sur cette ligne une autre fenêtre à l'échelle 2 pointant sur cette même ligne. je voudrais qu'à l'impression - la longueur "d'un pointillé" soit la même pour les 2 fenêtres.... ou - le même nombre "trait de pointillé" dans les 2 fenêtre (si dans l'une j'ai 5 "grands traits", je voudrais avoir 5 "petits trait" dans le fenêtre à l'échelle plus petite). Bien sûr, c'est le même trait, pas de manip sur les calques, etc..... Doit bien y avoir une manip rapide (surtout quand on a une multitude de fenêtres à différente échelle...) http://img11.hostingpics.net/pics/9195642010_10_08_111005.jpg Edit : ç'est quoi ce bordel ? pourquoi y'a deux messages identiques qui se crées dans le forum ? [Edité le 8/10/2010 par Bred]

Salut, je ne vos pas trop le rapport direct en AutoCAD et le Sharepoint. J'utilise à mon boulot, mais comme nous avons un débit lamentable ce n'est pas très agréable... Après, ça reste convivial.

Salut, Si ça peus t'aider : En lisp, pour changer le nom du fichier d'impression (dans option - onglet "Tracer Publier") : (vla-put-DefaultPlotToFilePath (vla-get-Output (vla-get-Preferences (vlax-get-acad-object))) "[i]c:\\Test\\[/i]") (il y a peut-être une variable plus rapide, mais je ne la connais pas.) Donc, avant de lancer ton impression, il faut que tu changes cette valeur (si tu veux la récupérer c'est avec (vla-get-.....)) pour la tester et l'incrémenter si besoin.

Salut, Et en changeant l'échelle de la fenêtre en EP ?

+12 000 http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=28341#pid

Oui, c'est vrais, je m'en rappel ! En fait je crois que je faisais un test avec les fonctions "(vl-catch-all***

Salut, Je ne pense pas dire de bétise à te signalant que l'EP est une fenêtre ! Donc tu ne peux pas la supprimer. Mais de mémoire elle a un nom bien spécifique, tu peux donc la filter (désolé, mais je n'ai pas trop le temps de chercher le nom là...) [Edité le 6/9/2010 par Bred]

salut, Vérifie déjà que la variable ACADLSPASDOC est à 1.

Salut, tu peux utiliser la fonction "rechercher" de windows, avec l'option "Un mot ou une phrase dans le fichier". Mais comme les fichier .lsp ne sont pas recoonu, il faut que tu rajoutes dans la base de Registre : HKEY_CLASSES_ROOT\.lsp\PersistentHandler\(Default) = {5e941d80-bf96-11cd-b579-08002b30bfeb}