GEGEMATIC

facile ? j'utilise souvent la récursivité pour parcourir des arborescences de fichier xml, parcourir des listes de liste, et là ça m'inspire. la je vois pas l’intérêt donc pour moi c'est carrément impossible, je jette l'éponge ... je regarderai la solution demain ! a+ gégé

Salut Patrick, dans ton exemple, je ne vois pas où tu as besoin de la récursivité ? donc je propose ça, hors sujet car non récursif, mais qui donne le même résultat que toi: (defun doublon (lst / true 1er mb) (while (and lst (not true)) (setq 1er (car lst)) (setq true (and (setq mb (member 1er lst)) (member 1er (cdr mb)))) (setq lst (cdr lst)) ) true ) Pour avoir besoin de la récursivité je pense qu'on serai dans: (ContientDoublon '((1 2 3) (2 3 3) (4 5) (6 7) (8 9) (1 2 3)))-> T dis moi si quelque chose m'échappe ? a+ gégé

Salut, même avec les options, la commande _layfrz n'est pas satisfaisante à mon gout. l'exemple le plus simple est un bloc avec un attribut. l'attribut ayant été défini sur le calque 0 (rien de plus normal), _layfrz s'obstine a vouloir geler le calque 0, au lieu de geler le calque contenant le bloc. de plus, layfrz gèle directement, lorsqu'on s'est trompé (fréquent par pointage) on par dans une longue régénération. c'est pour ça que j'ai créé gel_grou_calqu, qui commence par désactiver(pour prévisualiser), donne la possibilité d’annuler, ainsi que cou_grou_calq, pour changer la couleur. Ci dessous un vieil article de blog: (2012) Geler et changer la couleur des calques par pointage, une alternative aux outils Autocad Comme je l'ai dit à l'époque, les retours sont les bienvenus, car il y a certainement des cas particuliers que je n'ai pas détecté. peut être que les lacunes ont été corrigée sous la 2019 ? je n'ai pas testé au dela de la 2016 a+ Gégé

Salut, j'ai plusieurs chose du même acabi, mais trop complexes pour en faire un package et le partager. dans certain cas, je renonce à l'automatisme total, car avec les histoires de noaud au sommet d'une polylignes, tu peu vite avoir des pb je fais mon addition manuellement en sélectionnant les blocs, et en inserrant un bloc en faisant la somme. c'est beaucoup plus simple, très accessibles avec les codes que tu peux trouver sur ce forum. a+ Gégé

je crois qu'il ne faut pas imaginer Cahuzac avec ses propres valeurs. ces types sont opérés de la honte: ablation totale. tu raserai les murs, lui il jouira de sa confortable retraite avec arrogance. d’ailleurs, il pèsera toujours dans son fief, et tu verra qu'il aura encore des obligés. Non, il n'est pas condamné à perpette. Pour Aleck, je suis d'accord sur le fait que la violence justifie la prison, mais j'ai un copain qui a finit en taule pour trafic de drogue, dans le milieu festif, entre adultes* consentants. * quinquas, quadras sans violence, sans avoir racolé des lycéens. pendant sa période probatoire, il a été détecté positif au cannabis (traces: il ne venait pas de fumer) au volant: il est retourné en taule !

Il n'ira donc pas en prison, Cahuzac. Il était à la tête du ministère qui me collait +10% lorsque j'avais du retard pour payer mes impôts. Il cachait de l'argent perçu au noir dans la noble activité médicale de la pose d'implants. Il n'ira pas en prison, et presque toute la classe politique salue une décision juste. Depuis Carignon et Tapie, plus aucun politique ne va en prison. Notre pays recule encore, une république bananière corrompue.

Salut, j'avais déjà réponduà cette question, XRETRIEVE Un article sur mon blog : Changement de chemin des xref a+ Gégé

Salut Patrick, Super ton exemple ! j'en étai resté à : (vl-vbarun "Vba_Beep") qui ne marche plus, car je n'installe plus VBA tu sera peut être intéressée par cet article comment connaitre le prog id ? ou alors, tu va me dire: mais il suffit de faire alt+shift sur … tu ne savais pas ? a+ gégé

Salut et merci de l'info. j'ai vu qu'on obtenait des infos en la survolant concrètement ça donne quoi ? le centroid de la zone de validité de la projection ? a+ Gégé

Salut à tous, dès qu'on a attribué un système de coordonnées, on a une punaise rouge qui apparait. finalement j'en sais pas grand chose, je m'y suis habitué, mais sans rien en connaitre. qui a des infos la dessus ? (variables, affichage etc ...) merci Gégé

Salut à tous, pour rappel, même si c'est finalement hors sujet, on peut faire communiquer VBA et LISP sous autocad, avec les VLAX Class de Franck Ockendo la dernière fois que j'ai testé, c'était sous la 2007, ensuite j'ai abandonné le VBA pour le VB.net, mais je n'ai jamais eu le temps de formaliser les liaison lisp/vb.net (d'en faire un tuto très propre avec des exemples concrets) à toute fin utile, je joint un zip contenant l'essentiel a+ gégé

Salut les gars, dans notre cas,on avait bien essayé de quitter autocad et de revenir. j'ai même ouvert sur un autre poste. c'est pour ça que j'ai sorti la grosse Bertha ! a+ Gégé

salut à tous, en bidouillant des couches FDO, on ne sait pas comment on a fait, mais on a supprimé la visibilité de la base la carte pour un zoom donné. résultat, plus de base de la carte, quelque soit le zoom !! clic droit comparer les seuils, on recoche le zoom manquant: change rien sans conviction, je ressors un vieux lisp "c:ent_visible" miracle tout revient, mais alors tout ... pour revenir a l'affichage voulu des couches fdo, il faut les désactiver puis les réactiver à convenance. ci dessous un extrait du code, mais le principe actif, dans notre cas c'est : (big_clean '(60 . 1)'(60 . 0)) et là c'est complet. a+ gégé ; **************************************************************************** ;;§/dxf/balaye le dessin entier remplace prop1 par prop2/prop1 prop2 ;;prop1 et 2 : code assoc dxf (defun big_clean ( prop1 prop2 / ) (defun modif () (setq eg (entget ent)) (if (equal (assoc (car prop1) eg) prop1) (if prop2 (progn (setq eg (subst prop2 prop1 eg)) ;(print eg) (entmod eg) ) ) ) ) (setq ent (entnext)) (modif) ;(print eg) (while (/= nil (setq ent (entnext ent))) (print "p") (modif) ;(print eg) ) ) ; **************************************************************************** ;;§/dxf/rends toutes les entitész visibles/none ;;avec le code 60 et le code 70 pour les attributs ;;traite les blocs, les attributs, les blocs vides, et fait un zoom étendu ;;attentio : peut être long ... (defun c:ent_visible ( / lbloc lface sel zextent) (setvar "QTEXTMODE" 1) (big_clean '(60 . 1)'(60 . 0)) (bclean '(60 . 1)'(60 . 0)) (setq lbloc (pw_listsel (ssget "x" '((0 . "INSERT"))))) (pw_at_visible lbloc) (setq lface (pw_listsel (ssget "x" '((0 . "3DFACE"))))) (pw_3dface_visible lface) ;;partie zoom (pw_list_empty_blocks) (if (not (member "" pw-att-only-blocks)) (progn (prompt "\nLes blocs suivants n'ont que des attributs :\n") (print pw-att-only-blocks) ) ) (if (not (member "" pw-empty-blocks)) (progn (prompt "\nLes blocs suivants sont vides :\n") (print pw-empty-blocks) ) ) (setq sel (ssget "x")) (setq zextent (pw_englobe_sel sel)) (command "_zoom" "_w" (car zextent) (cadr zextent)) (sssetfirst sel sel) (prompt "\nPour retouver l'aspect des textes, QTEXTMODE à 0") )

Salut Laurent le revenant ... un conseil, ne jette pas si rapidement ce bien mal nommé/traduit "cycle de sélection" je le désactive en général, mais sur certains dessins, par exemple avec des polygones de parcelle se chevauchant, il m'est indispensables, car je peux choisir l'entité superposée dont j'ai besoin.. en plus, normalement il s'active/désactive dans la barre d'état a+ Gégé de Savoie

Salut vieux Crabe Moi je dis pas Youpee ! j'ai passé 1 journée à améliorer mon import Kml ! (pour importer depuis le géoportail ign) et là je vois que j'ai perdu mon temps ! grr ! a+ gégé

Salut Olivier, Pour ce genre de problème, balayage visuel d'un zone, j'utilise plutôt les outils de zoom de PowerClic Mon lien ci dessous le code de création d'une succession de zoom pour parcourir un rectangle. Dans ton cas, si il faut parcourir un linéaire, j'utiliserai la commande "mesure" sur les linéaire, et je créerai des points dans un calque "$zoom" espacés de la taille du zoom voulu une fois ces points créés, j'utilise mon plug-in "parcourir" qui crée la liste des points j'ai 2 icones de menu, 1 avec le zoom arrière, l'autre avec le zoom avant je parcours mon dessin en avançant et en reculant, comme ça je n'oublie rien. J'utilise toujours ce sytème quand je dois vérifier des éléments diffus sur un plan (par exemple, contrôler que tous les PI ont une conduite en 100: sélection et parcours de tous les bloc PI) je te donne ci dessous le contenu très simple du menu **TB_ZOOM_PARCOURS_ENTITEES [_Toolbar("Zoom Parcours entitees", _Top, _Show, 2, 0, 1)] ID_zar [_Button("Zar", "zar16", "zar24")]'zoom c !(pw_nthc (setq zt-i (- zt-i 1)) zt-l-pt-zoom) ; ID_zav [_Button("Zav", "zav16", "zav24")]'zoom c !(pw_nthc (setq zt-i (+ zt-i 1)) zt-l-pt-zoom) ; ;;******************************************************************* ;;§/plugg/ prépare une série de zoom sur un zone rectangulaire/none ;;la taille de la fenetre est demandée après (defun c:zoomzone ( / pz lval blsel1 blsel zch l zt-lblsel 4p 4pf pfb pzb pzh xdec ydec nbcol nbrang derent xcadre ycadre selpt) (prompt "\nCadrez la zone à couvrir:") (setq 4p (pw_saisie_rectang)) (setq angltrav (angle (car 4p) (cadr 4p))) (pw_setvar1 "snapang" angltrav) (setq pzb (car 4p)) (setq pzh (caddr 4p)) (prompt "\nCadrez la taille de la fenetre du zoom:") ;;cadre (setq xcadre (distance (cadr 4p) pzb)) (setq ycadre (distance (car 4p) (last 4p))) ;;fenetre zoom (setq 4pf (pw_saisie_rectang)) (setq pfb (car 4pf)) (setq pfh (caddr 4pf)) (setq xdec (* 0.8 (distance (cadr 4pf) pfb))) (setq ydec (* 0.8 (distance (car 4pf) (last 4pf)))); ;tableau (setq nbcol (atoi (rtos (/ xcadre xdec) 2 0))) (setq nbrang (atoi (rtos (/ ycadre ydec) 2 0))) ;;tableau (setq derent (pw_real_entlast)) (command "_point" (pw_prp pzb (/ xdec 2.0) (/ ydec 2.0))) (command "_array" (eval (entlast)) "") (command "_r" nbrang nbcol ydec xdec) (setq selpt (pw_selafter derent)) (pw_sssetfirst selpt selpt) (command "_zoom" "_w" pfb pfh) ;;la suite correspond à cross_entity_zoom ! ;;ecartes les blocs definis dans l'espace papier (if (setq blsel1 (ssget "_p" (list '(-4 . "<NOT")'(67 . 1)'(-4 . "NOT>") ))) (setq zt-lblsel (pw_listsel blsel1)) ) (setq zt-i 0) ;; (setq zt-l-pt-zoom (mapcar '(lambda (x) (PW_scg2scu (cdr (assoc 10 (entget x)))) ) zt-lblsel ) ) (command "_erase" "_p" "") (foreach pz zt-l-pt-zoom (command "_zoom" "_c" pz "") (getstring "\nEntrée pour suivant ou esc pour fin") (setq zt-i (+ zt-i 1)) ) (pw_setvar2 "snapang" ) ) a+ gégé

Didier, je connais ton gout pour les belles lettres, mais il me semble qu'il a eu une nouveauté avec la police de la majuscule ? Ta prose vaut bien tous les alexandrins, elle m'évoque le parler fleuri de mon idole de jeunesse: Achille Talon Porte toi bien où que tu sois, (on sait jamais) a+ Gégé

Salut Didier, enfin là, c'est pas très grave que l'on ne puisse pas la rétrécir, mais avoir un vraie boite windows, c'est un plus. PS: Merveilleuse Majuscules, quand est-ce que tu écris en alexandrin ? a+ gégé PS2: je suis moins doué que Gile pour conserver en l'état cette très belle calligraphie !

Salut, décidément, je suis un mauvais lecteur de mes propres articles ! (ACET-UI-GETFILE STR DEF EXT DGN FLAG ) dans le fichier excel plus sérieusement, je n'avais pas trouvé les bon paramètre, notamment le flag très pratique, toujours là, je m'en servirai. merci ! a+ gégé

Salut, j'avais écrit un article de blog sur les fonctions acet Tu verra dans l'aide des acetutil que les outils file sont plutôt des commande dos intégrées à lisp. je crois que tout est maintenant intégré dans vl-, mais à l'époque, ça remplaçait les dosutils pour ton getfiled amélioré, j'en avait fait un en visual basic, en utilisant les vba class d'ockendo pour l'interfacer avec lisp c'est de la vieille technologie ! je pense que Gile a posté des utilitaires en .net qui améliorent ces commandes de sélection de répertoire ou fichiers va voir sur son "pinned" a+ gégé

Salut Gile, parfois l'arret sur erreur ne se fait pas (je suis en 2015/2016 avec des versions soit civil, map ou mep, il vaut mieux le préciser) j'ai remarqué que dans ce cas, il faut ajouter un point d'arret dans le code, en général je le mets au début du code. a partir de là, l'arret sur erreur est toujours efficace. a+ gégé

Salut, le lien ne marche pas ? a+ gégé

Salut Gile, ce plug-in pourra me servir lorsque je fais de petits détails de construction mécanique même si le principe reste dangereux: Pour en faire un utilitaire "trop génial", il faudrait: - créer une entrée de dictionnaire qui garde en mémoire o la zone du détail o la liste des entités base du détail - créer un réacteur persistant entre les entités base et l'entrée de dictionnaire - qui régénère (ou non) le détail lorsque les entités de base sont modifiées mais bon, je reconnais que c'est un peut réinventer la modélisation, ce n'est pas ton propos. par contre,comme tu as laissé le code, je risque bien de m'en servir pour générer automatiquement des détails de chambre de vanne. merci ! Gégé

salut, j'ai un très bon résultat en utilisant qwant: site:cadxp.com "la lozère" tout autant de résultats que google. a+ gégé

merci mes amis de ces réponses, mais j'ai certainement posté trop tôt, car ce matin, nos 2 ordis, qui sont des frère jumeaux, avait ce diable d'écran noir. sur mon ordi perso les astuces que j'avais utilisé en octobre n'ont pas fonctionné, un point de restauration du 18/12 non plus. j'ai désinstallé avg et ça a redémarré mais sur l'autre ordi, il m'a suffit de le relancer pour qu'il remarche. j'ai ce problème en pointillé depuis octobre, en 25 ans de bidouillage informatique, je n'ai jamais rencontré un problème comme celui la: je n'y comprends rien, le retour à la normale se fait sans explication, impossible d'associer une action concrète au fait que ça marche. sur les 2 postes, les mises à jour windows sont désactivées. a+ gégé