julbute

ok j'ai creer un nouveau fichier et j'ai tout copier dedans. Cela fonctionne. Je ne l'explique pas... Si quelqu'un venez à comprendre je suis preneur. Merci à tous. Roger

C'est mieux avec le fichier.

Le problème est entouré. Lorsque vous tracer de nouvelles lignes elles sont comme celles que vous voyez entouré ou celles du bas. Elle se trouvent sur le même calque et pourtant elles s'affichent de deux manières différentes. Roger

Ok merci, le voici Le renommer AutoCAD.dwg merci de votre aide acad.txt

Quand je veux déposer une partie de fichier. J'ai le message " Erreur Vous n'avez pas la permission d'envoyer ce type de fichier." Du coup je ne sais pas comment faire , c'est un fichier de 120 ko en .dwg Roger

Je l'ai mis sur different poste, cela fait pareil. C'est un réglage qui se promène avec le fichier... Pas facile de trouver...

C'est effectivement pareil que si il était verouille , mais ce n'est pas cela... Roger

Merci à vous deux, Ni l'un ni l'autre fonctionne. Les trait sont exactement comme si j'avais ouvert un bloc. Les couleurs des lignes ne faisant pas partie du bloc sont estompé. Mais, pour le coup, se sont les nouvelle lignes qui sont estompé. Roger

Bonjour à tous, j'ai un fichier de dessin qui ne pose pas de soucis. Une copie à été faite et complèter. Depuis deux jours , lorsque je dessine .j'ai à l'écran les traits qui apparaissent de couleur pastel. A l'impression les couleurs sont les bonnes. Un réglage sans doute ou un raccourcie clavier malencontreux... En tous cas je ne trouve pas. Avez vous une idée. Merci

Encore merci, pour remertre la variable à 0, cela devrait aller. ;-) Mais la macro ne me fait pas de cumul!! y a t'il un bug? Rb [Edité le 10/2/2011 par julbute]

Super merci. Comment peut on faire ,en macro, pour mettre la variable USERR1 à 0? Histoire de faire un petit bouton de mise à zero. On peut faire la même chose avec les surfaces? surement oui ! merci RB[Edité le 10/2/2011 par julbute] [Edité le 10/2/2011 par julbute]

Bonjour, je sais qu'il existe un petit fichier en lips pour connaitre la longueur total de toute les lignes sur les versions complète d'autocad. Existe t il la même chose sur lt2011? J'ai changé de bureau et ils n'ont pas la version complète :-( Merci à bientôt

Bonjour, je sais qu'il existe un petit fichier en lips pour connaitre la longueur total de toute les lignes sur les versions complète d'autocad. Existe t il la même chose sur lt2011? J'ai changé de bureau et ils n'ont pas la version complète :-( Merci à bientôt

J'ai essayé de placer la commande, mais cela ne marche pas. Voici ce que j'ai fait : Option Explicit Public Sub Debits() Dim JeuSel As AcadSelectionSet On Error Resume Next Set JeuSel = ThisDrawing.SelectionSets("DEBITS") On Error GoTo 0 If JeuSel Is Nothing Then Set JeuSel = ThisDrawing.SelectionSets.Add("DEBITS") Dim FilterType(3) As Integer Dim FilterData(3) As Variant FilterType(0) = -4 FilterData(0) = " FilterType(1) = 0 FilterData(1) = "3DSOLID" FilterType(2) = 0 FilterData(2) = "INSERT" FilterType(3) = -4 FilterData(3) = "OR>" JeuSel.Select acSelectionSetAll, , , FilterType, FilterData If JeuSel.Count = 0 Then MsgBox "Pas de solides 3D dans le dessin.", vbInformation Exit Sub End If Dim NomFichierRapport As String NomFichierRapport = ThisDrawing.Path & "\" & Left(ThisDrawing.Name, Len(ThisDrawing.Name) - 4) & ".csv" On Error GoTo CloseFile Open NomFichierRapport For Output As #1 Print #1, "Nom, X x Y x Z" Dim Entity As AcadEntity Dim ObjName As String Dim MinPt, MaxPt For Each Entity In JeuSel If TypeOf Entity Is AcadBlockReference Then ' C'est un bloc, on utilise son nom ObjName = Entity.Name Else ' C'est un solide, on utilise le nom de son calque ObjName = Entity.Layer End If If Entity.Layer.Freeze = False Then Entity.GetBoundingBox MinPt, MaxPt Print #1, ObjName & " ; " & Round((MaxPt(0) - MinPt(0)), 0) & " ; " & Round((MaxPt(1) - MinPt(1)), 0) & " ;" & Round((MaxPt(2) - MinPt(2)), 0) End If Next Entity JeuSel.Delete ' Ferme le fichier rapport Close #1 Shell "C:\windows\notepad.exe " & NomFichierRapport, vbNormalFocus Exit Sub CloseFile: MsgBox "Une erreur est survenue (" & Err.Description & ")", vbCritical Close #1 End Sub Mais cela ne marche pas. j'ai un message disant : Erreur de compilation Qualificateur incorrect et il met .freeze en surbrillance. Merci Rod

Bonjour, Je comprend la commande mais je ne sais pas ou la placer. Réussir un tableau de donnée n'est pas, encore, ce que je sais faire. Je pars sur les indications. Merci pour la réponse, [Edité le 4/11/2009 par julbute]

Bonjour à tous, je reviens sur le sujet dans cette partie de forum qui me semble le meilleur endroit. (Vous lirez le même poste dans l'espace autocad 2007) Je me sers du code qui suit, afin de retirer les dimensions des "boites" dans mon dessin 3D. Cela fonctionne plutot pas mal. Mais j'aimerai avoir dans ma liste, que les boites qui se trouve sur les calques actifs. Ceux se trouvant sur les calques gelées ne serait pas extrait. Est 'il possible d'arrondir les valeurs, également? Est il possible de trier les dimensions de la plus grande à la plus petite? Je ne suis toujours pas un champion en VBA. Quelqu'un peut'il m'aider? Un grand merci. Voici le code, écris par maxence. Option Explicit Public Sub Debits() Dim JeuSel As AcadSelectionSet On Error Resume Next Set JeuSel = ThisDrawing.SelectionSets("DEBITS") On Error GoTo 0 If JeuSel Is Nothing Then Set JeuSel = ThisDrawing.SelectionSets.Add("DEBITS") Dim FilterType(3) As Integer Dim FilterData(3) As Variant FilterType(0) = -4 FilterData(0) = " FilterType(1) = 0 FilterData(1) = "3DSOLID" FilterType(2) = 0 FilterData(2) = "INSERT" FilterType(3) = -4 FilterData(3) = "OR>" JeuSel.Select acSelectionSetAll, , , FilterType, FilterData If JeuSel.Count = 0 Then MsgBox "Pas de solides 3D dans le dessin.", vbInformation Exit Sub End If Dim NomFichierRapport As String NomFichierRapport = ThisDrawing.Path & "\" & Left(ThisDrawing.Name, Len(ThisDrawing.Name) - 4) & ".txt" On Error GoTo CloseFile Open NomFichierRapport For Output As #1 Print #1, "Nom, X x Y x Z" Dim Entity As AcadEntity Dim ObjName As String Dim MinPt, MaxPt For Each Entity In JeuSel If TypeOf Entity Is AcadBlockReference Then ' C'est un bloc, on utilise son nom ObjName = Entity.Name Else ' C'est un solide, on utilise le nom de son calque ObjName = Entity.Layer End If Entity.GetBoundingBox MinPt, MaxPt Print #1, ObjName & " : " & (MaxPt(0) - MinPt(0)) & " x " & (MaxPt(1) - MinPt(1)) & " x " & (MaxPt(2) - MinPt(2)) Next Entity JeuSel.Delete ' Ferme le fichier rapport Close #1 Shell "C:\windows\notepad.exe " & NomFichierRapport, vbNormalFocus Exit Sub CloseFile: MsgBox "Une erreur est survenue (" & Err.Description & ")", vbCritical Close #1 End Sub

Bonjour à tous, je reviens sur le sujet... Je me sers du code qui suit, afin de retirer les dimensions des "boites" dans mon dessin 3D. Cela fonctionne plutot pas mal. Mais j'aimerai avoir dans ma liste, que les boites qui se trouve sur les calques actifs. Ceux se trouvant sur les calques gelées ne serait pas extrait. Est 'il possible d'arrondir les valeurs, également? Je ne suis toujours pas un chanpion en VBA. Quelqu'un peut'il m'aider? Un grand merci. Voici le code, écris par maxence. Option Explicit Public Sub Debits() Dim JeuSel As AcadSelectionSet On Error Resume Next Set JeuSel = ThisDrawing.SelectionSets("DEBITS") On Error GoTo 0 If JeuSel Is Nothing Then Set JeuSel = ThisDrawing.SelectionSets.Add("DEBITS") Dim FilterType(3) As Integer Dim FilterData(3) As Variant FilterType(0) = -4 FilterData(0) = " FilterType(1) = 0 FilterData(1) = "3DSOLID" FilterType(2) = 0 FilterData(2) = "INSERT" FilterType(3) = -4 FilterData(3) = "OR>" JeuSel.Select acSelectionSetAll, , , FilterType, FilterData If JeuSel.Count = 0 Then MsgBox "Pas de solides 3D dans le dessin.", vbInformation Exit Sub End If Dim NomFichierRapport As String NomFichierRapport = ThisDrawing.Path & "\" & Left(ThisDrawing.Name, Len(ThisDrawing.Name) - 4) & ".txt" On Error GoTo CloseFile Open NomFichierRapport For Output As #1 Print #1, "Nom, X x Y x Z" Dim Entity As AcadEntity Dim ObjName As String Dim MinPt, MaxPt For Each Entity In JeuSel If TypeOf Entity Is AcadBlockReference Then ' C'est un bloc, on utilise son nom ObjName = Entity.Name Else ' C'est un solide, on utilise le nom de son calque ObjName = Entity.Layer End If Entity.GetBoundingBox MinPt, MaxPt Print #1, ObjName & " : " & (MaxPt(0) - MinPt(0)) & " x " & (MaxPt(1) - MinPt(1)) & " x " & (MaxPt(2) - MinPt(2)) Next Entity JeuSel.Delete ' Ferme le fichier rapport Close #1 Shell "C:\windows\notepad.exe " & NomFichierRapport, vbNormalFocus Exit Sub CloseFile: MsgBox "Une erreur est survenue (" & Err.Description & ")", vbCritical Close #1 End Sub

Bonjour, je poste ici mon message sans vraiment savoir si je suis au bonne endroit pour la poser... J'aimerai savoir comment fonctionne autocad 2008 dans une version multiposte, sur un serveur.Avez vous un idées du prix de ce logiciel en monoposte et multiposte? Comment le logiciel fonctionne t'il? Merci à bientôt Rb

Ok j'ai essayé ta macro lili 2006, c'est exactement ce qu'il me faut, la seul petite modif qui serait bien se serait qu'il y est en face de chaque présentation le nom du dessin. Cela permettrait de filtrer les données et de retrouver d'un seul clic toutes les présentations correspondant à chaque dessin. J'aimerai pouvoir quand même essayer ta routine patrick 35. Merci Roger

Ok j'ai essayé ta macro lili 2006, c'est exactement ce qu'il me faut, la seul petite modif qui serait bien se serait qu'il y est en face de chaque présentation le nom du dessin. Cela permettrait de filtrer les données et de retrouver d'un seul clic toutes les présentations correspondant à chaque dessin. J'aimerai pouvoir quand même essayer ta routine patrick 35. Merci Roger

bonjour, merci de vous pencher sur mon cas... J'ai un retour sur la liste de commande : Commande: lstlay Travail en cours......./; erreur: Erreur Automation. Aucune description n'a été entrée. Commande: Roger

Bonjour, j'ai une quinzène de plan avec les onglets de présentation(environ 5ou 6 par plan). J'aimerai pouvoir récuperer la liste de tout les noms d'onglet dans un seul fichier. Afin de créer un liste de plan. Merci Roger

Bonjour à tous, Il est passionnant ce sujet... 20 messages dont 13 de moi... 748 Lectures .... Et pas de réponse pouvant m'aider. Tampis je potasse des bouquins !... Le tout c'est d'avancer. Merci pour les idées qu m'ont permis de ne pas rester sur place. Roger [Edité le 8/4/2009 par julbute]

Bonjour à tous, comment peut on faire pour créer un blocs, en VBA car le début de code est comme cela, contenant la BoundingBox et lui donner un nom afin de trouver dans la liste et le dessin le nom de la pièce? Le nom de la pièce serait un attribut pour qu'il apparait à l'écran. Il serait peu etre pas mal de mettre les dimensions de la pièce avec des attributs afin de pouvoir les extraire. C'est peut etre compliqué car il faut que le nom s'inscrit dans la liste et dans le dessin si l'on suit le début de code des messages précédent. En tout cas c'est le flou complet pour moi...Un peu d'aide peut étre. Merci roger [Edité le 18/3/2009 par julbute]

En fait je ne me servais pas de la bonne fonction..!! Roger