bryce

Ok, j'ai trouvé le problème et corrigé le code ci-dessus. Il y a des espaces inutiles à la fin de la valeur des attributs LABEL, par exemple "310550 " au lieu de "310550". Je les ai supprimés dans le nom du bloc, mais j'ai laissé les attributs en l'état.

Bonjour, Pour déplacer il y a la commande Déplacer, pour appliquer une rotation la commande Rotation, et pour faire une mise à l'échelle la commande Échelle... :P Si tu veux réaliser ces 3 opérations en une fois, il y a la commande Aligner (ALIGN au clavier). ;)

Bonjour, Si tu as bien fait attention lors du copier-coller du code, il n'y a pas vraiment de raison que ça vienne de toi a priori. J'ai testé le programme vite fait sur un dessin avec 3 ou 4 blocs et ça fonctionne. Si chez toi il y a un souci, le mieux serait que tu me transmettes un dwg concerné pour que je puisse regarder ce qui cloche. Tu peux passer par dl.free.fr par exemple, ou me l'envoyer par mail si tu préfères (brice at creao point fr).

Bonjour, Oui, ça me semble normal de régulièrement "forcer" un accrochage. Mais d'après ce que je comprends, Didier lui travaille carrément avec OSMODE à 0 la plupart du temps, ce qui signifie devoir entrer manuellement chaque accrochage systématiquement. C'est encore autre chose... (je ne dis pas que c'est mal hein...).

Bonjour, Certes, mais de là à entrer systématiquement chaque accrochage au clavier... :unsure: Ça fait un peu "années 80" quand même ! :P

Bonjour, Pas d'autre solution a priori que de le faire en programmation. Voici un Lisp vite fait qui devrait faire l'affaire : (defun c:RENBLOCS ( / bloc etiquette doc blocks ss ) (setq bloc "OBJ*" ; "pattern" du nom des blocs à renommer etiquette "LABEL" ; étiquette de l'attribut contenant le nouveau nom ) (vl-load-com) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) blocks (vla-get-Blocks doc)) (setq ss (ssget (list (cons 0 "INSERT") (cons 2 bloc)) ) ) (if ss (progn (setq ss (vla-get-ActiveSelectionSet doc)) (vlax-for b ss (mapcar '(lambda ( att / n ) (if (= etiquette (vla-get-TagString att)) (progn (setq n (vl-string-trim " " (vla-get-TextString att)) ) (if (not (tblsearch "BLOCK" n)) (vla-put-Name (vla-Item blocks (vla-get-EffectiveName B)) n ) ) ) ) ) (vlax-invoke b 'getAttributes) ) ) (setq ss (ssget "_P" (list (cons 0 "INSERT") (cons 2 bloc)) ) ) (if ss(sssetfirst nil ss)) ) (princ "\nAucun bloc trouvé.") ) (princ) )

Bonjour, Moi aussi, ça me paraît plus logique... en théorie ! En pratique c'est différent : quels réglages adopter pour le style de cote par exemple (hauteur du texte, taille des flèches, etc.) ? En particulier pour pouvoir utiliser l'annotativité ? <_< Du coup, c'est l'autre méthode que j'utilise et enseigne : l'espace Papier reste en mm, l'échelle de tracé à 1:1, quelle que soit l'unité de dessin en espace Objet...

Bonjour, (command "nom_de_la_macro") :P

Bonjour, Tu peux aussi utiliser l'enregistreur de macros d'action. Le nom de la macro peut ensuite être entré au clavier comme une commande. ;)

En regardant le résultat dans la ligne de commande... ;)

Bonjour, Le code ci-dessous fonctionne chez moi : (command "-edithach" SelHach "aj" "s" SelPol "" "") Bizarre que des "" supplémentaires soient nécessaires... :unsure:

Ça semble ok... <_< Un simple Regen ne suffit pas à restaurer l'ordre d'affichage ?

Bonjour, A priori oui. Sur mon pc (Core I5, 8 Go Ram, Win 7 64bits), le fichier d'origine mets environ 30s à s'ouvrir avec AutoCAD 2013. Après avoir affecté une autre police au style STANDARD, il s'ouvre en 2-3s. Dans ton fichier, le style STANDARD utilise une police qui n'existe pas (Times New Roman.shx). Le problème vient de là je pense (voir capture).

AutoLisp est un langage de programmation intégré aux versions complètes d'AutoCAD. Il permet d'écrire des programmes (ou d'utiliser des programmes écrits par d'autres) pour définir de nouvelles commandes, automatiser des tâches répétitives, etc. Ce sont ces programmes qu'on appelle couramment des "Lisp"... Il y a une section consacrée au Lisp sur CadXP : http://cadxp.com/index.php?/forum/11-lisp-et-visual-lisp/

Bonjour, Tu peux éventuellement tester ScanDXF pour faciliter l'extraction.

Bonjour, Beta 8, ajout d'une colonne affichant la largeur globale des polylignes.

Bonsoir, ZwCad fonctionne bien, et il a des avantages par rapport à AutoCAD LT, dont la possibilité d'utiliser des programmes en Lisp. Il lui manque encore quelques fonctionnalités par rapport à AutoCAD (blocs dynamiques par ex.), mais a priori ça devrait changer très très bientôt.

Il faut avoir installé le Service Pack 1 au minimum.

Bonjour, Oui, avec la commande ARRAYCLASSIC ;)

Oui, la commande ne copie que des objets simples. Ce que je voulais dire, c'est que les options Insérer ou Lier ne changent que la manière dont sont gérés les styles des objets copiés depuis une Xref.

Bin oui... L'Aide n'est pas très claire à ce sujet, mais à mon avis l'option ne concerne que les objets faisant partie d'une Xref.

Bonjour, A la même chose que quand on lie une Xref. Ex: le dessin contient une Xref TOTO, qui contient un texte en style STANDARD. Si on utilise NCOPIE sur ce texte, la copie sera soit en style STANDARD (option Insérer), soit en style TOTO$0$STANDARD (option Lier).

Bonjour, La routine gc:MoveToBottom fait appel à une autre routine gc:GetSortentsTable absente du fichier posté, ça vient peut-être de là.

Bonjour, En RealBasic :)

Bonjour, La Beta 7 est dispo, et affiche les attributs dans la vue détaillée des blocs.