speedy

Bonjour à tous il ne manque pas quelque chose à ce lisp Maximilien, quand on selectionne un texte hop il crée l'entité bloc et il disparrait ???? Michel a

Bonjour si tu connais Covadis, la commande y est intégré, mais je n'ai pas Covadis, juste Autocad, le cadre correspond de la zone à imprimer il n'est jamais horizontal, il suit le choix de la zone à imprimer, donc dans la présentation je suis obbligé de changer dans la vue active le SCU... comment vous faites quand vous avez deux zones avec des orientations différentes à tracer ?? Michel a

Bonjour à tous jusqu'à présent je métais les cadres de tracé et ensuite dans la présentation je modifiais le SCU. comment pourrait on sous autocad map2007, en prenant le repère du cadre dans l'objet manuellement et me creer autiquement la présentation avec la modif du scu ???? amicalement Michel a

Bonjour à tous j'ai souvent ce problème, mes Poly 3d viennent de mensura, et parfois se sont des spline, ce que je fais : je met tout à plat et je n'arrive pas à faire le contour. 1- je l'esploxe et je demande ensuite le contour et là ça marche ou 2- je veriffie que c'est bien polyliligne et non polyligne 2d, et fermé : oui c'est vrai la superposition et doublon ça n'aide pas toujours.... A+ Michel a

Il a raison stethi, la formation t'aideras énormément à démarrer avec mensura surtout pour comprendre son raisonnement, l'initiation est de deux jours ......... Bon courage Michel a

Bonjour Midat dans documentation du cdrom 5.01 42 ou chez geomensura tu as des pdf de chaque Module il suffit de bien suivre le dévellopement du sujet, tu bloques sur quoi ??? c'est vrai mensura à première vue a l'air compliqué et beau coup dise que c'est plus simple qu'autocad à voir...... Choisis le module que tu veux utiliser et tu comprendras plus facilement... LEs différents Modules : DAO : Dessin Topo : Relevé Topo Terrain : MNT (Cubature et profils) + Points de sondage Courbes de niveaux : Calcul de Courbe e Niveau Terrassement : Création de plate forme, Calcul de cubature Remblais et Déblais Assainissement : 1) Saisie du réseau : Accès au profil en long + Accès métré 2) Dimensionnement :EP /EU + Réseaux Divers Métré : Métré Rapide ( Avec digitalisation) Métré Indépendant Métré avec base articles (Rédaction de document) Projet linéaire : Profil en long + Profil en travers GIRATOIRE : En 2D (Traite avec terrassement ou profil linéaire) RENDU 3D : Rendu du projet PROFIL : Profil en long Voilà.... tout est expliqué en pdf.. Michel a

Bonjour à tous Je bataille à jongler avec les calques, bloc et polyligne, extraction par ci par là, y'aurait il un code vba sous excel qui puisse m'extraire les lineaires de ligne,polyligne du calque ou il se trouve...... Merci de votre aide Michel a

Bonjour Peux tu mettre le lien en clair :-).....ou dans le télchargement ? Merci Michel a

Bonjour Merci Stephan35 @+ Michel a

Merci stéphan35 il y a de quoi faire...... Michel a

Bonjour à tous Tu n'aurais pas un bout de code,,, pour le moment je jongle sur 'extraction des attributs et insertion dans autocad c'est un peu long..... filtrer mes bloc c'est bon mais lier l'attribut et le layer dans autocad directement ???? Merci Michel a

Bonjour à tous je recherche une solution, y'aurait il un moyen............ dans un bloc ecrire dans l'attribut le nom du calque ou il est placé...... Merci Michel a

Merci à vous tous ça marche, et en plus j'avais regardé et je n'avais pas remarqué la bybliothèque manquante... A+ Michel a

Bonjour à tous et un grand merci à Winfield, je recherche déséspérement, le code vba qui fonctionne depuis excel comme celui de Maxence delanoy import des attributs depuis excel et export je l'ai mis en ligne pour réparer l'erreur, la partie import depuis excel je suis arrivé à le faire mais export je plante toujours.... voir sujet : http://www.cadxp.com/sujetXForum-13635.htm Merci d'avance Michel a

lman c'est ce que j'utilise mais je ne suis pas arrivé à imprter les filtres calques, par contre les calques sans problème. A+ Michel a

Bonjour à tous jusqu'à présent j'utilise les fichiers .lay from express tools, mais j'ai trouvé une routine pour purger les filtres mais pas pour les crééer ou importer, je ferais un gabarit....... merci à vous Michel a Ps: toujour à l'écoute d'une nouvelle idée.

Bonjour à tous Y'aurait il un moyen de sauvegarder mes filtres calques et de pouvoir les réinjecter dans un autre fichier Autocad ???? si vous avez une routine....... Merci Michel a

Merci beaucoup Patrick_35, ça marche...., Michel a

Bonjour je serais interressé par une version dans excel directement, aurriez vous un code vba de même style (avec import et export de données) Merci Michel a

Bonjour Patrick je n'avais pas pensé à l'envoyer par --> http://www.cijoint.fr/cij4960651243154.zip Merci Michel a

Bonjour Patrick_35 c'est vrai je lie la polyligne au bloc, j'ai la valeur, quand j'ouvre le fichier plus tard j'ai perdu l'affichage de toutes les valeurs, alors je double clique sur chaque poly et echap pour regénérer le lien, et là la valeur réapparait... ou pourrais je t'envoyer le model dwg pour que tu comprennes mon problème. Merci de ton aide Michel a

Bonjour C'est exactement ça Didier........ Merci de ton aide Michel a

Bonsoir Didier dans le premier code vba, il importe les infos des blocs x,y,z et attributs avec le handle, dans un tableau excel, et j'aimerais pouvoir faire une mise à jour et exporter vers autocad de la même manière, comme excellink (je ne suis pas arrivé à le faire fonctionner). je préfère avoir un fichier excel Autonome pour gérer mes données. Michel a

Bonjour à tous j'ai récuperer ce code source que j'ai modifié, je n'arrive pas à faire fonctionner l'inverse excel to autocad ??? pourriez vous m'aider à l'améliorer .....voir la seconde partie plus bas.... 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 ' 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, 1).Value = Application.GetOpenFilename("Dessins AutoCAD (*.dwg), *.dwg") ' Remplissage de l'entête du tableau Cells(3, 1).Value = "Nom du bloc" Cells(3, 2).Value = "Handle" Cells(3, 6).Value = "X" Cells(3, 7).Value = "Y" Cells(3, 8).Value = "Z" Cells(3, 9).Value = "Echelle X" Cells(3, 10).Value = "Echelle Y" Cells(3, 11).Value = "Echelle Z" Cells(3, 12).Value = "Rotation" Cells(3, 13).Value = "Calque" ' On ouvre le fichier dans AutoCAD AcadApp.Documents.Open (Cells(1, 1).Text) Row = 4 ' 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, 6) = Point(0) Cells(Row, 7) = Point(1) Cells(Row, 8) = Point(2) Cells(Row, 9) = BlocRef.XScaleFactor Cells(Row, 10) = BlocRef.YScaleFactor Cells(Row, 11) = BlocRef.ZScaleFactor Cells(Row, 12) = BlocRef.Rotation Cells(Row, 13) = BlocRef.Layer ' Si il a des attributs If BlocRef.HasAttributes Then Cells(Row, 1).Value = BlocRef.Name Cells(Row, 2).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 = 3 ColumnExist = False While Not IsEmpty(Cells(3, Column)) If Cells(3, 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(3, 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(1, 1).Text & " ont été extraits avec succès." End Sub ------------------------------------------- Sub EnvoyerVersAutoCAD() Dim AcadApp As AutoCAD.AcadApplication Dim BlocRef As AcadBlockReference Dim Row, i, Column As Integer ' On lance AutoCAD Set AcadApp = New AutoCAD.AcadApplication AcadApp.Visible = True ' On ouvre le fichier dans AutoCAD AcadApp.Documents.Open (Cells(1, 1).Text) Row = 4 ' On commence à la rangée N°4 While Not IsEmpty(Cells(Row, 2)) ' On s'arrête quand on tombe sur une cellule handle vide ' On retrouve l'insertion de bloc à l'aide du handle mémorisé dans la feuille de calcul et de la ' méthode HandleToObject de l'objet document AutoCAD Set BlocRef = AcadApp.ActiveDocument.HandleToObject(Cells(Row, 2)) ' Si le bloc a des attributs... If BlocRef.HasAttributes Then ' ... on les récupère Attributes = BlocRef.GetAttributes ' On parcourt le tableau For i = LBound(Attributes) To UBound(Attributes) ' Pour chaque attribut, on cherche une colonne dont l'entête correspond à l'étiquette ' de l'attribut Column = 3 While Not IsEmpty(Cells(3, Column)) If Cells(3, Column).Text = Attributes(i).TagString Then Attributes(i).TextString = Cells(Row, Column).Text End If Column = Column + 1 ' On passe à la colonne suivante Wend Next BlocRef.Update End If Row = Row + 1 ' On passe à la ligne suivante Wend 'AcadApp.ActiveDocument.Regen(acActiveViewport) ' On ferme AutoCAD AcadApp.Quit MsgBox "Les données ont été transférées vers AutoCAD avec succès." End Sub Merci de votre aide Michel a

Bonjour à tous et merci à Patrick_35 je n'arrive pas à avoir de réponse, j'ai utilisé rea-att de patrick_35 pour mes métré, après ouverture du fichier toutes les valeurs sont à 0, comment les regénérer ???? en un seul coup (parceque un par un ..) Merci pour la réponse Michel a