Fraid

Bonjour, A tu essayer avec un "\" devant ton "_" ?

Yop ta oublié celui de JESUiS Mort, «Le nombre de bestioles qui me dévore double toute les 2 heures » , pour ceux qui aime le pêche, il a de quoi mettre au bout de votre ligne.

Bonjour, Merci pour ce test très interressant, mais peut tu nous dire si c'est sur le même poste, et nous donner quelques détails de ou des configs?

Bonjour, Je n'ai pas trouvé de cas de plantage, même avec les groupes anonymes cela fonctionne (ils ne le sont pas vraiment). Mais je n'ais pas essayer sur tes plans La Lozère, cela fonctionne t'il?

Bonjour, Je suis d'accord avec vous deux, la programmation dans Autocad permet de personnaliser et gagner en productivité mais n'est pas la pour corriger les bugs. Sinon, attention avec mon code, je n'ai pas testé en profondeur, et il doit planter avec les groupes anonymes. Il y a donc des exceptions à gérer, je verrais cela dés que j'ai terminé mon taf.

He coucou, en faisant un petit effort, en utilisant le dictionnaire. (defun c:sgs (/ sel listgroup listentgroupe listodestroy int) (setq sel (ssget) listgroup (getallgroups) ) (mapcar '(lambda (x) (setq listentgroupe (getgroupentities (car x)) int 0) (repeat (sslength sel) (if (member (ssname sel int) listentgroupe) (setq listodestroy (cons (car x) listodestroy))) (setq int (1+ int)) ) ) listgroup ) (if listodestroy (PurgeGroups listodestroy)) (princ) ) (defun getallgroups ( / dic item lst ) (if (setq dic (reverse (dictsearch (namedobjdict) "ACAD_GROUP"))) (while (setq item (assoc 3 dic)) (setq lst (cons (cons (cdr item) (cdr (assoc 350 dic))) lst) dic (cdr (member item dic)) ) ) ) lst ) (defun getgroupentities ( group / dic ent lst ) (if (and (setq dic (dictsearch (namedobjdict) "ACAD_GROUP")) (setq dic (dictsearch (cdr (assoc -1 dic)) group)) ) (while (setq ent (assoc 340 dic)) (setq lst (cons (cdr ent) lst) dic (cdr (member ent dic)) ) ) ) lst ) (defun PurgeGroups ( listg / grpList index grp) (setq grpList (dictsearch (namedobjdict) "ACAD_GROUP")) (setq index 1) (while (setq grp (nth index grplist)) (if (and (= (car grp) 3)(member (cdr grp) listg)) (entdel (cdr (nth (+ index 1) grplist))) ) (setq index (+ 1 index)) ) (princ) ) inspiratition Lee Macienne

désolé, j'ai oublier de tester l’existence du dossier C:\\Data, il faut le créer avant.

Bonjour, Comme les groupes disparaissent quand on les envois dans un autre dessin, on peut faire un wbloc et réinsérer. il faut créer le dossier c:\\Data ou remplacer le chemin par votre dossier préféré (defun c:dgs (/ sel O< file) (vl-load-com) (setq file "C:\\Data\\temporaire.dwg" sel (ssget)) (if (= (getvar "ctab") "Model") (progn (if (= (getvar "worlducs") 0)(progn (vl-cmdf "_.ucs" "")(setq O< 1))) (vla-wblock (vla-get-ActiveDocument (vlax-get-acad-object)) file (vla-get-activeselectionset (vla-get-ActiveDocument (vlax-get-acad-object))) ) (vl-cmdf "_.delay" 1500) (vla-explode (vla-insertblock (vla-get-modelspace (vla-get-ActiveDocument (vlax-get-acad-object))) (vlax-3d-point '(0 0 0)) file 1 1 1 0) ) (vl-cmdf "_erase" (ssget "_X" (list (cons 2 "temporaire"))) "") (vl-cmdf "_erase" sel "") (vl-cmdf "_.-purge" "b" "temporaire" "n") (vl-file-delete file) (if O< (progn (vl-cmdf "_ucs" "p") (vl-cmdf "repere" "") (vl-cmdf "_zoom" "_c" (trans (trans (getvar "viewctr") 1 0) 0 1) (getvar "viewsize")) ) ) ) (princ "\nCette commande s'execute dans l'espace Objet") ) (princ) ) c'est un peux tiré par les cheveux, mais cela fonctionne sur 2011.

He bonjour, Garder des noms courts pour les commandes me semble le plus pratique, par contre, pour les fonctions et variables, des noms explicites aident à la programmation, surtout quand on revient sur le code 10 ans après.

Bonjour, peut etre sur ce site

He bonjour, Gile nous avais fait cela qui fonctionne plutôt bien.

Bonjour, en tapant break Autocad 2018 dans google on la trouve.... Cordialement

Bonjour, Et avec DWG TrueView, en cliquant sur Tracé par lot?

Bonjour, Pour faire mieux que Google, c'est plutôt difficile. et c'est comme cela dans de nombreux sites. pourquoi vouloir s'en passer?

Bonjour, En déplaçant les photos dans le même dossier que ton dwg, cela ne resoud il pas le problème?

Bonjour, Etre seul avec l'appareil, c'est une erreur. Quand on s’éloigne, on est trop a la merci du vol ou de l'ado en roller par exemple. De plus, pour un tas de raison, parfois l'appareil ne vois pas le prisme, alors, soit on travail en déport, ou on oublie le point... Préférais envoyer un binôme. Maintenant, je sous-traite, les appareils et les topographes coûtent trop cher, surtout quand ils restent au bureau...

Merci pour vos réponse. Mais (getvar "platform") fonctionne bien chez moi??? et d'apres la doc officielle compatible Mac. pas sur pour getenv... y a t'il un utilisateur Mac dans la salle? et pour DrawSight y a t'il vraiment du Lisp???

He, bonjour! Non pas la version de Windows, mais bien quel système d'exploitation. Cela peut paraître étrange, mais je voudrais connaitre le retour de (getvar "platform") sur Mac et DrawSight sur Linux. Faut y que quelqu’un puisse... et que cela soit possible... pas facile d'avoir des infos. Je sait bien que je suis un peux hors Forum, mais c'est pour faire une fonction Get-OS qui me rendrais bien service. Les autres solutions et astuces sont bienvenue. Merci.

bon, quelque seconde de reflexion, en fait suffit d'utiliser le filtre de vl-directory-files, sujet clos.

Merci, Gile, je commence à comprendre mon erreur, je vais refaire des essais en le plaçant différemment et peux etre 2 fois comme le cddr. Car si cette dernière fonctionne, c'est pour moi une pirouette (suis habitué :(rires forts): ). Dans le sens que c'est grâce au placement de l’élément dans la liste, mais pas grâce à son contenu. Si on ne voulais pas un dossier contenant temp par exemple, la on est pas bien... Je suis loin d’être un perfectionniste, mais ce genre de challenge sont de bon prétexte didactique. A plus tard pour une nouvelle version. (si je m'en sort, vais pas passé l'été la dessus non plus...)

Bonjour, Il ne faut pa, on ne peut pas tout connaitre. Notre ami met à jours tout les ans ce joli tableaux, j'y retourne souvent, cerveau troué Mon lien Nous ne te remercions pas assez, rebcao

Bonjour, Le gestionnaire de référence s'ouvre en dehors d'Autocad, Tout les programmes/Autodesk....

Bonjour, Un petit rappel en passant, impossible d'utiliser le lisp, ni dessiner en 3D sur une version LT d'Autocad. Cordialement

du coup le test(if (not (wcmatch x ".,..")) ne sert à rien. et je comprend toujours pas pourquoi "*.,*.." ne fonctionnais pas. Aurais tu une explication?

Yop Effectivement, j'avais essayer, mais j'avais du faire une fausse manip, cela fonctionne à la perfection. (defun c:all-dir (/ alldir dir listdir) (setq dir (getstring "\nSaisir le dossier Racine:")) (defun alldir (dir) (setq dir (vl-string-right-trim "\\" (vl-string-translate "/" "\\" dir))) (append (mapcar '(lambda ( x ) (strcat dir "\\" x)) (cddr(vl-directory-files dir nil -1))) (apply 'append (mapcar '(lambda ( x )(if (not (wcmatch x ".,..")) (alldir (strcat dir "\\" x)))) (cddr(vl-directory-files dir nil -1)) );Fin mapcar );Fin apply );Fin append );Fin alldir (setq listdir (alldir dir)) );Fin all-dir