Patrick_35

Rien à dire, j’ai trouvé mon maître, merci Serge C’est juste pour le style je pense. Perso, je vais au plus simple et ça ne me dérange pas de mélanger autolisp et le visual lisp. Je me sers plus facilement d’un tblsearch que d’un vlax-for @+

Eureka.........J'ai trouvé...... Ah, Serge tu viens de me couper l'herbe sous le pied. Bon je vais regarder de plus prés ton lisp et merci beaucoup Voici quand même ce que je cherchais (vl-load-com) (vla-delete (vla-InsertBlock (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point '(0.0 0.0 0.0)) (findfile "MON_BLOC.DWG") 1 1 1 0)) ps : je ne fonctionne pas au fromage, mais au cidre, voir du chouchenne ;) Et puisque que tu es de retour parmis nous en ce moment ,je n'ai pas eu de réponse sur ce lien @+

Merci pour ton aide, mais je garde espoir. Je vois passer certaines personnes qui ont un très bon niveau en autolisp ainsi qu’en visual lisp. Ce qui ne m’empêche pas de continuer à chercher au cas ou… Accéder aux tables d’autocad n’est pas si simple que cela. J’avais déjà fait une manip sur les styles de traits et j’avais trouvé un vla-load dans LineTypes d’ActiveDocument d’AcadObject mais rien sur ce coup là. :casstet: @+

Salut Avec la variable DCTMAIN et voici ses différentes valeurs enu Anglais (Etats-Unis) ena Anglais (Australie) ens Anglais britannique (ise) enz Anglais britannique (ize) ca Catalan cs Tchèque da Danois nl Néerlandais (standard) nls Néerlandais (autre) fi Finnois fr Français (majuscules non accentuées) fra Français (majuscules accentuées) de Allemand (Scharfes s) ded Allemand (Dopple s) it Italien no Norvégien (Bokmal) non Norvégien (Nynorsk) pt Portugais (standard) ptb Portugais (Brésil) ru Russe (io rares) rui Russe (io fréquents) es Espagnol (majuscules non accentuées) esa Espagnol (majuscules accentuées) sv Suédois @+ (ps : ce sont les fichiers avec l'extension dct dans le répertoire support)

Salut (if (tblsearch "layer" "i") (alert "Calque existant")(alert "Calque inexistant"))(princ) @+

Du sirop d'érable, non, non, du cidre des glaces :laugh: Blague à part, ce que je fais avec ma femme, c'est de partir dans une région en france et de la faire complètement Nous prenons le plus souvent possible les chambres d'hôtes, ce qui permet d'avoir un cadre agréable, de discuter avec les gens du pays qui nous indiquent toujours les bonnes adresses, les coins à visiter, etc... Nous restons sur place un jour ou deux, voir plus si le coin nous charme et nous nous promenons au gré de notre humeur. Pas besoin de tout planifier, nous avons le guide des chambres d’hôtes et ceux de charme (uniquement pour la chambre ;) ) et c’est vers 16H, en fonction de l’endroit où nous nous trouvons que nous réservons une chambre par téléphone et nous avons toujours trouvé sauf une fois ou deux ou nous avons été à l’hôtel, mais bon… @+

Ah oui, je n'ai pas fais attention, dans le feu de l'action :red: et effectivement, nos deux lisp se rejoignent ;) @+

Et en faisant Traceur--->Choisir le style de tracé puis modifier permet de récuperer normalement tes valeurs @+

Bon, je vois que tu n'as pas tout saisi Regarde le lisp que je viens de faire vite fait (defun rt(Table / j n) (setq n (tblnext Table T)) (while n (setq j (append j (list (cdr (assoc 2 n))))) (setq n (tblnext Table)) ) j ) un (setq a (rt "layer")) te retourne la liste des calques @+

Le plus simple est de faire une copie des ctb dans un répertoire "originaux" par exemple, et quand ça pose problème, de remplacer le ctb défectueux @+

Donc tu veux connaitre tous les style de texte dans une table donnée Dans ce cas (tblnext "style" T) Pointe sur la première entrée (tblnext "style") Retoune le style suivant ou nil s'il n'y a plus rien le tblsearch est utile pour savoir si l'élément que l'on recherche existe sans parcourir toute la table @+

Tu reçois chez toi des personnes de passage Maximilien ? Dans ce cas, on peut dire qu'on est des collègues @+

Ah oui, c'est beaucoup plus compliqué que je pensais au début En clair, c'est que les accroch fonctionnent que sur certains type d'entités et pas d'autres Je n'ai malheureusement pas de solution miracle. Je regarde du coté de la prog pour voir ce que je peux trouver, mais je ne promets rien @+

Pour Maximilien Je suis comme Didier, je ne comprends pas trop le sens de ta question Pour Zebulon_ Tu as plus simple avec la fonction tblsearch @+

Salut Tu peux désactiver les accroch puis te servir ensuite pendant tes commandes de pro (proche), per (perpendiculaire), ext (extrémité), mil (milieu) , etc… @+

Mes amitiés de la journée Didier Je ne comprends pas tout à fait ta question. Pour changer de présentation, en cliquant tout simplement sur l’onglet qui va bien :exclam: @+

Je répondrai comme Laurent, le camping car Maintenant, il y a aussi la solution des chambres d’hôtes mais tout dépend du budget et si tu pars en famille @+

Bonjour à tous. Je n'arrive pas à importer un bloc qui n'existe pas dans les tables mais qui se trouve sur mon disque dans autocad en vlisp sans passer par la commande _insert :casstet: J'arrive bien à pointer sur les blocs par ce biais (vl-load-com) (setq a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))) Et un (vla-add a (vlax-3d-point '(0.0 0.0 0.0)) "MON_BLOC") me permet bien de créer mon_bloc, mais un (vla-add a (vlax-3d-point '(0.0 0.0 0.0)) "c:/rep1/rep2/MON_BLOC.dwg") ne fonctionne pas :mad: J’ai pensé au début que ça ne créé que le nom et qu’ensuite il fallait lui ajouter les éléments, mais je n’arrive pas à importer un bloc :( Merci d'avance et en espérant avoir été clair @+

J'ai fais un truc dans ce style, sauf que c'est l'association d'une polyligne avec un texte en réactif, ce qui veut dire que dès que tu modifies ta poly, le texte change Va voir ce lien et adapte-le si besoin, sinon, pose tes questions dans le forum lisp @+

C'est très bien et ça donne un aperçu de ce qu'il est possible de faire en lisp, mais pour faire un peu plus "lispien" plutôt que de se servir des commandes, on peut se servir aussi des entmod, voir des entmake Exemple pour changer la couleur d'une entité en rouge (setq ent (entget (car (entsel)))) (if (assoc 62 ent) (setq ent (subst (cons 62 1) (assoc 62 ent) ent)) (setq ent (append (list (cons 62 1)) ent)) ) (entmod ent) ; Prise en compte des modifs sur l'entité (entupd (cdr (assoc -1 ent))) ; Mise à jour à l'écran de l'entité (princ) @+

Je viens de tester ta méthode et ça fonctionne aussi, comme la mienne :o Bizarre, bizarre... :casstet: Bon, j'ai creusé un peu plus et j'ai trouvé. La sélection n'a aucune importance, c'est l'ordre de création des attributs qui détermine comment ils devront s'afficher. Je suis un peu surpris quand même, il me semble que sur la V12 voir V10, l'ordre se déterminait selon la sélection :casstet: @+

Pour la création de bloc, je fais exactement le contraire de Laurent Je choisis en premier mes attributs dans l'ordre où je veux qu'ils soient rangés puis mes entités. Je ne sais pas si battman existe sur LT, mais c'est une commande des express tools sur une version pleine @+

On ajoute l’indice du plan sur le nom du PLT pour minimiser les sources d’erreurs et garder aussi une traçabilité de nos documents. A chacun sa méthode Ca donne une page blanche, le rouleau se met à défiler mais on n'attend pas qu'il ait fini, on arrête avant qu’il n’y ait plus de papier Nous aussi, nous avons dût abandonner, mais c'est dommage. C'est comme si on donnait une voiture avec le GPS pour facilement trouver sa route mais qu'on ne s'en servait pas à cause de la transmission qui donne la mauvaise indication. Rouler en Rolls avec les options de la 2 cv Maintenant la solution que j’ai adoptée est dans les nuances de gris. La couleur 253 ou 252 pour le fond de plan archi et la couleur 7 pour nos couches (juste pour l’impression) @+

Par son identificateur (setq ETL (entlast)) (command "_.pline" (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) (if (/= (cdr (assoc 5 (entget (entlast)))) (cdr (assoc 5 (entget ETL)))) (command "_.change" (entlast) "" "_properties" "_color" 3 "") ) @+

Je suis bien d’accord, c'est juste pour dire qu'il faut quand même attention. Quand on travaille sur n fichiers, qu'on fait régulièrement des mises à jour sans forcement lancer l'impression immédiatement pour une raison x ou y. L’erreur est humaine Si entre une version n&b et couleur Quand c'est le cartouche d'un client qui est sur les plans, on n'a pas toujours le choix Quand j'implante mes symboles sur les plans archi, ça aide beaucoup à la compréhension. Je place un wipeout "sous mon bloc" (en réalité c'est intégré dans le bloc) et c'est beaucoup plus clair. Le symbole se détache nettement. @+