stugeol

Bonjour, Je redécouvre les echelle d'annotation. Je viens de créer plusieur bloc, et des style de texte pas de souci. J'ai un problème avec les côtes. J'ai créer un style de cote nomé Annotative. Dans l'onglet Ajuster, Echelle des objets de cote, annotatif coché. Dans l'onglet texte, style standard. Le style de texte standard est défini par une police arial, une taille annotatif, et une hauteur de texte sur le papier de 1. Le problème est le suivant, quand je sélectionne une cote linéaire, dans la palette propriètè, texte, hauteur de texte, peut importe la hauteur de texte appliqué, la hauteur de texte de la cote ne change pas. A l'impression j'ai une hauteur de texte de 1mm. Comment changé la hauteur de texte? Je vous remercie par avance de votre aide. Cordialement..

Bonjour, Encore un problème avec AutoCAD 2011 sous windows 7. Quand je click sur la calculatrice dans l'onglet propriètès, Autocad plante (il ne répond plus). Connaissez vous le problème? avez vous une solution? Cordialement.

Je te remerci Didier cela vien donc de civil3D

Bonjour, Je viens de passer à Civil 3D 2011, pour créer mes alias j'utilise AutoCAD.pgp et je cré par exemple l'Alias PO, *Polylign. Reinit, et je lance ma commade PO. J'obtient le message suivant PO doit être appelé à partir d'une autre commande

Un grand merci Thry0 et Rebcao. L''astuce de fusion des calques, je ne connaissait pas, je me doutais bien qu'il y avait une histoire de bloc, mais impossible de trouver le ou les blocs, je me suis lancé dans la selection par filtre, mais le nom des bloc_DetailCallout, et _Oblique n'apparaisait nul part, sauf dans insertion bloc. Merci à vous. Cordialement.

Comment as tu trouver le bloc "_DetailCallout", avec un CTRL+A, puis dans propriètè, référence de bloc j'ai juste le bloc Etiquette EP. Je te remercie par avance.

Bonjour, Voici mon problème du jour. Lorsque je purge mon dessin le calque 07_MASSE_TALUS_BAS ne se supprime pas. Je décide donc par la commande SELECTRAP de sélectionner les objets du calque, tous les objet de mon dessin sont sélectionnés. Mes polylignes sont dans le calque 02_ASS_EPEX_CANA, mes textes sont dans le calque 02_ASS_EPEX_TXT, et mes blocs dans le calque 02_ASS_EPEXTXT. Bon je choisi donc de passer par la commande de filtre FI, et je filtre sur le calque 07_MASSE_TALUS_BAS, je sélectionne l'ensemble de mes objet, 0 objet sélectionné. Le doute me prend, pour explosé les blocs j'utilise la commande SELECTRAP, Bloc, nom, tous sélectionner. et la surprise tout est sélectionné sauf mes blocs. C'est à marcher sur la tête... D'ou peut venir le problème de ce calque fantôme, et comment le supprimer. Je vous remercie par avance pour vôtre aide à la résolution du problème. Cordialement. PS : Pour mieux comprendre le problème je vous joins le fichier (renommer l'extention txt en dwg)

Bonjour, Meilleurs voeux à tous. Merci a vous, je ne cannaisais pas la variable taskbar. Mon problème est résolu. Cela venait du fait que les fichiers étaient ouvert avec Autocad et non avec dwg launcher Merci à tous

une fois le bonus pack2 installé tu aurras l'option insertion PDF dans le gestionnaire des xref.

Bonjour Didier, Je ne suis malheureusement pas admionistrateur de mon poste (Politique de la societè). Le problème ne venant pas d'Autocad j'ai remonté le problème au service informatique. Merci pour tes pistes. cordialement.

bonjour, A partir d'autocad 2009 tu peux si tu as installé le bonus pack 2. Autrement si tu as PDF créator tu peux imprimer ton PDF dans un format jpg par exemple et inserer ton image dans le dessin. Bonne fin de journé. Cordialement.

Bonjour Didier, Le poste n'a qu'une version d'autocad d'installée. Depuis autocad menu : Fichier->Ouvrir, ouverture d'un dessin dans une nouvelle session. De même depuis le navigateur de menu. Je soupsonne un paramètre de windows... Cordialement.

J'ouvre les dessins à partir de l'explorateur windows.

Merci pour vos remarques, Sur le net j'ai trouvé de bons ouvrages sur le Lisp, j'ai plus qu'a potasser...

Bonjour, Voilà le problème : Je suis sous autocad avec SDI = 0, a chaque ouverture d'un dessin autocad se relance. Autocad se comporte comme si SDI = 0. Aurriez vous une astuce, ou d'autre variables à modifié. Cordialement.

Voici une solution qui fonctionne et qui peux être améliorée voici le principe : -Le programme parcours tous les fichiers et teste l'extension des fichiers -Si l'extention est dwg alors -Ouverture du dessin -Exécution des commande REDIR -Sauvgarde du dessin -Fermeture du dessin Il suffit d'ouvrir autocad, d'ouvrir un dessin vide, et de lancer la routine Voici le Code : Sub ModXref() Dim fso As FileSystemObject Dim dossier As Folder Dim sousdossier As Folder Dim fichier As File Set fso = New FileSystemObject Set dossier = fso.GetFolder("G:\BCAD-10-000X- ST GERMAIN TROYES") scan dossier End Sub Public Sub scan(ByVal dossier As Folder) Dim fso As FileSystemObject For Each fichier In dossier.Files 'Teste l''extension du fichier si dwg alors traitement du fichier If Right(fichier, 3) = "dwg" Then 'Ouvre un dessin ThisDrawing.Application.Documents.Open fichier 'Exécute les commandes dans REDIR actif ThisDrawing.SendCommand "REDIR" & vbCr & "R:\" & vbCr & "S:\EFR\EAM\etudes\" & vbCr ThisDrawing.SendCommand "REDIR" & vbCr & "M:\" & vbCr & "S:\EFR\EAM\donnees\" & vbCr ThisDrawing.SendCommand "REDIR" & vbCr & "w:\" & vbCr & "S:\EFR\EAM\outils\" & vbCr 'Ferme le dessin ThisDrawing.Application.ActiveDocument.Save ThisDrawing.Application.ActiveDocument.Close End If Next For Each sousdossier In dossier.SubFolders 'Debug.Print sousdossier scan sousdossier Next End Sub Le fait d'ouvrir chaque dessin peut être long... J'éspère que ce code dépanera un bon nombre de personne. Je suis ouvert à toutes remarques pour l'améliorer. Encore merci Didier pour ton aide.

Ok Didier, c'est le même principe que rechercher/remplacer dans le gestionnaire de reférence. Plus besoin de se casser la tête pour lister les fichiers liés. Du coup les points 3, 4 et 5 sont résolu. Je vais donc suivre se principe : dans Excel : 1- Lister tous les fichiers autocad 2-Ouvrir un fichier autocad 2.1-Lancer la commande REDIR pour chaque ancien lecteur (R:\....) et remplacer le lecteur par (S:\EFR\EAM\) 3-Fermer le fichier autocad 4-Passer au fichier suivant jusqu'au dernier de la liste. Un grand merci Didier pour tes lumières sur la comande REDIR. Je vais pouvoir attaquer le code sous Excel (moins de 65000 fichier à lister) , et le tester. Je vous tiens au courant. Et encore un Grand merci Didier pour tes lumières.:)

Coucou Didier, J'ai tester la commande REDIR J'ouvre le dessin je lance la commande REDIR Option * pour tous les fichiers Ancien chemin R:\etudes\89 Divers\BOUD-08-0024 CC Avallonnais - Parcs d'Activités\05_DCE\Doc de travail\Dessin\00.Fdp Nouveau chemin S:\EFR\EAM\etudes\89 Divers\BOUD-08-0024 CC Avallonnais - Parcs d'Activités\05_DCE\Doc de travail\Dessin\00.Fdp Dans un dessin j'ai 11 sous répertoires, je dois aussi remplacer les chemins des bibiliothéques 20 sous répertoires soit 31 chemins à redéfinir pour un dessin. Je cherche donc un moyen d'automatiser la tache en remplassant le nom du lecteur r:\ q:\ w:\.... par S:\EFR\EAM\ Et biens sur des centaines de dessin à traiter... Didier, si tu as un exemple de script je suis preneur. Cordialement.

Bon, petit à petit j'avance dans ma quète. J'ai tenté d'ouvrir le Lisp REDIR pour le modifier afin de l'adapter au problème, mais je ne maîtrise pas du tout ce langage pour modifier au bon endroit le code... Pour lister le chemin de toutes les xref (dessin, image...) j'utilise la collection FileDependencies : Sub essait2() Dim Files As AcadFileDependencies Dim File As AcadFileDependency Dim msg, chemin As String msg = "" Set Files = ThisDrawing.FileDependencies For Each File In Files chemin = File.FullFileName 'traitement du chemin 'lancer la commande REDIR File.FullFileName = (chemin) MsgBox chemin NextEnd Sub Maintenant il me reste à résoudre le listing des chemin des fichier de formes (.shx). Si vous avez des idées en VBA je suis preneur. Cordialement.

Merci Didier pour la découverte de la comande REDIR. Je viens de tester la tester sur un dessin. Je dois renseigner le chemin existant (Chemin1) puis le chemin de remplacement (Chemin2) par exemple pour une xref : c:\dessin\ puis le remplacer par d:\srep1\srep2\dessin\ Comment lister tous les chemins des fichiers attachés au dessin? Afin de mieux comprendre voici mon idé : Sous Excel : 1-lister le chemin de tous les dessins sur le serveur 2-ouvrir chaque dessin 3-lister les chemins de tous les fichier attacher (chemin1) 4-modifier les chemin1 (chemin2) 5-pour chaque chemin1 5.1 -lancer la commande redir avec comme arguement chemin1, chemin2 6-enregistre le dessin 7-fermer le dessin 8-traiter le fichier suivant. Pour l'instant je coince sur la partie 3. Si vous avez des idées, je suis preneur. Cordialement.

Je viens de jeter un oeuil dan l'aide des express tools, cette commande me conviens et me permet d'alléger mon code VBA et de recréer tous les liens. Maintenant comment faire en VBA pour ouvrir un dessin et lui appliquer une routine. Le code suivant suffirait-il : Set AcadApp = New AcadApplication AcadApp.Visible = True Set AcadPlan = AcadApp.Documents.Open("Chemin du fichier à ouvrir") Rend AutoCAD visible 'Execution de la commande redir AcadPlan.Save 'Sauvegarde le dessin AcadPlan.Close 'Ferme le dessin AcadApp.Quit 'Ferme l'application AutoCAD Set AcadApp = Nothing Set AcadPlan = Nothing

peux tu m'en dire un peux plus sur cette comande REDIR.

Bonjour, Voici le contexte, on viens de nous changer le serveur sur notre agence. Tous les liens concernant : les images, les xref (dwg, pdf, dgn, images...) ne sont plus valide. Avec AdRefMan.exe, je dois sélectionner tous les dessin, puis changer la lettre du lecteur, ce qui permet un gain de temps mais est fastidieux pour des dossiers comportant plusieurs centaines de dessins. Sous Excel ou sous Acces je peux répertorier la liste des fichiers .dwg et leur chemin, à l'aide d'une routine VBA. Sous Autocad la routine suivante permet de faire ce changement de chemin dans le dessin courant : <BR>Sub XREF3_Path()<BR> Dim tempBlock As AcadEntity<BR> Dim tempBlock2 As AcadBlock<BR> Dim TempBlockImbr As AcadDatabase<BR> Dim ob As AcadEntity<BR> Dim chemin, chemin1, racine, msg As String<BR> Dim result As Variant<BR> On Error Resume Next<BR> chemin = ""<BR> chemin1 = ""<BR> racine = "D:\"<BR> 'On scan l'espace objet<BR> For Each tempBlock In ThisDrawing.ModelSpace<BR> Select Case tempBlock.ObjectName<BR> Case "AcDbPdfReference"<BR> 'Traitement du chemin<BR> 'Supression du lecteur r:\ et substitution par<BR> chemin = tempBlock.File<BR> chemin = Right(chemin, Len(chemin) - 3)<BR> chemin = racine & chemin<BR> tempBlock.File = chemin<BR> Case "AcDbRasterImage"<BR> 'Traitement du chemin<BR> 'Supression du lecteur r:\ et substitution par<BR> chemin = tempBlock.ImageFile<BR> chemin = Right(chemin, Len(chemin) - 3)<BR> chemin = racine & chemin<BR> tempBlock.ImageFile = chemin<BR> End Select<BR> Next<BR> 'On scan l'espace papier<BR> For Each ob In ThisDrawing.PaperSpace<BR> Select Case tempBlock.ObjectName<BR> Case "AcDbPdfReference"<BR> 'Traitement du chemin<BR> 'Supression du lecteur r:\ et substitution par<BR> chemin = tempBlock.File<BR> chemin = Right(chemin, Len(chemin) - 3)<BR> chemin = racine & chemin<BR> tempBlock.File = chemin<BR> Case "AcDbRasterImage"<BR> 'Traitement du chemin<BR> 'Supression du lecteur r:\ et substitution par<BR> chemin = tempBlock.ImageFile<BR> chemin = Right(chemin, Len(chemin) - 3)<BR> chemin = racine & chemin<BR> tempBlock.ImageFile = chemin<BR> End Select<BR> Next<BR> chemin = ""<BR> chemin1 = ""<BR> racine = "D:\"<BR> 'On scan les xref DWG, DXF, DGN<BR> For Each tempBlock2 In ThisDrawing.Blocks<BR> If (tempBlock2.IsXRef) Then<BR> chemin1 = tempBlock2.Path<BR> 'Traitement du chemin<BR> 'Supression du lecteur r:\ et substitution par<BR> chemin = Right(chemin1, Len(chemin1) - 3)<BR> chemin = racine & chemin<BR> tempBlock2.Path = chemin<BR> TempBlockImbr = tempBlock2.XRefDatabase<BR> 'Teste par récurence les sous entité<BR> 'For Each tempBlock In TempBlockImbr<BR> ' If chemin1 = chemin Then<BR> ' msg = "Vous pouvez enregistrer le dessin et le fermer"<BR> ' MsgBox msg<BR> ' Exit Sub<BR> ' End If<BR> ' Set AcadApp = New AcadApplication<BR> ' AcadApp.Visible = True<BR> ' Set AcadPlan = AcadApp.Documents.Open(chemin1)<BR> ' 'Rend AutoCAD visible<BR> ' XREF3_Path<BR> ' 'Set AcadApp = Nothing<BR> ' 'Set AcadPlan = Nothing<BR> ' 'AcadPlan.Save 'Sauvegarde le dessin<BR> ' 'AcadPlan.Close 'Ferme le dessin<BR> ' 'AcadApp.Quit 'Ferme l'application AutoCAD<BR> 'Next<BR> 'If q = True Then<BR> ' Exit For<BR> 'End If<BR> End If Next<BR> msg = "Vous pouvez enregistrer le dessin et le fermer 1"<BR> MsgBox msg<BR>End Sub<BR> Est-il possible d'appliquer cette routine à l'ensemble des fichiers .dwg dont les noms et les chemins sont répertoriés dans Excel, ou dans Acces, à partir d'Excel ou d'Acces. Sauriez vous comment peux -t-on ouvrir un dessin autocad et lui appliquer la routine ci dessus. Je vous remercie par avance. Cordialement.

Je te remercie, la routine fonctionne à merveille. Et elle est trés rapide (15 000 points traités en quelques seconde...). Il va falloire que je prenne le temps de surfer sur le net pour me mettre au Lisp, afin de comprendre les routines Lisp, et de pouvoire en créer selon les besoins. Encore un grand merci... :)

Bon dans mes recherche je suis tombé sur un lisp de gille : (defun c:bloc-alt (/ ins att) (vl-load-com) (and (setq name (getstring T "\nEntrez le nom du bloc: ")) (setq tag (getstring "\nEntrez l'étiquette de l'attribut: ")) (ssget "_X" (list '(0 . "INSERT") (cons 2 name))) (vlax-for b (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object) ) ) (setq ins (vlax-get b 'InsertionPoint) att (vlax-invoke b 'getAttributes) ) (foreach a att (if (and (= (vla-get-TagString a) (strcase tag)) (numberp (setq alt (read (vla-get-TextString a)))) ) (vla-Move b (vlax-3d-point '(0 0 0)) (vlax-3d-point (list 0 0 alt)) ) ) ) ) ) (princ) ) Le problème que je rencontre c'est que les point qui on un Z insertion egale a l'attribut Alt sont déplacer en Z de la valeurs de l'altitude. Est-il possible d'ajouter un test et de ne déplacer que les points qui ont une altitude d'insertion nulle, ou les points qui on une altitude d'insertion différente du matricule Alt et de les déplacer en Z de : si Z insertion <0 déplacer de -Z insertion + Alt si Z insertion >=0 déplacer de valeur absolue (Z insertion - Alt) Je vous remercie par avance de votre aide. Cordialement.