curt

Bonjour à tous, au même titre que je cherchais à connaître l'espace (objet ou présentation) sur lequel était dessiné un objet, est-il possible de connaître le nom de la présentation contenant l'objet sélectionné à partir de VBA ? D'avance merci Bon week-end à tous. Curt

Bonjour à tous, je cherche à définir par VBA si la version d'AutoCad installée est en 32 ou 64 bits. J'ai trouvé l'info via la routine LISP sur ce lien Mon lien Existe-t'il la même chose en VBA ? Bonne journée. Curt

Salut à tous, le projet est protégé par un mot de passe !??. Curt

Bonjour Gile, c'est comme d'habitude... tout simple ! merci

Bonjour à tous, je ne parviens pas à récupérer l'espace (ModelSpace ou PaperSpace) d'une entité, en l'occurrence un bloc, en VBA. On parvient pourtant bien à voir l'espace dans lequel se situe l'entité quand on fait [Liste] Merci d'avance. Curt

bonjour Olivier, le texte doit être indépendant; le bloc doit se retrouver SANS ATTRIBUUT NI TEXTE (Explication : nos plans doivent servir à une appli d'UAE qui ne supporte pas les blocs avec texte et/ou attributs) Encore merci. Curt

Bonjour à tous, j'ai des plans contenant des blocs avec attributs. On me demande de convertir les attributs de blocs en texte. Donc la commande BURST semblerait convenir. Malheureusement, cette commande décompose en même temps le bloc, alors qu'il faudrait conserver cet objet intact. Existe t'il une commande pour réaliser cela ? Sinon, comment résoudre cela par Lisp ou mieux (!!) par VBA ? Merci d'avance pour l'aide. Curt

Bonsoir à tous, je souhaite récupérer dans Excel (via VBA) les données contenues dans la boîte de dialogue "Editeur d'attributs étendu". Pour ce qui est de récupérer les attributs, points d'insertion, etc des blocs, pas de soucis. Pour ce qui est des Option de texte de Propriétés (contenus dans les onglets de la boîte de dialogue) je ne trouve pas d'info. Merci d'avance pour le coup de main. Curt

Bonjour à tous, j'ai utilisé (avec plaisir et surtout avec une belle efficacité ;) le script RINS.lsp de Patrick_35 (merci à lui) J'ai buté sur le problème suivant : Peut-on éviter, lorsqu'on a un bloc avec attributs, qu'au cours de recalage du point d'insertion du bloc, les attributs de texte ne se déplacent. La question est posée lors de l'utilisation du lisp pour le déplacement du bloc (réponse O/N) mais rien pour les attributs. Du coup, le bloc est resté à sa place (nickel) mais il a fallu déplacer les attributs à la main. (à moins que j'ai raté une option !!!) Toute idée sera la bienvenue. Bon week-end à tous. PS : je redécouvre ce forum après une (trop) longue absence.... la qualité est au rendez-vous. Bravo Curt

Bonjour à tous, au mettre titre que l'import/export d'atrributs de blocs de AutoCad <> Excel, est-il possible exporter du Texte (avec son Handle) vers Excel et de pouvoir ensuite (après modif) l'importer dans AutoCad ? Le VBA pour les attributs fonctionne parfaitement (merçi Gilles et Patrick) mais à présent, j'ai des plans ou il n'y a que du texte.. Merci et bravo à tous ! Curt

Bonjour à tous, au mettre titre que l'import/export d'atrributs de blocs de AutoCad <> Excel, est-il possible exporter du Texte (avec son Handle) vers Excel et de pouvoir ensuite (après modif) l'importer dans AutoCad ? Le VBA pour les attributs fonctionne parfaitement (merçi Gilles et Patrick) mais à présent, j'ai des plans ou il n'y a que du texte.. Merci et bravo à tous ! Curt

Bonjour à tous, J'ai depuis peu un soucis avec les XREF de mes fichiers, à savoir qu'il sont systématiquement en NON RESOLU, ce qui oblige à les recharger manuellement. Pour info : les fichiers et XREF sont sur un serveur Merci d'avance pour l'aide. Curt

Bonjour à tous, je vais être le plus clair possible : J'ai un onglet Présentation contenant des Fenêtres Ce sont ces Fenêtres que je veux pouvoir supprimer en VBA. Supprimer les onglets Présentations fonctionne déjà. Merci à vous Curt

Bonjour à tous, j'essai de supprimer une fenêtre de présentation dans l'espace papier en passant par VBA. Public Sub DetruireFenetre() Dim objFenetre As AcadViewport Set objFenetre = ThisDrawing.Viewports(0) ThisDrawing.ActiveViewport = objFenetre Set objFenetre = ThisDrawing.Viewports("Fenetre") objFenetre.Delete End Sub mais ça ne m'efface pas la fenêtre présente... Où est l'erreur ? Merci Curt

Bonjour et merci à tous, effectivement, je me suis mis au VBA pour une raison pratique : Tout Office "cause" VBA et AutoCad également (ce qui n'est pas vrai avec Lisp) et je fais régulièrement appel à Excel et Access en accord avec AutoCad. Merci à tous. Curt