adds

Voici une ilogic pour faire le taf Sub main oDoc = ThisDoc.Document Dim oSheets As Sheets Dim oSheet As Sheet Dim oGeneralNotes As GeneralNotes Dim oGeneralNote As GeneralNote Dim oSymbol As SketchedSymbol Dim oSymbols As SketchedSymbols Dim oTitleBlock As TitleBlock Dim oTextBox As TextBox Dim ooTXT2Find As String Dim oNewTXT As String 'get user input oTXT2Find = InputBox("Enter Text To Find:", "iLogic", "XXX") 'look for blank value If oTXT2Find = "" Then Return 'exit rule End If oNewTXT = InputBox("Enter Text To Replace '" & oTXT2Find _ & "' with.", "iLogic", "ZZZ") 'look for blank value If oNewTXT = "" Then Return 'exit rule End If oSheets = oDoc.Sheets For Each oSheet In oSheets 'handle errors On Error Resume Next 'look at General Notes oGeneralNotes = oSheet.DrawingNotes.GeneralNotes For Each oGeneralNote In oGeneralNotes oText = oGeneralNote.FormattedText oText = ReplaceText(oText, oTXT2Find, oNewTXT) oGeneralNote.FormattedText = oText Next 'look at leader notes oLeaderNotes = oSheet.DrawingNotes.LeaderNotes For Each oLeaderNote In oLeaderNotes oText = oLeaderNote.FormattedText oText = ReplaceText(oText, oTXT2Find, oNewTXT) oLeaderNote.FormattedText = oText Next 'look at title blocks oTitleBlock = oSheet.TitleBlock For Each oTextBox In oTitleBlock.Definition.Sketch.TextBoxes oText = oTitleBlock.GetResultText(oTextBox) oText = ReplaceText(oText, oTXT2Find, oNewTXT) oTitleBlock.SetPromptResultText(oTextBox, oText) Next 'look at sketched symbols oSymbols = oSheet.SketchedSymbols For Each oSymbol In oSymbols For Each oTextBox In oSymbol.Definition.Sketch.TextBoxes oText = oSymbol.GetResultText(oTextBox) oText = ReplaceText(oText, oTXT2Find, oNewTXT) oSymbol.SetPromptResultText(oTextBox, oText) Next Next Next End Sub Function ReplaceText(oText As String, oTXT2Find As String, oNewTXT As String) If oText = oTXT2Find Or oText.Contains(oTXT2Find) Then oText = Replace(oText, oTXT2Find, oNewTXT) End If Return oText End Function

Pourrait tu mettre le liens stp le ici ne marche pas

Merci bien pour tout je regarde ca et reviens vers vous

Merci a tous pour vos réponse mais je viens de resoudre mon probleme. je passe par le design center et ope ca marche.

Oui oui, tout a fait, les dwg inventor sont ouvrables sans soucis par autocad. J'ai trouvé une combine avec tout ca B) , mais il y a une passerelle que j'aimerais faire sautersi possible :blink: . En gros: je récupère le DWG inventor que j'ouvre dans autocad, la j'insert dans l'espace objet le bloc (qui ce trouve dans la mise en page ), et en suite je viens insérer en XREF ce fichier dans un nouveau dessin. Mais j'aimerais ne pas a avoir a faire l'étape ouverture du dwg inventor dans autocad pour insérer le bloc, si toute fois c'est possible. Merci par avance

Bonjour a tous, Je voudrais savoir si il est possible d'avoir un fichier (dwg inventor, iam ou idw) pour s'en servir dans autocad mais en XREF? Je m'explique: J'ai plusieurs fichiers "dwg inventor" dont j'ai besoin d'avoir en xref (je pense) pour pouvoir créer une vue d'implantation qui ce mettra a jour en fonction de mon inventor. Donc si je change, rajoute ou modifie quoi que ce soit dans mon fichier "dwg inventor" ou "3D inventor" je voudrais que mon fichier autocad ce mette a jours. J'ai bien trouvé une tite combine mais pas top car obligé de recréer un dwg autocad depuis inventor ce qui fait que entre inventor et autocad je dois faire une manip que je voudrais sursoir. Quelqu'un a une astuce combine lisp diesel ou autre pour moi??? :D . Merci par avance pour votre temps :D

Bonjour a tous, Je voudrais savoir si il est possible d'avoir un fichier (dwg inventor, iam ou idw) pour s'en servir dans autocad mais en XREF? Je m'explique: J'ai plusieurs fichiers "dwg inventor" dont j'ai besoin d'avoir en xref (je pense) pour pouvoir créer une vue d'implantation qui ce mettra a jour en fonction de mon inventor. Donc si je change, rajoute ou modifie quoi que ce soit dans mon fichier "dwg inventor" ou "3D inventor" je voudrais que mon fichier autocad ce mette a jours. J'ai bien trouvé une tite combine mais pas top car obligé de recréer un dwg autocad depuis inventor ce qui fait que entre inventor et autocad je dois faire une manip que je voudrais sursoir. Quelqu'un a une astuce combine lisp diesel ou autre pour moi??? :D . Merci par avance pour votre temps :D

bonjour Oui tout a fait ca que je voudrais mais je tourne en rond.Je n'y arrive pas

bonjour a tous Petite question peut on avoir une lisp macro diesel ou autre qui pourrais faire ca? J'ai plein de plans avec XREF mais les liens sont perdu (deplacement des dossiers mais meme nom d'xref). Est il possible d'avoir une lisp ou autre qui dirait: recherche le nom de la XREF dans le dossiers et les sous dossiers suivant. En gros je voudrais rechercher le nom de la XREF dans mon fichier et lui dire de rechercher ce meme nom dans tel dossiers et sous dossiers et de le selectionner comme XREF car meme nom. Je sais pas si c'est tres clair? Merci par avance pour tout Cordialement ADDS

bonjour a tous Petite question peut on avoir une lisp macro diesel ou autre qui pourrais faire ca? J'ai plein de plans avec XREF mais les liens sont perdu (deplacement des dossiers mais meme nom d'xref). Est il possible d'avoir une lisp ou autre qui dirait recherche le nom de la xref dans le dossiers et les sous dossiers suivant. En gros je voudrais rechercher le nom de la xref dans mon plan et lui dire de rechercher ce meme nom dans tel dossiers et sous dossiers et de le selectionner comme xref car meme nom. Je sais pas si c'est tres clair? Merci par avance pour tout Cordialement ADDS

Bonjour A tous, Je viens de tomber sur cette LISP qui est super merci à toi Gille une fois de plus. Par contre je voudrais savoir comment la modifier pour que le 1er bloc ce décompose aussi (que tous les blocs soit décomposé)? J'avoue ne pas très bien comprendre le LISP en générale. J'ai recherché sur le forum mais n'est pas trouvé. Merci pour tout par avance Cordialement ADDS

Bonjours a tous, Je reviens avec un gros soucis que personne dans ma boite n'arrive a resoudre!!! J'ai un plantage recurant lors d'un check in sous Vault (quand je rappatri le plans dans la base Vault). Mais le meme style de message s'affiche lorsque je ferme un plan (juste le code de fin change) Voici le message d'erreur: fatal error: unhandled access violation reading 0xffffffff Exception at 28a40838h. Quesque c'est que cette erreur? help me please Configue de mon PC: Windows 7 entreprise SP1 64 bit Dell precision 1700 intel® Xeon® CPU E3-1270 v3 @ 3.50GHz 3.50GHz RAM: 16 GB Carte graphique: Nvidia quadro K4000 Merci par avance pour tout Cordialement ADDS

Je vous remerci pour tout j'ai trouvé en fait la convertion vers autocad fait un truc en gros lors de la convertion il ecrit de droite a gauche et a 180°. Merci pour tout en tout cas car vos nombreuse solutions mon donné quelques idee.

Merci a vous tous pour vos reponses, mais bien malheuresement je ne peux me servir de lisp ou autre macro dans ma societée (sauf demande au service mais bon 1 semaine pour traiter ma demande...!!!). Malgres toutes votre aide rien n'y fait les cotes tourne toujours. Les solutions que vous m'avez donné j'ai essayé mais marche pas!!!!! snif snif!!! Je me suis peu etre mal exprimé, meme surment. En fait j'utilise EFNA 2 pour extraite des calculs sur une piece. ce EFNA 2 me converti son fichié en DWG et c'est lorsque je me mets sur AutoCAD que la.... les cote sont bien orienté par rapport au dessin mais quand je tourne mon ensemble certaine cote (le texte) tourne. Merci par avance pour tout Cordialement ADDS

Bonjour à tous, J'ai un petit probleme qui me chagrine. Je suis dans l'espace objet je tourne une piece (2D) qui est côté et quand je tourne ma piece le texte des cotes tourne aussi (ce met a l'envers)!!! Exist il une variable ou autre pour contrer cela?? Merci par avance pour tout Cordialement ADDS