Patrick_35

Salut Tu as la variable CTAB @+

Salut Dans le répetoire d'Autocad "C:\Program Files\Autodesk\AutoCAD 20xx\Sample\fr-FR\Dynamic Blocks", tu as des blocs dynamiques dont le fichier "Annotation - Metric.dwg" Tu devrais trouver ton bonheur dans les exemples donnés. @+

Salut Une recherche avec tabloblo @+

Salut Parkinson guette ;) @+

Salut Pour convertir des radians en degrée (* 180.0 (/ 1.82424e-016 pi)) Pour voir le nombre de 0 (rtos (* 180.0 (/ 1.82424e-016 pi)) 2 16) @+

Idem Sinon je ne vais pas jusqu'a 30000 blocs, ça commence à peser. L'avantage de LSTATT est de faire un décompte vite fait et aussi de pouvoir faire un distingo par attribut pour un même bloc Par exemple pour un électricien : Tu peux avoir le même symbole pour les luminaires et les distinguer par type et ensuite par puissance @+

Bonjour Steven Oui, mais pas avec la dernière version. J'ai fais évoluer le lisp suite à ce sujet @+

Salut Tu as la commande multiple dans autocad @+

Salut Et avec LSTATT ? @+

Salut C'est plutôt rare comme démarche et je t'en remercie. Combien de fois je vois des lisps ou des extraits dont l'auteur n'est pas cité (et en plus pour ceux qui programment, on reconnait le style de chacun). Pour filtrer les stb (setq stylenames (vl-remove-if '(lambda(x) (eq (vl-filename-extension x) ".stb")) (vlax-invoke (vla-get-layout (vla-get-modelspace doc)) 'getplotstyletablenames))) @+

Salut Lili Ce lisp permet de geler des calques dans le dessin depuis les calques gelés dans une fenêtre afin de répondre à la demande de Cyrchap. Ensuite un petit coup de lman et le tour est joué. @+

Je suppose que tu parles de tes variables ? Alors (strcat tex1 "\\P" tex2) @+

Salut Oui --> touche F3 @+

Un lisp qui gèle ou libère les calques selon une fenêtre Il ne restera plus qu'à sauvegarder l'état de calques (defun c:gfe(/ cod doc fen lst typ) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (and (setq fen (entsel)) (setq fen (vlax-ename->vla-object (car fen))) (eq (vla-get-objectname fen) "AcDbViewport") (progn (vla-getxdata fen "" 'cod 'typ) (setq cod (vlax-safearray->list cod) typ (vlax-safearray->list typ) bou 0 ) (while (setq fen (nth bou cod)) (and (eq fen 1003) (setq lst (cons (vlax-variant-value (nth bou typ)) lst))) (setq bou (1+ bou)) ) (vlax-for fen (vla-get-layers doc) (or (eq (vla-get-name fen) (getvar "clayer")) (if (vl-position (vla-get-name fen) lst) (vla-put-freeze fen :vlax-true) (vla-put-freeze fen :vlax-false) ) ) ) ) ) (vla-endundomark doc) (princ) ) @+

Salut (command "_.mleader" pause pause "Un texte\\PUn autre") @+

Salut Et pourquoi ne pas travailler en objet depuis une présentation ? @+

Salut Je pense que cela s'impose ;) @+

Normalement si. Tu as un exemple ? @+

Je ne comprends pas. Tu sélectionnes un attribut (l'attribut et pas le bloc) comme objet "source" Tu sélectionnes ensuite les attributs (et uniquement les attributs) auxquels tu souhaites recopier les propriétés. ps : Ce qui a été modifié dans le lisp, c'est le nom de l'étiquette que ne change plus. pps : Pour bien se faire comprendre, tu édites un attribut, change plusieurs choses (couleur, style de texte, hauteur, etc...) et utilises le lisp en partant comme base sur l'attribut modifié. @+

Il a déjà été modifié en réponse 3 @+

Je ne comprends pas le problème ? Tu sélectionnes l'attribut "source" et duplique ses propriétés vers n'importe quel autre attribut (sauf la valeur ainsi que la position). Qu'importe le nom de l'attribut --> Je viens de comprendre et de corriger le lisp en virant le code dxf 2 @+

Salut (defun c:atc(/ att des) (princ "\nSelectionnez l'attribut d'origine : ") (and (setq att (nentsel)) (setq att (entget (car att))) (eq (cdr (assoc 0 att)) "ATTRIB") (princ "\nSelectionnez l'attribut de destination : ") (while (setq des (nentsel)) (princ "\nSelectionnez l'attribut de destination : ") (and (setq des (entget (car des))) (eq (cdr (assoc 0 des)) "ATTRIB") (entmod (mapcar '(lambda(a B)(if (vl-position (car a) '(-1 1 2 5 10 11 330)) b a)) att des)) ) ) ) (princ) ) @+

(setq lst '(7090.35 6081.96 5049.83 4031.35 3030.6 2028.35 1021.77 0.0 23926.9 23109.3 22129.8 21145.7 20131.1 19128.6 18127.2 17130.9 16131.5 15110.7 14088.1 13104.4 12085.2 11084.0 10088.8 9090.96 8092.54)) (setq tbl (vl-sort lst '<)) (mapcar '(lambda(x / n) (setq n (- (length tbl) (length (member x tbl)))) (cond ((zerop n) (list nil (nth n tbl) (nth (1+ n) tbl)) ) ((eq n (length tbl)) (list (nth (1- n) tbl) (nth n tbl) nil) ) (T (list (nth (1- n) tbl) (nth n tbl) (nth (1+ n) tbl)) ) ) ) lst ) @+

Salut Regarde ce sujet @+

Ou peut-être un problème de langage ? Mais je ne pense pas que Lili travail sur une version anglaise. Pour une version internationale, c'est _detach qu'on peut utiliser à la place du T @+