VDH-Bruno

Re, LIENSOLE en fr effectivement mais il faut que tu ai grippé un objet OLE (ou avoir un objet OLE dans ton dessin) pour avoir acces à la commande

Bonjour, Je n'ai pas LT, mais sur les anciennes versions (donc les récentes aussi je suppose..), cela pouvait ce faire via la commande d'édition des liens OLE (_olelinks), dans la capture d'écran jointe tu verras entouré la ligne à modifier qui représente l'onglet puis la plage de sélection de ton tableau excel, que tu peux augmenter ou diminuer. A+ Bruno

Oui Didier avec un schéma c'est plus clair, mais avec le même type de ligne, même couleur et même épaisseur pour des superpositions de ligne mon interprétation du problème ressemble plus à quelque chose comme cela: Je pense que Zeberb ne manquera pas de nous préciser tout cela.. A+ Bruno

Bonjour, Si le type de ligne est le même rien ne t'empêche d'insérer des sommets supplémentaires à tes polylignes de façon à avoir des sommets confondu sur les segments qui se chevauchent, ce qui devrait résoudre tes problèmes de représentation graphique. A+ Bruno (Ps: un jolie petit sujet pour une routine lisp ;) )

Bonjour, Il est pour moi ce post là :) , si je peux pendant mes congés d'été, je me remettrais spécialement au Lisp pour vous faire une réponse sur ce sujet type -> Combiner les sélections personnalisés A+ (Ps: (gile) de mémoire il me semble que je t'avais renvoyé ma version de ton fichier spécial sélection)

Oui c'est un grand dommage pour moi, j'espère y revenir si je retrouve un environnement professionnel plus favorable.. Il parait qu'il n'y a pas de mauvais élèves mais de mauvais professeurs, sur l'aspect fonctionnel du langage et de ma progression j'ai eu la chance de croiser un Maître en la matière, je t'en suis extrèmement reconnaissant. :) Amicalement Bruno (Ps: Même si je ne suis plus très actif sur le forum, je le lis toujours)

(cons 410 (getvar "ctab")) Pour un filtre par espace de présentation ;) Toujours un plaisir même si je ne lisp plus.. :(

Bonjour, http://cadxp.com/topic/35057-selections/ Regarde la réponse n°10 de Bryce, ou n°5 de BonusCAD A+

Bonjour, Pour le jeu (defun f (a l / f) (defun f (a l n) (if l (cons (- n (length l)) (f a (member a (cdr l)) n)))) (f a (member a l) (length l)) )

Merci Patrick_35 j'aurais aimé mais non, c'est disons un peu compliqué pour moi professionnellement en ce moment... A+

Slt, Pour le jeu ma variante.. _$ (vl-list* mavar1 mavar2 nil) (50.0 70.0) Edit Oupss mal lu désolé, ma réponse est hors sujet, décidément ça va de mal en pis…

Oupss, j'ai lu en diagonal, merci Patrick_35 (foreach x (layoutlist) (or (= x (getvar 'CTAB)) (command "_LAYOUT" "_DEL" x))) ;) A+

Bonjour, Pour répondre à la question comment adapter le code? Il suffisait de jouer avec le réglage de la variable TILEMODE à 1 en début de code au moyen de l'expression suivante: (setvar 'TILEMODE 1) Sinon en sacrifiant la performance à la concision, le code peut se résumer à cette macro commande (à copier-coller sur la ligne de commande): (foreach x (layoutlist) (command "_LAYOUT" "_DEL" x)) Ou éventuellement à celle-ci (repeat (length (layoutlist)) (command "_LAYOUT" "_DEL" "")) Bon ça scintille un peu à l'affichage, mais l'écriture et accessible au plus grand nombre ;-) A+

Bonsoir, Très rapidement une autre façon de faire et un prétexte pour venir vous faire un petit coucou, (defun proche (val l) (defun reduce (fun lst) (if (cdr lst) (reduce fun (cons ((eval fun) (car lst) (cadr lst)) (cddr lst))) (car lst) ) ) (reduce '(lambda (x y) (if (< (abs (- val x)) (abs (- val y))) x y ) ) l ) ) _$ (proche 1020 '(1040 110 109 95 212 99 1019)) 1019 Voir cette discussion pour plus d'explication sur le procédé http://cadxp.com/topic/34706-trier-une-liste-de-dates/page__view__findpost__p__188141 Bonne continuation à tous Bruno

Décidemment, j'ai mal lu l'énoncé de départ, j'ai pas mieux que ta proposition.. (Ici il ne s'agit pas seulement d'aligner des géométries mais aussi dans modifier une)

Salut, Avec AutoCAD, cela se fait très simplement et depuis toujours avec la commande ALIGN, fonctionne en 2D ou 3D. A+ (EDIT: Oupss doublon désolé, je n'avais pas lu complétement la réponse de Didier)

Bonjour Didier, Ce n'est pas la première fois que je lis ce propos de toi, même si je pense que tu as déjà la routine qui fait cela, à la lecture du post j'ai rapidement écrit la mienne qui supporte le mode transparent donc à lancer avant ou pendant (précédé d'une apostrophe) l'opération de sélection dans une commande AutoCAD, je publie au cas ou quelqu'un en aurait l'usage.. ;; Sélection du Dernier objet créé VISIBLE à l'écran VDH-Bruno (defun c:sdv (/ i d p e ss) (if (setq ss (ssget "_C" '(-1e99 -1e99) '(1e99 1e99))) (progn (repeat (setq i (sslength ss)) (if (< p (setq s (vl-princ-to-string (setq e (ssname ss (setq i (1- i))))))) (setq d e p s ) ) ) (cond ((= 1 (logand 1 (getvar 'CMDACTIVE))) d) ((sssetfirst nil (if (setq ss (cadr (ssgetfirst))) (ssadd d ss) (ssadd d (ssadd)) ) ) (princ) ) ) ) ) ) A+

En Précédant la réponse d'Olivier d'une sélection rapide pour "gripper" l'ensemble des cotes superposées, la mise à jour se fait en 2 clics en natif. A+ (Ps: @rebcao, je n'ai pas compris ta réponse)

Par exemple pour renseigner et mettre à jour via un champs tous les cartouches ayant des renseignement commun dans tes différentes présentations et plus encore.. A+

Re, Attention tout de même, dans un premier temps je ne me suis pas posé la question d'éventuel rotation de SCU, je ne traite que le déplacement de repère, j'espère que cela conviendra en l'état, je n'ai pas le temps de faire plus pour le moment.. (Ps: Je suis surpris que depuis le temps AutoCAD n'ai toujours pas écrit la commande pour satisfaire cette demande dans ces nouvelles versions.) A+

Bonjour, A tester, écrit pour l'occasion, à voir si ces quelques lignes peuvent te dépanner... Dans le principe tu modifies la position de ton SCU, puis tu lances la commandes sur les cotations superposées à actualiser. ;; Mise à jour des cotations superposées en fonction du SCU courant VDH-Bruno (defun c:majOrdinateDimension (/ ss i dxf) (princ "\nSélectionnez les cotations superposées à mettre à jour...") (and (setq ss (ssget '((0 . "DIMENSION")))) (repeat (setq i (sslength ss)) (setq dxf (entget (ssname ss (setq i (1- i))))) (if (member '(100 . "AcDbOrdinateDimension") dxf) (entmod (subst (cons 10 (getvar 'UCSORG)) (assoc 10 dxf) dxf)) ) ) ) (princ) ) A+ (Ps: Il me semblait avoir déjà écrit un truc similaire sur le forum, j'ai pas réussi à le retrouver)

Bonjour, La ligne suivante avec entsel te retourne une liste composé du nom d'entité séléctionné et du point de sélection: La routine de (gile) pline-centroid demande de nom d'entité qu'il faut extraire de sel1 au moyen de la fonction car La bonne syntaxe devrait être: (pline-centroid (car sel1)) A+

Un coup de boole que je sois passé par là alors, plus sérieusement si tu es charrette, je comprend que les opérations binaire soit déconcertantes pour une première approche.. Sinon pour les versions diesel, remplace le C^C^ par ' Je trouve plus agréable pour une bascule de conserver le caractère transparent de la commande OSOPTIONS Je n'ai pas vraiment eu d'effort de recherche à faire, généralement les sujets que je donne en lien sont ceux sur lesquels je me suis formé. A+

Re, Une autre moins hors sujet que la précédente... (defun fib (i / f) (defun f (i / l) (cond ((< 1 i) (cons (+ (car (setq l (f (1- i)))) (cadr l)) l)) ((= 1 i) '(1 0)) ((zerop i) '(0)) ) ) (car (f i)) ) (ps: @(gile) il y a un problème de parenthèses dans tes versions itératives avec repeat & while)