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]