Aller au contenu

DenisHen

Membres
  • Compteur de contenus

    4 029
  • Inscription

  • Dernière visite

  • Jours gagnés

    21

Tout ce qui a été posté par DenisHen

  1. Salut lecrabe. Je parlais de ce document là. ;) C'est toi ? :)
  2. Re. J'ai trouvé un PDF sur le NET de Patrice BRAUD vs 1.04a qui est très bien fait... Denis...
  3. Bonjour à tous. J'ai reçu des fichiers ShapeFiles et je cherche à les afficher dans AutoCAD MAP 2019 sans les importer. Je l'ai vu faire une fois il y a longtemps, mais je ne parviens pas à refaire la manip. Quelqu'un aurait un truc, un tuto, un conseil... Je suis preneur... Denis...
  4. DenisHen

    Lisps de DenisHen

    Salut. Non, vraiment, là, je ne vois pas... Désolé, peut-être que quelqu'un d'autre aura une réponse...
  5. Salut. Avais-tu plusieurs écrans ou les as-tu changer ?
  6. Curieux, j'en ai lu un de René BARJAVEL, qui traitait exactement de ce sujet, je crois que c'était "Ravage", mais je n'en suis pas sûr...
  7. Salut. Tu as de la chance didier, car quand je lis un bouquin, je le lis presque deux fois... Je lis une cinquantaine de pages (voir plus), et le lendemain, je dois relire les dix/quinze dernières pages lues la veille... J'ai des problèmes de mémoire, j'ai des exercices à faire (comme lire) pour entretenir cet organe défectueux... Mais rien n'y fait...
  8. Salut. Grillé par lecrabe...
  9. Excellent exemple... J'ai beaucoup avec le "Ha la vache, c'est vexant..." Perso, je me serais vexé aussi... ;) Mais quand la réponse vient d'un Maître, c'est différent...
  10. Salut à vous. Je suis en parti d'accord avec Olivier, sauf que les liens entre le nom de la fonction et ce qu'elle fait n'est pas toujours flagrant. Pour ma première question, je ne cherchais pas au bon endroit, je l'avoue aisément, j'étais parti dans une fonction qui aurait analyser le contenu de la chaîne "lettre par lettre" en vérifiant si cette dernière ne comportait que des chiffres (avec ou sans "."). Raison pour laquelle je me suis dirigé vers wcmatch, je sais maintenant qu'elle n'est pas assez puissante, comme le souligne (gile). Mais quand on ne connais pas numberp ni subodore son existence, par où commencer les recherches ? La commande aurait très bien pu s'appeler itsian (Is This String Is A Number), comme on peut le retrouver avec les fonctions de convertions rtos, atof... Mais tu as raison Olivier, la prochaine fois, j'utiliserais, entre autres, cette astuce de recherche...
  11. Salut à tous. Je sais bien didier, mais lire ton site en une seule fois, ce n'est pas si évident que ça, il y a vraiment beaucoup à lire (commandes, astuces, exercices...), car il est très complet... C'est comme lire un mode d'emploi dans l'espoire qu'on va retenir une commande dont on ne se sert pas mais qui pourrait nous servir... La mémorisation de cette commande est très aléatoire... Je trouve... Sachant que j'ai une mémoire de poisson rouge... C'est pour cela que j'ai demandé de l'aide à la communauté, je ne m'en sortais pas... En tous cas, merci à vous pour toute l'aide que vous nous donnez...
  12. Salut didier... Je ne suis pas allé sur ton site car je n'avais aucune idée de ce que je cherchais, et quoi taper dans la zone de recherche... J'ai fais des recherches avec wcmatch, croyant m'en sortir avec cette commande...
  13. C'est bien ce que j'ai fais, raison pour laquelle j'ai écris ça Mais le "Je me trompe ?", c'était pour ne pas contredire rebcao pour rien... Sans exclure une mauvaise manipulation de ma part...
  14. Salutations. Merci (gile), c'est exactement ça... Désolé Rebcao, j'ai déjà écris ma routine sur les conseils de (gile)... Mais il me semble que (type "125.258") me répondra STR... Je me trompe ? Encore merci de votre aide...
  15. Bonjour à tous. J'aimerais, dans un lisp, savoir si une chaîne est un nombre ou si c'est bien une chaîne. Exemple, (setq ch "212.369") où ch serait bien un nombre. J'avoue ne pas trop savoir par où commencer... Une idée, une astuce ? ? ? Je suis preneur... Denis...
  16. Je pense qu'il faudrait mettre à jour ton FrameWork, mais je n'en suis pas absolument certain... Tu es sur quelle version d'AutoCAD ?
  17. Je m'e doutais bien que tu le savais... ;) A la fin de NETLOAD, rien ne t'indique le(s) nom(s) de commande dans la fenêtre "texte" ?
  18. Salut Xav. Je pense ne rien t'apprendre que pour charger une DLL in faut utiliser NETLOAD et non APPLOAD... On ne sait jamais... ;) Denis...
  19. DenisHen

    Extraction d'attributs

    Salut. Pour plusieurs raisons : - le chemin d'accès au fichiers du bureau sont c:\utilisateurs\NomUtilisateur\..... - j'ai des centaines de Lisp, si je les plaçais dans le bureau, il me faudrait des dizaines d'écrans, - ça mélange raccourcis et fichiers dans le bureau, pas très agréable. Ce n'est pas "interdit", c'est fortement déconseillé... Comme le dit Alek, place tout dans un répertoire... Denis...
  20. DenisHen

    Extraction d'attributs

    Salut. Fortement déconseillé par les administrateurs de ma boite...
  21. Tu la fais à chaque fois ? ;)
  22. Salut Phil. Il me semble que 7zip décompressera les .bz2 et qu'il faudra dé-zippé ensuite les .tar, mais ce n'est pas un problème, tu décompresse tout en une seule fois, ça devrait pouvoir passer. WinRar dé-zippe tout d'un coup...
  23. Salut Phil. Tu peux dé-zippé tous les .bz2 et ensuite, tous les .tar en quatre clics... Denis...
  24. Salut. Il a l’œil sur tout ce Maître Décapode... ;)
  25. Salut à toi, Ô Décapode... Effectivement, tu as raison, et je m'aperçois que j'utilise souvent Steal qui est bien de LeeMac... Voici le code corrigé pour fonctionner seul : ;;; Insert tous les DXF du répertoire courant du dessin ouvert. (defun c:InsCadDXF (/ a b RepDXF ListFich) (princ "\nDéveloppé par Denis H (2.0)") (setq RepDXF (getvar "dwgprefix")) (setq ListFich (vl-directory-files RepDXF "*.dxf")) (setq a 0) (while (/= (nth a ListFich) nil) (setq a (+ a 1))) (setq b 0) (while (/= (nth b ListFich) nil) (princ (strcat "\nProgression : " (rtos (+ b 1) 2 0) "/" (rtos a 2 0) "\n")) (command "_insert" (strcat RepDXF (nth b ListFich)) '(0 0 0) 1 1 0) (command "_explode" "_last") (command "-purger" "bl" (substr (nth b ListFich) 1 (- (strlen (nth b ListFich)) 4)) "n") (command "zoom" "et") (setq b (+ b 1)) ) ;_ Fin de while (command "_qsave") (princ) ) ;_ Fin de defun
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité