speedy

Bonjour à tous super ce lisp gile, mais il ne faut surtout pas faire battman et synchroniser ce bloc après l'utilisation ht-att tu auras tout perdu................ @+ Michel a

Bonjour Lili2006 tu as assez le choix comme fichier excel, pour les cellules ce sont des protos, à toi de personnaliser le format des cellules, j'avais choisi le vert pour les résultats, tu peux choisir autre chose c'est du pur excel....... j'avais commencé une méthode et dire que Sechanbask et Sigecom sont de bon conseil ont fourni leurs versions que je trouve trés trés bien ..... bien mais ce qui concerne la présentation c'est à chacun de l'adapter. Bon 15 Août à tous ...... je vais voir le feu d'artifice..... Michel a

Bonsoir à tous tu as bien bossé sechanbask, ton code fonctionne trés bien, merci....... entre cadxp et l'autre forum on se retrouve avec 3 versions qui fonctionnent. Pour Lili2006 il faut aller dans édition VBA et préférences et bien sélectionner la bonne bibliothèque j'ai remarqué qu'il ne detecte pas la bonne library (l'erreur : Biblio manquante) il suffit de choisir autocad 200x type library . @+ Michel a

Bonjour ce sont bien des points et tu veux remplacer ces points par un bloc regard ??? @+ Michel a

Bonjour c'est quoi un objet annotatif ?? Michel a

Bonjour ça ne marche pas encore, ça viendra, je continue les essais, le comble je suis arrivé à le faire connecter en ayant le fichier ouvert et là je n'y arrive plus, j'ai remargqué une chose comment éviter de faire démarrer le fichier dessin1, à chaque ouverture d'un fichier ???? @+ Michel

Bonjour à tous j'ai adapté pour le fun, un code vba pour extraire les calques autocad depuis excel. comment construire la ligne de code permettant de lister les calques d'autocad depuis excel. voici un début de fichier.............. http://cjoint.com/?ihkVmMm8HF pourriez vous m'aider à le finir..... Merci à vous Michel a

Bonjour j'ai éssayé ce code vba, il ne fonctionne pas du tout avec 2007, j'ai éssayé de rajouter la ligne On error resume next là je plante autocad..... pourrais tu méttre des commentaires dans le code pour que je comprenne mieux, et j'aimerais ensuite pouvoir le faire depuis excel ??? @+ Michel a

Bonjour j'utilise pdfcréator comme imprimante virtuelle, dans accrobat reader je met mon plan à 100% et je le capture avec l'icone instantané (appareil photo) et ensuite collage spéciale dans le document et ça reste de trés bonne qualité. @+ Michel a

Bonjour à tous j'ai essayé ce lisp nbl 2.0, il fonctionne mais dans mon cas il efface les infos inscrites dans les attributs. sur plusieurs dessins j'ai des blocs identiques mais leurs noms a changé avec des suffixes nomdubloc-flat-1flat-1 , jaimerais tous les renommer mais le nom du bloc d'origine existe dans le dessin et ne peut le renommer ?? y a t'il une idée ????? ps: j'ai remarqué quand on fait mesurer d'un bloc sur une ligne le nom de bloc n'est plus considéré comme bloc ?? merci Michel a

Bonjour d'abord c'est quelle programme qui convertit dwg to pdf ou une imprimante vertuelle comme pdfcreator ? pour que ça soit des timbres postes c'est que le fichier est ajusté à une taille prédéfini. @+ Michel a

Bonjour voici un bout de code vba pour excel pratique avec ixl, si il y a mieux...... Public Sub Extraire_Attributs() Dim AcadApp As AutoCAD.AcadApplication Dim SelSet As AutoCAD.AcadSelectionSet Dim FilterType(0) As Integer Dim FilterData(0) As Variant Dim FiltersType, FiltersData As Variant Dim i, Row, j, Column As Integer Dim Entity As AcadEntity Dim BlocRef As AcadBlockReference Dim Attributes As Variant Dim ColumnExist As Boolean 'modifié par Michel a pour version ixl 1.01 ' Efface toutes les données contenues dans la feuille Range("1:65536").ClearContents ' On lance AutoCAD Set AcadApp = New AutoCAD.AcadApplication ' On remets Excel au premier plan (le lancement d'AutoCAD désactive la fenêtre Excel) Application.Visible = True ' On demande le nom du fichier à ouvrir Cells(1, 28).Value = Application.GetOpenFilename("Dessins AutoCAD (*.dwg), *.dwg") ' Remplissage de l'entête du tableau Cells(1, 1).Value = "Nom du bloc" Cells(1, 2).Value = "Calque" Cells(1, 3).Value = "X" Cells(1, 4).Value = "Y" Cells(1, 5).Value = "Z" Cells(1, 6).Value = "Rotation" Cells(1, 7).Value = "Echelle" Cells(1, 27).Value = "Handle" ' On ouvre le fichier dans AutoCAD AcadApp.Documents.Open (Cells(1, 28).Text) Row = 2 ' 1ère ligne du tableau ' On crée un jeu de sélection Set SelSet = AcadApp.ActiveDocument.SelectionSets.Add("SELSET") ' On prépare un filtre de sélection sur les insertions de bloc FilterType(0) = 0 FilterData(0) = "INSERT" FiltersType = FilterType FiltersData = FilterData ' Sélection des entités SelSet.Select acSelectionSetAll, , , FiltersType, FiltersData ' On balaye le jeu de sélection For i = 0 To SelSet.Count - 1 Set Entity = SelSet.Item(i) ' Si l'objet est une insertion de bloc If Entity.ObjectName = "AcDbBlockReference" Then ' On précise le type de l'objet pour pouvoir accéder à ses propriétés et ' ses méthodes spécifiques Set BlocRef = Entity Cells(Row, 1) = BlocRef.Name Point = BlocRef.InsertionPoint Cells(Row, 2) = BlocRef.Layer Cells(Row, 3) = Point(0) Cells(Row, 4) = Point(1) Cells(Row, 6) = BlocRef.Rotation Cells(Row, 5) = Point(2) Cells(Row, 7) = BlocRef.XScaleFactor ' Si il a des attributs If BlocRef.HasAttributes Then Cells(Row, 1).Value = BlocRef.Name Cells(Row, 27).Value = BlocRef.Handle ' On les récupére Attributes = BlocRef.GetAttributes ' On parcourt le tableau For j = LBound(Attributes) To UBound(Attributes) ' On recherche si une colonne existe déjà pour cette étiquette d'attribut Column = 8 ColumnExist = False While Not IsEmpty(Cells(1, Column)) If Cells(1, Column).Text = Attributes(j).TagString Then ' Une colonne existe, on la remplit avec la valeur de l'atribut Cells(Row, Column).Value = Attributes(j).TextString ColumnExist = True End If Column = Column + 1 ' On passe à la colonne suivante Wend If Not ColumnExist Then ' Aucune colonne n'existe, on en crée une et on la remplit Cells(1, Column).Value = Attributes(j).TagString Cells(Row, Column).Value = Attributes(j).TextString End If Next ' Attribut suivant Row = Row + 1 ' Ligne suivante End If End If Next ' On ferme AutoCAD AcadApp.Quit MsgBox "Les attributs du dessin " & Cells(28, 1).Text & " ont été extraits avec succès." End Sub @+ Michel a

Merci beaucoup Gile ça fonctionne, c'était pour éviter de refaire les cartouches, ils sont tous en textes maintenant et il n'y aura plus de différence entre eux. en cliquant simplement sur un texte ou changer un caractère tout venait en majuscule ??? c'était génant en final de l'uniformisation des cartouches. @+ Michel a

Merci de ta réponse oran, ce ne sont pas des blocs ce sont que des attributs, avec etiquette et invité tout simplement, je cherche le moyen de convertir att2txt....... le code dxf "((0 . "ATTDEF") (2 . "Mon titre") (7 . "Style") (8 . "calque") (210 0.0 0.0 1.0))" @+ Michel a

Bonjour j'ai des cartouches constitués d'attribut 'texte' mais chaque fois que j'e modifie mon texte tout se met en majuscule ??? y'a t'il un moyen de transformer ces attributs en texte, ou comment faire pour qu'il garde le texte sans tout transformer en majuscule ?? @+ Michel a

Bonjour si tu n'as pas office de microsoft ? laisse tomber le fichier excel, c'est vba ça ne marchera jamais, utilise plutot la routine avec OOO.org. bon courage Michel a

Bonsoir le fichier excel fonctionne il faut que dans ton éditeur vba déclarer la librairie à outils et préférences cocher la ''Autocad 2xxx Type Library ' de ta version autocad voici mon fichier escel perso d'extraction http://cjoint.com/?httjOUHo6u Patrick_35 a fait un super vlisp " iXL" qui remet à jour tous tes blocs en une seule fois.......... http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=11303&POSTNUKESID=7f8e0e8cf0d37d310e2ebb82b5844883 @+ Michel a '' ça ne fonctionne pas forcément quand on a pas assez d'info sur le sujet........''

Merci Patrick_35 j'ai finalement compris la méthode, ça fonctionne avec 2007 par contre ça ne met pas à jour quand les blocs sont insérés, c'est pour ça que je ne comprenais pas........................... longue vie à iXl .............. @+ Michel a

C'est pour ça que j'avais demandé le mode d'emplois, j'ai suivi le format des colonnes et quand je fais ''lancer le traitement'' il bouigue mais rien ne change dans excel et dans autocad il trouve les cellules excel mais rien ne se passe..... est ce que ixl peut extraire lui même les attributs ?, j'avais essayé dans une page vierge ne fait rien. @+ Merci Michel a

Bonjour Merci à Patrick_35 pour iXL, y aurait il le mode d'emplois pour le bon fonctionnement du lisp j'ajoute le fichier xls, doit il rester fermer ou ouvert, et comment extraire les blocs vers ce fichier après modif du fichier excel remettre à jour... Merci encore @+ Michel a

Bonjour Beaucoup personnalisent leurs polices de textes sur leurs plans pour faire bien mais ils pensent jamais à le lier avec leurs plans ......on fait annuler et tout va bien, mais Lecrabe comment supprimer la demande du shx à chaque ouverture ??? et comment remplacer ce fichier ???? Bonne journée à tous Michel a

C'est merveilleux......Bred exactement ça, merci beaucoup. :) @+ Michel a

cest bien sur cette idée que j'ai parlé de handle des blocs, j'aimerais bien pouvoir importer des blocs vers excel les traités et ensuite mettre à jour dans autocad vous avez raison tous les deux, pour exporter vers autocad pas de besoin de handle. Commençons par pouvoir exporter la liste des blocs et attributs vers autocad, on verra ensuite pour la mise à jour........ @+ Michel a

Merci beaucoup Bred ça fonctionne exactement je verrais au fur et à mesure de l'utilisation.... la seule chose c'est que les autres calques je les rends inactifs (que là ils sont gelés) comme ça je les libère tous d'un coup, pour expliquer je gèle des calques dont je suis sure et ensuite je jongle sur les autres calques en utilisant layiso et _layon. @+ Michel a

Bonjour au choix, modifier l'attribut du fichier bouton droit propriété (lecture seule) il peut être lu et non modifiable il l'annoncera à chaque ouverture d'autocad , ou gestion des droit par l'administrateur réseau. @+ Michel a