Patrick_35

Salut Tu peux faire une synchro (battman ou attsync). Mais si tu veux conserver certaines choses, avec SYN @+

Bonjour Eh oui, tout a son importance, comme la virgule dans la phrase qui suit. Ca peut sauver des vies. On va manger, les enfants ! Une autre trouvé sur le net. Une virgule peut tout changer Au secours Nicolas Sarkozy, reviens ! Au secours, Nicolas Sarkozy revient ! @+

Salut Si tu ouvres le fichier mnl, tu remarqueras que ce sont les codes dxf qui sont indiqués Avec ce bout de code trouvé sur le net, tu devrais y arriver. (setq StyleName "TOTO") (dictadd (cdr (cadr (member '(3 . "ACAD_MLINESTYLE") (entget (namedobjdict))))) StyleName (entmakex (list '(0 . "MLINESTYLE") '(100 . "AcDbMlineStyle") (cons 2 StyleName) '(70 . 272) ; End flag '(3 . "") ; StyleDescription '(62 . 256) ; fill color '(51 . 1.5708) ; start angle '(52 . 1.5708) ; end angle '(71 . 3) ; qty elements ; '(49 . 0.25) ; element offset '(62 . 256) '(6 . "BYLAYER") ; Element Linetype '(49 . 0.0) '(62 . 131) '(6 . "KT100") '(49 . -0.25) '(62 . 256) '(6 . "BYLAYER") ) ) ) @+

Salut Je te laisse méditer un peu ;) (vla-get-textstring (nth 15 (vlax-invoke (vlax-ename->vla-object SelBlk) 'getattributes))) @+

Salut Avec MIM @+

Salut Le lisp fonctionne exactement comme le décrit x_all. Ce qui me surprend, c'est que tu as une erreur avec la fonction findfile, ce qui n'est pas normal. Un (findfile mon_fichier.ext) retourne soit une valeur nil pour indiquer qu'il n'a rien trouvé, soit le chemin complet du fichier. @+

Salut Ton attribut prend comme valeur la variable ctab (via un champ) ? @+

Salut Non, en vlisp vla-plottodevice ... n'affiche pas la barre de défilement de l'impression vlax-invoke ... 'plottodevice affiche la barre de progression @+

Salut Avec plottodevice @+

Oui Un dictionnaire est une base de données. @+

D'où l'utilité d'utiliser au maximum entmake/entmod voir les fonctions vl-*/vla-*/vlax-* Logiquement, on évite ainsi l'évolution/détournement des commandes. Je sais que ce n'est pas le plus simple mais le but est de rester compatible avec les futures versions. @+

Salut Pour simplifier, un zombie est un objet créé par une application tierce et non compris par Autocad. Un objet vivant dont on ne connait pas la provenance. Une explication de notre indispensable gile sur les dictionnaires. Pour les applications, comme son nom l'indique, c'est pour créer sa propre application dans autocad. Cela permet de retrouver ses données dans les dictionnaires. @+

Salut Tu as des explications de notre cher (gile) Perso, j'évite au maximum d'utiliser les command/command-s. Tu peux utiliser entmake à la place. @+

Je viens de faire des tests et c'est le fichier DCL qui n'est pas trouvé. D'habitude, je fais un test, mais là j'ai dû oublier. Ce n'est pas grave, il suffit juste de déclarer le répertoire où est installé ONG dans les fichiers de recherche d'Autocad. @+

Salut Tu as essayé sur d'autres dessins ? @+

Dans la boite de dialogue ouvrir un dessin, juste à droite du bouton ouvrir, tu as un choix qui le permet. 1) Cliquer sur le bouton ouvrir un Dessin 2) Sélectionner un fichier et sur la petite flèche à droite de ouvrir, sélectionner ouverture partielle et faire son choix @+

Salut +1 avec x_all @+

Salut Dans ce vieux sujet @+

Salut Ou encore avec une ouverture partielle. @+

Salut Merci d'avoir précisé, mais tu auras beaucoup plus de chance en lisp que tu pourras ensuite traduire en vba @+

Salut Tu as un lisp ici Edit : un double clic sur le type dans la boite de dialogue des xrefs fait permuter association/superposition @+

Salut Si tu aimes la prog et parle anglais, tu as ce sujet qui parle de coordonnées et des pixels avec une conversion. @+

C'est surtout pour limiter l'utilisation des variables et tant qu'a faire, les effets de bord @+

Salut Une boucle vlax-for ne parcours qu'une collection de type vl. Par exemple, toutes les entités qui composent le dessin en espace objet se trouvent dans cette collection (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))). (vlax-invoke Vba-ent 'getattributes) retourne une liste. Comme toute liste, tu peux la traiter avec while, repeat, marcap, foreach, etc... (defun Vb-Val-att (ent nomatt / att val) (foreach att (vlax-invoke (vlax-ename->vla-object ent) 'getattributes) (and (eq (vla-get-tagstring att) nomatt) (setq val (vla-get-textstring att)) ) ) val ) @+

Ah oui, c'est la fonction (vlax-create-object "ScriptControl") qui ne fonctionne plus. Va falloir trouver autre chose pour les lectures binaires @+