DenisHen

Salut. Si la macro est lancée depuis une palette, il me semble que c'est une commande qui contient la macro qui est lancée. Je ne pense pas que ce soit possible (hors palette), mais on peut la faire tourner en boucle jusqu'à un [Échap]. En plaçant un "EXECUTETOOL" à la fin du code : ^c^c_-insert;NomDuBloc;\;1;\EXECUTETOOL; Il ma semble que dans le temps, on utilisait "auto;"... Mais c'est très vieux et mes souvenirs sont vagues...

Salut Christian. Excellente démonstration... Mais les commandes via les palettes d'outils présentent tout de même quelques petits inconvenants. Déjà, il faut créer des commandes, et si le calque n'existe pas, il sera créé mais de couleur blanche... ou la saisie du texte l'est pas "alignée" au rectangle, voir aussi la rotation du rectangle... Bien que je suis sûr que tu vas trouver des solutions à mes remarques... ;)

Ouf... Content que ça fonctionne...

La commande Sompoly est de Maître (gile). La commande DHSompoly est le même code avec une sélection de plusieurs calque dans une fenêtre. Est-ce que le fichier SelectCalque.DCL est bien dans un répertoire connu d'AutoCAD ?

Ok... Ça va en sauver plus d'un ton truc... Bon courage pour la suite... Denis...

Oops... Je ne sais pas pourquoi, mais j'avais oublié le fichier DCL... Voici les fichiers...

Salut Eric... Excellente idée... Ça fonctionne par calques ?

Salut David. Je ne comprend pas, et comme on ne peut plus joindre un fichier sur notre forum préféré, voici un lien vers la version qui fonctionne chez moi... Denis...

Alors le deuxième lien sera le bon, section "Somme de polylignes par calques" C'est un petit LISP, sur la base d'un code de (gile), qui calcul la somme des polylignes par calques sélectionnés...

Salut. Je pense que la réponse est ici ou encore mieux, ici...

C'est vrai que c'est risible... Un peu comme si "F" était la première lettre de l'alphabet parce que "T" est en seconde position... La preuve... 1 + 1 = 36.594, ou 7812, selon quelle physique on suit... Enfin... Heureusement que la terre est plate... Si non, ce serait un beau bordel... J'ai mal au crane maintenant... :P

Il est vrai que trop bosser est préjudiciable à la santé... Vous avez raison... Va falloir que je ralentisse...

Le problème est que, si je ne le fais pas, personne ne le fera... Donc, je fais tout... Un manque total ! ! ! Mais je ne dois pas être le seul...

Dans le doute, reboot... ;)

Bonjour (gile), et merci de me guider... Mais là, WOUAOUW... J'ai un peu de mal à comprendre l'intégration du cond dans le getword, je sais ce qu'il fait, mais je ne pourrais pas le réécrire dans un autre code... Trop d'imbrications :huh: J'ai identifié mon problème, il était dans le (if (= Rep "O"), j'aurais dû écrire (if (= Rep "Oui") Mais les attributs ne se copient pas et l'ancien bloc ne s’efface pas... Mais ce n'est pas si grave que ça, puisque le sujet est résolu... Encore merci...

Je fais pareil... avec Sandwich à midi pendant une dizaine de minutes... Et je ne suis pas boss... Mais je fais des micro-pauses pour venir sur CadXP...

Après avoir raté mon DEUG Science Eco, j'ai travaillé pendant une quinzaine d'années dans un cabinet de Géomètre Expert où deux D.p.l.G. m'ont formé à tous les travaux d'un géomètre (plan topo, tantièmes de copropriété, POS et PLU...). Je travaille actuellement dans une boite qui fait des plans topos et des détection de réseaux souterrains (nommées Investigations Complémentaires). Je me suis mis au VBA dans le cabinet de géomètre vers la fin des années 90, surtout pour les calculs de copropriété sous Excel. Je me suis ensuite tourné vers le LISP dont je suis toujours débutant. Il est vrai que, le niveau de certaines pointures qui sévissent ici est tellement haut qu'il est inaccessible pour d'autre, comme moi... ;) (pour atteindre la lune, visons les étoiles). Mais le peu que j'en connaisse me laisse faire d'étonnantes choses, que je n'aurais jamais pu faire sans eux (un grand merci au passage ;) ) Ce qui me permet de commencer un peu à aider certain depuis mon piètre niveau, mais je dois bien ça au forum...

J'ai remarqué que les PDF sont plus rapides sur MAP 2014 (que j'ai encore dans un coin de mon PC). Mais sur MAP 2017, c'est une vrai galère...

Re... Pffffff, j'ai cherché, j'ai cherché.. Mais rien de probant... J'ai fini par écrire un code "moyen"... Si quelques âmes charitables daignent bien me conseiller pour corriger ce petit code...: (defun c:ChangAttribBlk (/ ValEnt Anc_bloc Nouv_bloc Aire Perim) (while (/= (type ent_bloc) 'LIST) (initget 1 "Option") (setq Anc_bloc (entsel "\nSélectionner l'ancien bloc ou [Option] : ")) (cond ((= Anc_bloc "Option") (initget "Oui Non") (setq Rep (getkword (strcat "\nEffacer l'ancien bloc [Oui/Non] ? <" (vlax-ldata-get "DenisH" "EffAncBlk" "Oui") ">: ") ) ;_ Fin de getkword ) ;_ Fin de setq (if (= Rep "O") (vlax-ldata-put "DenisH" "EffAncBlk" "Oui") (vlax-ldata-put "DenisH" "EffAncBlk" "Non") ) ;_ Fin de if ) (T (vl-catch-all-apply 'getpropertyvalue (list (car Anc_bloc) "Aire" Aire)) (vl-catch-all-apply 'getpropertyvalue (list (car Anc_bloc) "Périmètre" Perim)) (setq Nouv_bloc (car (entsel "\nSélectionnez le nouveau bloc : "))) (vl-catch-all-apply 'setpropertyvalue (list Nouv_bloc "AIRE" Aire)) (vl-catch-all-apply 'setpropertyvalue (list Nouv_bloc "PERIMETRE" Perim)) (if (= (vlax-ldata-get "DenisH" "EffAncBlk" "Oui") "Oui") (princ "\nEffacer l'ancien bloc") ;;(entdel Anc_bloc) ) ;_ Fin de if ) ) ;_ Fin de cond ) ;_ Fin de while (princ) ) ;_ Fin de defun Et, tout ce passe normalement... Ça ne fonctionne plus... :blink:

Salut... Curieuse réaction en effet, pour ma part, lorsque je tape (* 13 0.2) dans le ligne de commande, j'ai bien 2.6 comme résultat... Peut-être des unités ou un affichage peut orthodoxe... Et si tu tapes (3.14159) ou (3,14159), tu obtiens quoi ?

Effectivement, parfois, l'accroche objet dépasse la fenêtre du PDF... Je trouve ce comportement curieux...

Ça arrive sur les PDF issus des DT/DICT (vectoriels). Ça m'arrive, même avec l'accroche objet inactivé. Pour ma part en tous cas...

Salut. J'ai le même problème, que j'ai "résolu" en transformant mes PDF en TIFF... Je sais, c'est pas génial, mais j'ai hâte de connaitre une solution...

Merci (gile) pour ton code, mais je comptais mettre ça en même temps que la sélection de l'ancien bloc. Soit on sélectionne l'ancien bloc, soit on clique ou tape Option. Comme si on avait :

Bonjour à tous. didier, je pense que le nom est plutôt "palette des propriétés" que "fenêtre des propriétés", on l'obtient en tapant "PROPRIETES", désolé pour cette confusion. (gile), j'avais essayé de poser une option lors de la sélection du premier bloc "info20" qui aurait effacé cet ancien bloc, comme ça : . Comme je le fais souvent dans mes routines, j'efface ce qui ne me sert plus, ça a tendance à clarifie le dessin à mesure que l'on progresse dedans. Mais j'avoue avoir eu du mal et pas assez de temps... Denis...