DenisHen

Pas encore, mais ça arrive... C'est début juin... Mais pas où je voulais...

J'ai aussi de gros plantages lors d'insertion de PDF, ce qui m'a fait oublier cette possibilité de conversion... Merci Phil...

J'ai trouvé une petite astuce. Le logiciel InkScape permet d'ouvrir un PDF et de le sauvegarder en DXF...

Salut (gile) et merci pour ta réponse. Oui, je viens de le faire, sans changement... Et lorsque je retourne dans Visual LISP, il n'y a plus de points d'arrêt... Où dois-je les placer, avant une parenthèse, après...? Du coup, je ne sais toujours pas ce qui cloche dans mon code :(

Salut à tous. Lorsque je place, dans Visual LISP, un point d'arrêt (F9), j'enregistre et recharge ce Lisp dans AutoCAD, la routine ne s'arrête pas sur ce point, elle est exécuté dans sa totalité... Qu'est-ce que je fais de mal ?

Salut, et merci pour votre aide. (gile) : je n'arrive pas à utiliser le debogueur, tout ses icones sont toujours grisés.

Salut (gile), et merci, encore une fois, pour ton aide précieuse... Mais je ne comprend pas où ça déconne, voici ce que j'ai fais : (setq ss nil) (if (setq ss (ssget "_X" '((0 . "INSERT")))) (progn (setq i 0) (while (setq ent (ssname ss i)) (setq i (1+ i) elst (entget ent) BlkNom (cdr (assoc 2 elst)) ) ;_ Fin de setq (princ (strcat "\nNom du bloc=" BlkNom)) (if (/= (vl-string-position (ascii "_") BlkNom) nil) (progn (setq elst (subst (cons 2 (substr BlkNom 1 (vl-string-position (ascii "_") BlkNom)) (assoc 2 elst) elst))) (entmod elst) ) ;_ Fin de progn ) ;_ Fin de if (setq n (+ n 1)) ) ;_ Fin de while ) ;_ Fin de progn ) ;_ Fin de if Et AutoCAD me répond : Je ne sais pas où est l'erreur...

Bonjour à tous. Voilà, je cherche à supprimer tout les caractère à droite d'un "_" dans une chaine. Je m'explique, je remplace des blocs nommés "CA03_1" "CA03_2, "CA03_3" ainsi de suite par le bloc "CA03". Bien sûr, la position du "_" n'est pas toujours la même... Donc, dans un (subst, je ne sais pas trop quoi mettre ensuite... J'ai une liste de paires pointées : (setq LstBlk '( ; ("AA04_*" . "AA04") ("AA05_*" . "AA05") ("AB01_*" . "AB01") ("AB03_*" . "AB03") ("AF01_*" . "AF01") ("AF03_*" . "AF03") ("AF05_*" . "AF05") ... ) ) ;_ Fin de setq Et la liste est longue et, pas complète, je l'augmente à mesure que je trouve des "nouveaux" blocs. Et voici ma boucle : (foreach PosLstBlk LstBlk (setq n 0) (if (setq Select (ssget "_X" (list (cons 0 "INSERT") (cons 2 (car PosLstBlk))))) (while (setq ent (ssname Select n)) (setq elst (entget ent)) (setq elst (subst (cons 2 (cdr PosLstBlk)) (assoc 2 elst) elst)) (entmod elst) (setq n (+ n 1)) ) ;_ Fin de while ) ;_ Fin de if ) ;_ Fin de foreach Je suis sûr que je peut éviter la liste des paires... J'ai essayé avec un (vl-position mais je tourne en rond... Si quelqu'un a une astuce, un conseil... Je suis preneur...

Salut jpeg et merci pour ta réponse. C'est aussi ce que je fais... Mais du coup, on n'a plus l'accroche objet...

Bonjour à tous. Voilà, je "numérise" des DT dans un dessin, mais dès que j'insert un PDF, AutoCAD ralenti de manière incroyable... Exemple, un petit coup de roulette pour un zoom avant, et hop, AutoCAD prend au minimum 1 minute à afficher le zoom... Et pour certain PDF, c'est plusieurs minutes, Parfois même, ça plante AutoCAD... Même après un reboot. Si quelqu'un a une astuce, un conseil... Je suis preneur...

Salut, je pense qu'avec ça, tu pourras t'en sortir... : *Communale,Limite communale A,1,-0.2,["+",Simplex,s=0.5,y=-0.21],-0.6,1 *Départementale,Limite départementale A,1,-0.2,["+",Simplex,s=0.5,y=-0.21],-.6,["+",Simplex,s=0.5,y=-0.21],-0.6,1 *Etatique,Limite Etatique A,1,-0.2,["+",Simplex,s=0.5,y=-0.21],-.6,["+",Simplex,s=0.5,y=-0.21],-.6,["+",Simplex,s=0.5,y=-0.21],-0.6,1 Denis...

Salut. Ben je ne sais pas d'où ça venait... Mais après un reboot, c'est ok... Encore merci...

Salut (gile), et merci de ton aide... J'ai testé chez moi le code de mon premier poste et ça fonctionne nickel... Je ne comprend pas... Mais je verrais si ça au boulo... Dans le doute, reboot... Il faut vraiment que je me concentre sur la gestion d'erreurs... Merci encore...

Ce n'est malheureusement pas un cas isolé, car il va falloir qu'il te remplace, forme le nouveau et tout et tout... Les miens font ça aussi pour certains collègues qui cherchent à partir... Ça devrait être suivi par la loi...

Très joli aussi... J'aime bien l'ampoule...

Salut (gile) et merci de me répondre... Mais je ne comprend pas, si je ne tape rien dans la fenêtre et que je fais OK, ma routine continue, si je clique Annule, pareil et si je force sa fermeture (en cliquant sur la croix) pareil... Je verrais ça plus-tard chez moi, je part une petite semaine en vacance... Encore merci... Je m’absente une semaine, mais je verrais ça au calme, chez moi...

Salut Ô Décapode... C'est celui-là ?

Bonjour à tous. Voilà, je cherche à savoir ce qu'a fait l'utilisateur pendant InputBox de (gile) ? J'ai ça : (setq Text (inputbox "DenisH" "Tapez votre texte :" "")) (if (or (= Text "") (= Text nil)) (exit) ) ;_ Fin de if Mais ça ne fait rien, comment savoir si la fenêtre InputBox a été fermée de force ou si Annule a été choisi ?

Elle frappe plus vite que son ombre... ;)

Pourquoi, parce qu'elle les coiffe au poteau ou parce qu'ils n'arrivent pas à la suivre ? ;)

Pour les ECW dans MAP (2017), il n'y a pas un HotFix qui corrige ça ?

Ben ouais... Perdu, c'est le foreach qui gagne...

Merci pour cette précision... Mais j'ai cru lire, quelque part sur CadXP, que mapcar était plus "rapide" qu'un foreach... Bien que ça doit ce jouer sur des millièmes de secondes... Encore merci...

Wouaouw... Je savais que c'était une question d'interprétation de lite, mais je tournais en rond pour ne faire évaluer QUE ma variable et non l'ensemble comme tu me l'indiques... Encore un grand merci à toi...

Salut (gile) et merci pour cette précision... Je ferais un peu plus de mapcar et de lambda, maintenant que je commence à comprendre le truc... Faut juste que je prenne le réflexe pour les utiliser... Encore merci à vous deux...