winfield

Si ça peut t'aider VarAttribut = ObjEntite.GetAttributes For I = LBound(VarAttribut) To UBound(VarAttribut) If VarAttribut(I).TagString = ListAttribut.Value Then VarAttribut(I).TextString = Format(VarAttribut(I).TextString + ValAjout, "##.00") End If Next I

Grand merci, j'avais déjà testé ça, mais sur le coup je n'avais pas pensé à mettre le modal de la form à false. Merci encore

Bonsoir, Qqn sait comment faire pour mettre les boutons agrandir et réduire dans un userform ....et qui ne garde pas le modal ? Merci d'avance

Le problème avec les anglophones, c'est qu'ils parlent l'anglais. :o Désolé, je viens de passer un bon moment à essayer de comprende des infos en UK.......bientôt le russe et le chinois Le problème avec les blocs+attributs, c'est qu'il n'y a pas forcément le même nombre d'attributs pour chaque type de bloc et n'attendent pas tous le même type de données. Si toutes les valeurs d'attributs sont enregistrées quelque part, là c'est possible. A moins que tes attributs en questions aient tous la même valeur ? Là c'est plus simple. ..........Pourraient pas tous parler en Fr ?

Bonjour, Pour ce que tu veux faire, il y a déjà un outil :[surligneur]OVERKILL[/surligneur] Bonne journée

Je sais que je devrais ouvrir une autre discussion mais je saute sur l'occas. Si une routine est partagé sur un réseau, et est utilisée en même temps par différents poste, il ne risque pas d'y avoir des problèmes un jour ou l'autre ?

Ben tu déclare un objet en tant qu'obje[surligneur]c[/surligneur]t avec withevent, tu crées ton objet tu le transforme en obje[surligneur]c[/surligneur]t, et tu paramètres les évènements, quoi de plus simple ? Faaaassstoche .....:P Pin-Pon pin-Pon, où sont les hommes en blancs ?

Bonsoir, On ouvre AutoCAD On charge un Lisp On charge un dvb Dans l'explorateur de Win, on déplace le fichier Lisp (no prob) Dans l'explorateur de Win, on déplace le fichier dvb ..ALERTE ! branle bas de combat, le fichier est ouvert machin chose et tout et tout. Les fichiers Lisp sont seulement chargé au début (ou à la demande) et après ; plus besoin du fichier ? Un truc m'échappe :( , merci de vos réponses

Oui, que de souvenir, mais à repenser le tic ke de, tic ke de, tic ke de, que faisait (fait) la défrag je déprime de nouveau :P ...c'est comme les écrans bleus, haaa la nostalgie..... Mais c'est pas grave, il nous reste les bugs.

Futur prof ?........ ............hé ho ! poussez pas derrière ! :) [Edité le 12/1/2007 par winfield]

Ha, et ça te fait souci ? Perso, si c'est mon boss qui met la main au porte-feuille, ça ne me fait ni chaud ni froid. Ce n'est pas que ça me fait rigoler de voir casquer qqn, mais bon, je pense être comme tous le monde : tant que ça ne touche pas mon porte-monnaie.....

C'est la question de qui veut gagner des millions ? Réponse 1 :c'est peut-être lui le patron :casstet:

Bonsoir, Je me permets de répondre car une "idée" me gêne dans vos propos. Dans l'entreprise où je bosse, je travail beaucoup (en fait presque tous le temps) avec le même collègue. Ce collègue et moi n'avons pas du tout le même niveau en informatique, mon niveau étant plus avancé que le sien. Mon niveau est plus avancé, je connais des commandes qu'il ignore totalement et j'arrive même parfois, à me faire des petites routines en VBA, mais lui ; si on lui montre un plan, et s'il y a une/des erreurs(s),il va le voir tout de suite. Il a moins de connaissance en informatique que moi, certe, mais il est bien meilleur dessinateur ! (on ne joue pas dans la même cour). Désolé de vous dire ça, mais AutoCAD, est comme n'importe quel outil..........ce n'est qu'un outil.

Bonsoir, je confirme....testé également avec le 1002 . Par contre, à quoi correspondent le 1003 et 1005 vu qu'il y a déjà les 5 et 8 ?

ouinnnnnnnnnn !!!!!!!!!!!!!!! Merci pour l'info Gile Me reste plus qu'à trouver un autre moyen :( :casstet: ...pourtant j'arrive à faire une selection sur le code 1001 :o IntCode(0) = 1001: VarValeur(0) = "MonTxt" ObjSelection.Select acSelectionSetAll, , , IntCode, VarValeur ou alors un truc m'a échappé lors de mes test :casstet:

Ben.... :P .......salut Oups, j'oubliai je te souhaite la bienvenue sur ce site :)

Bonsoir, J'ai encore un problème avec ces fameux codes DXF. je mets : IntCode(0) = 5: VarValeur(0) = "8B,E4,8C" 'etc etc ObjSelection.Select acSelectionSetAll, , , IntCode, VarValeur et il m'envoit : Alors que si je mets : IntCode(0) = 0: VarValeur(0) = "Line,ARC" ObjSelection.Select acSelectionSetAll, , , IntCode, VarValeur Où est-ce que je fais pas comme il faut ? Merci de m'éclairer

Bonjour à tous, Sur une cote d'angle, il y a 4 poignées, les deux des points d'attaches, celui du texte et...... celui qui m'enquiquine :mad: J'ai regardé Fit,AngleVertex etc, etc...qqn connait-il le nom de cette propriété ? Merci d'avance

Bonsoir et bonné année également à tous les CadXpiens Je te félicite, tu nous montres ici qu'on peut avoir des opinions tranchées tout en les faisant passer de façon douce, bravo ! (fo ke jen prene de la graine) T'as intérêt ! sinon gare !!!! ;)...les mètres et les mé-tresses veillent ! Vive les vacks-qanses...c pô just, je comense seul eumen lé vacance_ é c dja fini ! Ciao à tous ;)

Bonne année ! Merci Patrick_35 .........je dis ça comme ça mais bon.....

Salut regarde du côté de "TranslateCoordinates" Oui tu as parfaitement raison, je ne sais pas ce qui m'a fait écrire comme ça :P Tu veux parler des trémies ?

Salut, j'avais écris cette routine il y a quelque temps, si ça peut t'aider. Sub RectangleResa() 'Winfield 'Rectangle hachuré pour resa Dim Coin1 As Variant Dim Coin2 As Variant Dim Pt(0 To 7) As Double Dim ObjRect(0 To 0) As AcadEntity Dim ObjHach As AcadHatch Dim BlnAssoc As Boolean Dim LongType As Long Dim StrNomHach As String StrNomHach = "Solid" LongType = 0 BlnAssoc = True On Error Resume Next With ThisDrawing.Utility Set ObjHach = ThisDrawing.ModelSpace.AddHatch(LongType, StrNomHach, BlnAssoc) Coin1 = .GetPoint(, "Indiquez le premier coin.") Coin2 = [surligneur] .GetCorner[/surligneur] (Coin1, vbLf & "Indiquez le second coin.") If Err <> 0 Then Exit Sub End If Pt(0) = Coin1(0): Pt(1) = Coin1(1) Pt(2) = Coin2(0): Pt(3) = Coin2(1) Pt(4) = Coin1(0): Pt(5) = Coin2(1) Pt(6) = Coin2(0): Pt(7) = Coin1(1) Set ObjRect(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(Pt) ObjRect(0).Closed = True ObjHach.AppendOuterLoop (ObjRect) Pt(0) = Coin1(0): Pt(1) = Coin1(1) Pt(2) = Coin1(0): Pt(3) = Coin2(1) Pt(4) = Coin2(0): Pt(5) = Coin2(1) Pt(6) = Coin2(0): Pt(7) = Coin1(1) Set ObjRect(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(Pt) ObjHach.Evaluate ThisDrawing.Application.Update End With End Sub Bien sûr tu peux virer la partie hachurage PS : fonctionne pas en SCU Bonne continuation

Bonsoir Reb, j'avoue ne pas avoir tout compris. Un trait "ajusté" comme tu le désire, mais en fait qui n'est qu'une copie du trait d'origine. Quel est l'avantage de conserver le premier trait ? :casstet:

Salut et merci du coup de main, je cherche plutôt un moyen où je n'ai pas à désigner manuellement. Mais tu as raison, va falloir passer par les évènements.

Vous avez une autre idée pour les attributs ?