CLOTHO

Bonjour à tous, Est-ce que quelqu'un peut me donner un exemple de renforcement de chaussée fait sur mensura ou un autre logiciel pour avoir une idée sur le rendu final? Merci par avance :)

Bonjour La Lozère, J'ai l'impression qu'il s'agit de la VLT 750-1 à déplacer suite à une modification d'un certain écran acoustique :) non? A+

Bonjour Patrick et merci beaucoup. Après quelques efforts voilà le code: Public Sub chgXRefLayerColor() Dim tLayer As AcadLayer For Each tLayer In ThisDrawing.Layers If InStr(tLayer.Name, "|") > 0 Then tLayer.color = acBlue End If Next End Sub On peut toujours faire autrement...Mais l'idée est là. A+

Bonjour, J'ai trouvé la solution avec ces lignes: For Each Layer In AutoCAD.Application.ActiveDocument.Layers If Layer.name Like "XREF_*" Then Layer.TrueColor = cl Mais ceci m'oblige à fixer les noms de toutes les XREFS pour commencer par XREF_ Imaginons que je récupère les noms des XREFs d'une colonne sur excel Avez-vous une idée pourquoi ceci ne fonctionne pas: for i=1 to .... n =ActiveSheet.Cells(i, 1).Text ...... For Each Layer In AutoCAD.Application.ActiveDocument.Layers If Layer.name Like "n|*" Then Layer.TrueColor = cl Je vous remercie d'avance.

Bonjour à tous, Est-ce que quelqu'un peut- m'aider à trouver le code VBA permettant de modifier la couleur des calques d'une XREF? En effet, ma macro consiste à chercher un ensemble de fichier sur le serveur, les attacher en tant que XREF en ayant crée un calque pour chacune. Il me manque la fonction pour changer les couleurs des calques de chaque XREF. Merci pour votre aide.

Bonjor à tous, J'ai besoin de déterminer le contour d'un bloc (une référence externe) pour le récupérer en tant que polyligne et faire quelques lignes si celui là est contenu dans un cadre ou non. Pourriez-vous juste me dire si possible de déterminer la polyligne contour d'un bloc? Merci beaucoup pour toute réponse.

Re-bonjour, J'ai commencé à tester la macro qui permet d'attacher une XREF que je mets ci-dessous: Sub AttachXRef() Dim PtInsert(0 To 2) As Double Dim objXref As AcadExternalReference Dim strChemin As String Dim AcadApp As AutoCAD.AcadApplication ' On demande le nom du fichier à ouvrir Dim Filename As Variant Filename = Application.GetOpenFilename("Dessins AutoCAD (*.dwg), *.dwg") If Filename = False Then Exit Sub End If Cells(1, 1).Value = Filename ' Connexion avec AutoCAD (on le lance si il n'est pas en cours d'exécution) On Error Resume Next Set AcadApp = GetObject(, "AutoCAD.Application") On Error GoTo 0 If AcadApp Is Nothing Then Set AcadApp = New AutoCAD.AcadApplication End If ' On ouvre le fichier DWG dans AutoCAD ou on l'active si il est déjà ouvert Dim Opened As Boolean Opened = False Dim Dwg As AcadDocument For Each Dwg In AcadApp.Documents If StrComp(Dwg.FullName, Cells(1, 1).Text, vbTextCompare) = 0 Then Dwg.Activate Opened = True End If Next If Not Opened Then AcadApp.Documents.Open (Cells(1, 1).Text) End If ' Point d'insertion de l'Xréf PtInsert(0) = 0: PtInsert(1) = 0: PtInsert(2) = 0 ' Nom et chemin de l'Xréf strChemin = "d:\OH444.dwg" Thisdrawing.ActiveSpace = acModelSpace ' Attachement de l'Xréf au dessin en cours Set objXref = Thisdrawing.ModelSpace.AttachExternalReference _ (strChemin, "XREF", PtInsert, 1, 1, 1, 0, False) ' Zoom tout Thisdrawing.Application.ZoomAll ' Afficher la liste des nouveaux blocs For Each objBloc In Thisdrawing.Blocks strMsg = strMsg & objBloc.Name & vbCrLf Next MsgBox strMsg, , "Liste des blocs du dessin en cours" End Sub Maos ça plante avec la ligne suivante: Set objXref = Thisdrawing.ModelSpace.AttachExternalReference _ (strChemin, "XREF", PtInsert, 1, 1, 1, 0, False) J'ai l'impression que la commande Thisdrawing est non reconnue sachant que je travaille avec Autocad 2013. Est-ce que quelqu'un a le remède pour ça? Il y a certaines pistes sur le net que je ne comprends pas (problème VBA, VB.net). Est-ce que quelqu'un peut m'aider sur ce sujet? :( Merci d'avance. A+

Bonjour :) En fait mes XREFS n'ont pas une suite logique. Pour cela j'ai pensé à passer par le VBA excel pour receuillir les noms et les chemins de toutes les XREFs pour faire une boucle qui parcours les XREFs et les attaches une par une après les avoir organisé en ne gardant que le dernier indice. Ce n'est que l'idée...

Bonjour Steven et merci pour ta réponse si rapide :) En fait, je travaille sur quelques kilomètres de routes avec des buses et bassins toutes en XREF qui doivent être attachées à mes vue en plans. Les XREFs dépassent 300 et les indices changent au fur et à mesure. Le but final est de pouvoir faire appel à toutes les XREFs qui ne sont pas forcément dans le même réperoire càd par exemple : - Pour les buses: D:\XREFS\OH - Pour les voiries: D:\XREFS\VL - Pour les TOPO : D:\XREFS\TOPO Je me demande aussi si c'est possibe de faire un test pour savoir si mon XREF passe pas le cadre qui délimite ma VP dans ce cas on l'attache sinon on l'attache pas. Je ne sais pas si c'est clair ou pas. Je remercie d'avance toute personne qui me file au moins une piste pour gagner du temps et minimiser les erreurs. Merci aussi à tous ceux qui lisent ce post jusqu'à la fin :)

Bonjour à tous, J'ai besoin d'attacher plusieurs Xref qui se trouvent dans un dossier parent et des sous-dossier. Je me demande s'il y a une routine qui peut le faire. Je vous remercie d'avance.

Bonjour à tous, Je me demande s'il y a un moyen de choisir les points à coter sur une coupe sur Covadis ou choisir des points à cacher tout en gardant le lien dynamique avec les MNT. Dans le paramétrage des coupes il est possible de fixer l'espacement inter-points mais, ça ne répond pas à mes besoins. Sur la capture écran ci-jointe, je ne veux pas avoir les cotes correspondant aux traits jaunes. Merci pour toute réponse.

Bonjour à tous, J'aimerais savoir si c'est possible d'importer une axe en plan et un profil en long d'une affaire Mensura ou Civil3D dans COVADIS. J'ai essayé plusieurs méthodes et je n'arrive pas à avoir le profil en long. Seul l'axe en plan est importé. Merci pour toute réponse :)

Bonjour, J'explique un peu plus le problème. Quand je veux ajouter une ligne de rupture à un MNT OBJET, je reçois le message suivant: http://img4.hostingpics.net/pics/878107ajoutlignerupturemntobjet.png Je ne trouve pas de solutions :(

Bonjour Thierry et merci beaucoup pour la vidéo. C'est bien la configuration qu'il me faut. Un soucis c'est toujours les objets de Covadis. En fait, quand je sélectionne le point TOPO (Z + nom du point) il le prend pas en compte et me demande de sélectionner un symbole ou un point. Savez-vous comment résoudre ce problème? Merci encore une fois. A+

Bonjour, Je rencontre souvent le terme Objet sur Covadis et je souhaite savoir quel type d'éléments est considéré comme Objet. Je prends l'exemple de l'ajout de ligne de rupture pour un MNT OBJET à partir d'objets. Merci de votre réponse.

Bonjour à tous, J'aimerais savoir si Covadis permet de projeter automatiquement des points avec leurs noms situés sur la VP sur un profil en long. Il y a une commande qui permet de projeter un point de la vue en plan sur le PL sauf qu'il faut toujours renseigner le nom du point ce qui est une source d'erreur. Merci pour toute réponse :)

Re-bonjour, En fait, j'essaie de voir ce que Covadis peut faire tout seul et pas avec Autopiste. Je ne trouve pas comment faire appel à un état de terrain dans Covadis comme si je n'ai pas autopiste car je souhaite acquérir d'autres licences Covadis sans Autopiste.

Bonjour, Je me demande si Covadis peut faire appel à un état de terrain externe comme doit le fait Autopiste: http://img4.hostingpics.net/thumbs/mini_697154etatTNexterne.png Sur Autopiste même, je n'arrive pas à cocher "Ficher dessin externe" pour faire appel à un état de TN externe. http://img4.hostingpics.net/thumbs/mini_913326etattnautopiste.png Pourriez-vous m'aider SVP? Merci.

Bonjour à tous, Est-ce que quelqu'un sait quand est-ce qu'on commence à découvrir la version 8? Merci.

Merci infiniment Olivier!! Je trouve donc il faut déclarer les bandeaux avant. J'ajoute une capture écran pour expliquer mieux ou aller en amont. A+

Bonjour, Différents MNT Multiaxe: Est-ce qu'il est possible d'afficher toutes les couches d'un autre projet sur des profils en travers courants? en d'autre terme, afficher des MNT autre que le TN sur les profils en travers dessinés. Par la même occasion, comment afficher le décapage? Emprise: Quand la polyligne de l'emprise est affectée, serait-il possible de l'afficher automatiquement sur les profils en travers dessinés? Celà semble possible mais, je ne trouve pas comment. Merci pour toutes vos réponses.

En fait quand je mets +1, +2 ou -1, -2... les lignes sont ou bien très bas ou bien très haut. Je n'arrive pas à comprendre comment autopiste raisonne :) En plus pas de cadre autour des nouvelles lignes :(

Merci de ta réponse. Mais, mon problème c'est ce qui est en PJ.

Bonjour, Encore une question (ça ne va pas finir...) Je ne trouve pas comments faire pour mettre dans le bon ordre mes lignes de cotations des profils en travers dessinés. En fait à partir du numéro 6 en Y il n'y a que +1,+2...-1,-2... Pourriez-vous m'aider SVP? Merci.

Désolé de déranger. Je viens de trouver. Il faudra décocher l'onglet "Limiter la courbe TN" dans configuration de mise en page des profils en travers.