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

Bonjour à tous, toujours dans mes questions de Présentation : Comment imprimer les Présentations dans l'ordre (en VB) tel qu'elles sont affichées en onglets à l'écran ? L'impression "globale" respecte un ordre différent (sans doute celui de la création) Merci Curt

Ce n'est pas grâve, j'ai trouvé. Voilà une solution : Sub RenommerOnglet() Dim nb As Variant On Error Resume Next nb = ActiveDocument.Layouts.Count For i = 1 To nb - 1 Order = ActiveDocument.Layouts(i).TabOrder ActiveDocument.Layouts(i).Name = "folio" & i Next i End Sub Merci du coup de pouce. Curt

Bonjour Gile, un petit bout de code serait le bien venu... ;) Merci Curt

Bonjour à tous, est-il possible de renommer les onglets Espace Papier en VBA ? Je ne parviens pas à utiliser AcadApp.ActiveDocument.Layouts(i).Name en Renommage. Merci Curt

Bonjour à tous, Ce post n'était pas dans le bon forum alors je le répète ici :exclam: J'arrive à modifier les attributs de blocs depuis Excel vers AutoCad, mais est-il possible de modifier des textes dans AutoCad de la même manière, c'est à dire en les sélectionnant par le Handle ? Un p'tit bout de code VB serait le bien venu. Merci et bon week-end à tous. Curt

Bonsoir à tous, J'arrive à modifier les attributs de blocs depuis Excel vers AutoCad, mais est-il possible de modifier des textes dans AutoCad de la même manière, c'est à dire en les sélectionnant par le Handle ? Un p'tit bout de code VB serait le bien venu. ;) Merci et bon week-end à tous. Curt

Bonjour à tous, j'ai à présent l'erreur ; erreur: Erreur Automation Entrée incorrecte J'ai mis la ligne ici : (defun c:impf(/ bg doc fen hd lay plt pt1 pt2 sau) (vl-load-com) Encore besoin d'un peu d'aide.... Merci [Edité le 20/8/2009 par curt]

Bonjour Patrick_35, merci pour le Lisp. Au lancement j'ai le message ; erreur: no function definition: VLAX-GET-ACAD-OBJECT N'étant pas du tout dans Lisp (c'est pour ça que je pensais au VBA), je ne vois pas comment résoudre cette erreur. Merci pour l'aide. Curt

Bonjour Steven, merci pour la réponse, mais ça ne correspond pas à ce que je veux faire. Rappel : J'ai plusieurs onglets Espace Papier qui me permettent d'imprimer des zones d'un grand ensemble de bâtiments. Dans cet ensemble de bâtiments, j'ai des passerelles que j'ai regroupé dans UN SEUL onglet Espace Papier qui contient autant de VUES qu'il y a de passerelles. Cet onglet est à lui seul (avec les vues) un document comportant la page de garde, révision, et les feuilles successives. Voilà pourquoi je souhaite pouvoir imprimer ces vues pour avoir mon document PASSERELLE en une seule opération. La configuration des onglets et des calques n'est pas modifiable (volonté du client). L'idée que j'avais : puisqu'on sait imprimer les vues manuellement, une par une, est-il possible de faire une macro qui permettrait de lister toutes les vues de l'onglet et de lancer l'impression de cette liste. Dans le pire des cas, sais-tu comment récupérer en VBA le nom des vues d'un onglet ? Je m'occuperais de faire la macro. Merci pour l'aide. Curt