Patrick_35

Bonjour Avec EXL ps : Je viens de voir que c'est sur LT. Donc on oublie ma réponse, mais je la laisse pour ceux qui ont une version pleine et qui pourraient être intéressés. @+

Je pense qu'il faut demander à l'auteur (gile) et mettre à jour son prog avec les ObjectId en 64 bits afin d'avoir la bonne valeur. Ce n'est pas une grosse modif à faire mais comme c'est en .net @+

Salut Je pense que ce sujet sur l'objectid devrait t'intéresser. @+

Je viens de tester en suivant ton exemple et j'obtiens bien les valeurs attendues (2128396944 2135070123). Tu ne serais pas en 64 bits et le prog serait en 32 par hasard ? ps : testé avec un A2014 en 32 bits @+

Salut http://static2.wikia.nocookie.net/__cb20120114172960/batman/images/c/c2/Arkham_Batman.png avec un t de plus ;) @+

Salut J'avoue ne pas comprendre tes explications. Tu as un exemple concret à mettre à disposition avec la méthode que tu emploies. @+

Je ne parle pas de l'ordre des étiquettes, mais de l'ordre de sélection des blocs. Quand tu fais un dessin, tu insères/copies/effaces des blocs dans ton dessin, l'ordre des objets bougent et ce qui fait que dans une sélection globale, le 1er bloc dans la sélection n'est pas forcément le 1er dans le dessin. Dans ce cas, comment dire qui appartient à quoi. Tu as quand même des options qui peuvent te faciliter la saisie. Dans le menu, tu choisis Ajouter Attribut/Texte et Incrément Ligne ou Incrément Colonne. Tu sélectionnes les attributs dans l'ordre souhaité et tu indiques la cellule de départ par rapport au 1er attribut de choisis. Pour ce qui concerne le choix sur les blocs, avec le choix Incrément Ligne ou Incrément Colonne, c'est tous les attributs du bloc qui sont affectés comme lors de l'exemple précèdent. Le plus dur est de créer les liaisons, mais une fois cette tâche pénible effectuée, ce n'est plus que du bonheur. Tu peux aussi avec LXL, depuis un même dessin, travailler sur plusieurs fichiers et plusieurs feuilles. Tout dépend comment sont organisées tes données. Courage. Il y a des moments difficiles dans la vie, mais il y a aussi toujours des moments de bonheurs à qui veut bien les voir. Par exemple le chant d'un oiseau le matin au réveil, un rayon de soleil après une pluie diluvienne, une balade en moto, à vélo ou à pied, etc... @+

Salut J'espère que c'était pas trop grave :( Sinon, pour répondre à ta question, cela n'est pas possible pour la simple raison qu'il faut une logique pour attribuer une cellule à un attribut. Quand tu fais une sélection globale, qu'elle est son ordre ? @+

Bonjour Un petit bémol quand même. Si la personne à former ne s'investie pas, vous pourrez être le meilleur pédagogue/formateur qu'il soit, le résultat ne pourra être que décevant. Il ne faut pas oublier qu'une personne en formation ne retient que 20% (et je suis gentil) des informations qui lui sont données. Combien de personnes ne notent rien durant leur formation. On a beau être intelligent, mais cela ne fait pas tout. Pour le formateur, être du métier est un plus mais ce n'est pas le principal. Il doit d'abord faire connaitre Autocad et ses possibilités. Autocad est d'abord un outil pour dessiner. A chacun son niveau et aux collègues de montrer aussi ce qui est possible de faire. Et rien n'interdit de parcourir les forums pour progresser rapidement. @+

Bonjour Tous mes voeux de bonne santé et de bonheur pour cette nouvelle année. @+

Salut (member (cons 3 "ETIQUETTES") (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE")) @+

La version spécial Noël pour Lecrabe (defun c:BlexXYpoly(/ doc ename txt lst_pts rep ss) (defun lst_pts(ent / lst nb pts) (and (eq (type ent) 'ENAME) (setq ent (vlax-ename->vla-object ent)) ) (setq nb 0) (while (not (vl-catch-all-error-p (setq pts (vl-catch-all-apply 'vla-get-coordinate (list ent nb))))) (setq lst (cons (vlax-safearray->list (vlax-variant-value pts)) lst) nb (1+ nb) ) ) (reverse lst) ) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (and (ssget (list (cons 0 "*POLYLINE"))) (progn (initget "Oui Non") (setq rep (getkword "\nDésirez-vous indiquer les Z [Oui / Non] <Oui> : ")) (or rep (setq rep "Oui") ) (vlax-for ename (setq ss (vla-get-activeselectionset doc)) (mapcar '(lambda(x) (setq txt (strcat "X=" (rtos (car x) 2 2) "\nY=" (rtos (cadr x) 2 2) ) ) (and (eq rep "Oui") (setq txt (strcat txt "\nZ=" (if (caddr x) (rtos (caddr x) 2 2) (rtos (vlax-get ename 'elevation) 2 2) ) ) ) ) (entmake (list (cons 0 "MTEXT") (cons 7 (getvar "textstyle")) (cons 100 "AcDbEntity") (cons 100 "AcDbMText") (cons 10 x) (cons 1 txt) (cons 71 7) (cons 72 5) ) ) ) (lst_pts ename) ) ) (vla-delete ss) ) ) (vla-endundomark doc) (princ) ) @+

La version Poly 2D ou 3D (defun c:BlexXYpoly(/ ename txt lst_pts) (defun lst_pts(ent / lst nb pts) (and (eq (type ent) 'ENAME) (setq ent (vlax-ename->vla-object ent)) ) (setq nb 0) (while (not (vl-catch-all-error-p (setq pts (vl-catch-all-apply 'vla-get-coordinate (list ent nb))))) (setq lst (cons (vlax-safearray->list (vlax-variant-value pts)) lst) nb (1+ nb) ) ) (reverse lst) ) (and (setq ename (car (entsel "\nSelectionnez la polyligne: "))) (mapcar '(lambda(x) (setq txt (strcat "X=" (rtos (car x) 2 2) "\n" "Y=" (rtos (cadr x) 2 2) ) ) (and (caddr x) (setq txt (strcat txt "\nZ=" (rtos (caddr x) 2 2))) ) (entmake (list (cons 0 "MTEXT") (cons 7 (getvar "textstyle")) (cons 100 "AcDbEntity") (cons 100 "AcDbMText") (cons 10 x) (cons 1 txt) (cons 71 7) (cons 72 5) ) ) ) (lst_pts ename) ) ) ) @+

Bonjour Je propose une routine pour retourner les coordonnées d'une polyligne 2D/3D (defun lst_pts(ent / lst nb pts) (and (eq (type ent) 'ENAME) (setq ent (vlax-ename->vla-object ent)) ) (setq nb 0) (while (not (vl-catch-all-error-p (setq pts (vl-catch-all-apply 'vla-get-coordinate (list ent nb))))) (setq lst (cons (vlax-safearray->list (vlax-variant-value pts)) lst) nb (1+ nb) ) ) (reverse lst) ) Pour tester (lst_pts (car (entsel))) (lst_pts (vlax-ename->vla-object (car (entsel)))) @+

Si tu pouvais donner un exemple que je regarde, car avec ma 2014, la commande _olelinks (LIENSOLE) ne fonctionne pas. @+

Salut Si je comprends ton besoin, tu as besoin de lier des valeurs Excel à des valeurs Autodad (attribut, texte, etc...) Tu as LXL @+

Bonjour à tous Et pourquoi ne pas faire un ctrl+A pour tout sélectionner et ensuite, avec un shift+clic gauche pour enlever des objets ? Ps : la désélection fonctionne aussi avec les fenêtres en laissant le shift appuyé. @+

Salut Il y a juste une fonction --> CopyFrom @+

Si tu as un Autocad français, Gef sera en français, autrement en anglais (utilisation de la variable "locale"). @+

Ah oui, tu as raison. Merci de me corriger. ps : c'est modifié sur le site @+

Salut Essaye avec (setq pts (cdr (assoc '10 ent))) @+

Salut Tu peux t'insiper de MPL @+

Salut Tu as GEF @+

Je n'avais pas vu que tu l'avais utilisé en variable. J'ai trouvé ces deux liens au cas où. http://docs.autodesk.com/ACDMAC/2011/ENU/ObjectARX%20Reference/AcPlDSDEntry.html http://docs.autodesk.com/ACDMAC/2011/ENU/ObjectARX%20Reference/AcPlDSDEntry__setupType@const.html @+

Merci gile Je vais surement dire une bêtise, mais je vois que tu utilises PlotType et dans l'aide Activex @+