Patrick_35

Salut Dans une fenêtre de présentation, les calques qui sont gelés sont dans les xdatas de la fenêtre Exemple (mapcar '(lambda(x)(cdr (assoc 2 (entget (cdr x))))) (vl-remove-if-not '(lambda(x)(eq (car x) 331)) (entget (car (entsel))))) @+

Salut Le lisp modifié pour ajouter les quantités. Pour que cela fonctionne, il faut que le texte qui indique la quantité est la valeur 0 @+

Merci (gile) @+

Bonjour Voici un lisp qui liste les échelles utilisées ou pas dans un dessin (defun c:lste(/ blo doc inu lst txt uti liste_echelles) (defun liste_echelles(/ dic ele ent lst obj sel typ) (vlax-for blo (vla-get-blocks doc) (and (eq (vla-get-isxref blo) :vlax-false) (vlax-for ent blo (and (eq (vla-get-hasextensiondictionary ent) :vlax-true) (vlax-for dic (vla-getextensiondictionary ent) (and (vlax-property-available-p dic 'name) (eq (vla-get-name dic) "AcDbContextDataManager") (vlax-for ele dic (and (eq (vla-get-name ele) "ACDB_ANNOTATIONSCALES") (vlax-for obj ele (setq typ (cdr (assoc 300 (entget (cdr (assoc 340 (entget (vlax-vla-object->ename obj)))))))) (or (member typ lst) (setq lst (cons typ lst))) ) ) ) ) ) ) ) ) ) lst ) (setq doc (vla-get-activedocument (vlax-get-acad-object)) lst (liste_echelles) ) (vlax-for ech (setq dic (vla-item (vla-get-dictionaries doc) "ACAD_SCALELIST")) (setq txt (cdr (assoc 300 (entget (vlax-vla-object->ename ech))))) (if (member txt lst) (if uti (setq uti (strcat uti ", " txt)) (setq uti txt) ) (if inu (setq inu (strcat inu ", " txt)) (setq inu txt) ) ) ) (if uti (princ (strcat "\n\tEchelle(s) annotative utilisée(s) -> " uti)) (princ "\n\tPas d'échelle annotative d'utilisée.") ) (if inu (princ (strcat "\n\tEchelle(s) annotative inutilisée(s) -> " inu)) (princ "\n\tPas d'échelle annotative d'inutilisée.") ) (princ) ) ps : il reste une ligne à traduire en vl, impossible de trouver comment pour l'instant @+

Pour trouver les objets d'un bloc Le 1er (setq ent (entget (cdr (assoc -2 mon_bloc)))) Le 2em (setq ent (entnext (cdr (assoc -1 ent)))) (setq ent (entget ent)) Le 3em (setq ent (entnext (cdr (assoc -1 ent)))) (setq ent (entget ent)) Le 4em (setq ent (entnext (cdr (assoc -1 ent)))) (setq ent (entget ent)) Etc... Une boucle pour faire afficher le type d'objets qui composent le bloc (and (setq mon_bloc (tblsearch "block" "Mon_Bloc")) (setq ent (cdr (assoc -2 mon_bloc))) (while ent (setq ent (entget ent)) (terpri) (princ (cdr (assoc 0 ent))) (setq ent (entnext (cdr (assoc -1 ent)))) ) ) Maintenant, à toi de dire quel objet tu souhaites modifier (le 1er, 5em ou 10em) ps : l'échelle de la ligne est le code dxf 48 (optionnel) @+

Tu es pardonné, tu es concentré sur autre chose ;) @+

Salut Valable pour des attributs, pas pour du graphique. Tu vas dans la table des blocs (setq mon_bloc (tblsearch "block" "Mon_Bloc")) Pour trouver le 1er objet qui compose le bloc (setq ent (entget (cdr (assoc -2 mon_bloc)))) Pour trouver le suivant (setq ent (entnext (cdr (assoc -1 ent)))) (setq ent (entget ent)) @+

Salut Ben oui, avec le gestionnaire de mise en page (pour importer) @+

Salut En partant du lisp de lili, tu peux remplacer %%U par "{\\\\L" et "}" pour les mtexts @+

On commence les paris. Qui au gong ? @+

Salut Ajoute dans le filtre (cons 410 (getvar "ctab")) @+

Ah oui, pas sur les mtexts Alors, on commence quand ? @+

Salut Il va falloir se préparer :cool: http://www.maxi-gif.com/gif-anime/sports/sports-boxe-00016.gif @+

Salut Je rejoins Fraid @+

Salut Pas besoin de lisp. Ajoute %%U dans le texte avec par exemple la commande _find @+

Bravo (gile) Jolie formule, comme je les aime. :) Mais, je n'arrive pas à comprendre la logique. Je vois bien pour le mapcar, le cons et l'apply, mais l'apply appelant le mapcar qui lui-même utilise le min dans la liste, quelque chose m'échappe :casstet: @+

Mais toi, tu es en 3d ;-) Oui ;) Je remarque tu as une fonction sslist. Tu n'as jamais pensé à la fonction lisp ssnamex ? ps : (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))) = sslist mais en vla. @+

Salut Tu as ce sujet @+

Salut Par exemple (defun bdtxt( / bg ent hd lst sel lstxyz xyz) (defun xyz(mm cc lst) (apply mm (mapcar cc lst)) ) (defun lstxyz(lst) (list (list (xyz 'min 'car lst) (xyz 'min 'cadr lst) (xyz 'min 'caddr lst) ) (list (xyz 'max 'car lst) (xyz 'max 'cadr lst) (xyz 'max 'caddr lst) ) ) ) (vlax-for ent (setq sel (vla-get-activeselectionset doc)) (vla-getboundingbox ent 'bg 'hd) (setq lst (append (lstxyz (list (vlax-safearray->list bg) (vlax-safearray->list hd))) lst ) ) ) (vla-delete sel) (lstxyz lst) ) Pour tester (defun c:test() (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (ssget) (setq mes_points (bdtxt)) ) ps : Carboleum à été plus rapide @+ [Edité le 15/9/2010 par Patrick_35]

Salut Il y a des commandes qui ont migrées des express-tools vers Autocad, comme lman, chspace, etc... @+

Salut Tu peux envoyer à (vl-list->string '(112 97 116 114 105 99 107 51 53 64 97 108 105 99 101 97 100 115 108 46 102 114)) ps : Pour les objets annotatifs, tu as sûrement raison, mais je n'ai jamais pris de temps de regarder ni même de comprendre à quoi ça sert réellement. Quand on a une méthode de travail qui a fait ses preuves, des outils qui permettent ce que l'on veut, dur dur de faire bouger un dinosaure ;) Totodesk nous ajoute au fil des versions, des nouveaux concepts. Il faut bien vendre et occuper ses développeurs :cool:, même si on a déjà ce qu'il faut. @+

Salut Bien sur, comme avec par exemple MPL qui met à jour la liste des onglets en fonction de celui qui est choisit dans la list_box. @+

Bonjour Ben, je n'ai pas trouvé le bouton pour le vote :( On glisse sur le débat philosophique ;) Dans les jardins de Tipaza, sur une stèle face à la mer, une citation de Camus @+

Salut Oui, avec la commande _burst des express tools. @+

Bonjour Juste une précision. Dans Autocad, le calque 0 est impurgeable Extrait de l'aide @+