winfield

Bonjour, Désolé j'ai un peu de retard. Comme je le disais l'autre fois, licencie l' "apprenti" et garde que l'"expert :D Pour info, après la ceinture noire 5ème dan, vient la rouge et blanche qui correspond aux 6ème 7ème et 8ème dan et à nouveau la rouge pour la 9ème. Au delà on retourne à la couleur blanche et la boucle est bouclé. Mais toi ? Tu refais un nouveau cycle ? :o

Ce serait génial mais ........... La dernière fois que cetains ont essayé et ont échoué, ça remonte à l'antiquité (cf la Tour de Babel) Bon courage !

Bienvenue au club des pseudos chercheurs ! Désolé, je sais que ce n'est pas le genre de réponse attendu mais bon.......... You are not alone on the earth, I am with you

Bonsoir, Voilà, je suis en train de me prendre la tête pour atteindre des entités de blocs. Comme disent les enfants : 'on disait que...' .........que j'y arrivai tous le temps ....; et à chaque instant (Merci JJG ) Mais lors de bloc dans un bloc j'y arrive pô. :mad: Faut-il passer encore par une autre manière quand c'est comme ça ? Genre GetSubSubSubEntity ? Merci de vos réponses

Bonsoir, Désolé, de mon côté je n'ai pas réussi à faire mieux :( et je vois pas comment faire pour le moment a part déplacer la cote.

Bonsoir, Je ne suis pas un connaisseur mais te dire ce qui cloche, sans ton code, c'est un peu dur non ?

Bonjour, Qqn pourrait m'expliquer les dictionnaires ? Est-ce que c'est comme les matrices ? Je veux dire, peut-on le "paramétrer" en nombres de colonnes et de lignes ?

tiens curieux, j'avais jamais fais gaffe que mirrtext ne fonctione pas sur des attributs "constant". :exclam:

Oups ! z'avé pas vu ton autre message

Bonsoir, Met mirrtext à 0

Bonsoir, http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=6123#pid21594

Bonjour, Sous quelle forme veux-tu tes points ? Juste un point ? (m'étonnerai vu que tu as n° X Y Z ) Point + texte ? Bloc + attribut ?

Bonsoir, Faites gaffe, y en a des qui pourrait demander : écran tactile ? késako ? Un nouveau système de reconnaissance d'empreinte digitale ? :o

Bonjour à toutes et à tous, je suis à la recherche d'informations sur les reactors, et si on peut utiliser ce système en vba. Si vous avez des liens de sites en Fr ( :( l'anglais n'étant pas mon point fort) ou toutes informations sur le sujet........ Je vous remercie d'avance.

Bonjour nazemrap , j'avais beau purger mais rien à faire, vu que c'était le style courant , j'ignorais l'origine de ces blocs. Grâce à toi, c'est ok. Merci encore

Bonjour, Qqn saurait saurait ce que c'est que ces blocs "_Dot" et "Flèche" ? J'arrive pas à les virer, pourtant ils sont dans le calque 0. J'ai même fais un wbloc du _Dot pour le réinsérer dans un autre fichier (pour tester) , ben surprise, lors de l'insertion : RIEN, fichier vide ......comprend plus rien. Merci d'avance de votre aide

Bonsoir, Je ne suis pas sûr mais il me semble que tu "devrais" pouvoir le faire avec la géométrie descriptive, mais mes souvenirs sont trop flou pour te l'affirmer. ....Faudrait demander à un chaudronnier, s'il y en a dans la salle :casstet:

Non , pas de commentaire ou quoi que ce soit en bien ou en mal, je n'ai pas eu le temps d'étudier ton code faute de temps (mais peut-être ce WE...j'espère, car ça m'interresse). Mais je pense que pour ma part je serais passé par AutoCAD à la place d'excel, c'est juste une histoire de goût. Mais en tout cas ça marche bien. Félicitation, ça va m'aider pour plus tard. Merci à toi

Bonjour, Comment va Robinson Crusoé ? Sub XYBloc() Dim ObjBloc As AcadBlockReference Dim StrNomBloc As String StrNomBloc = "popo" For Each ObjBloc In ThisDrawing.ModelSpace If ObjBloc.Name = StrNomBloc Then XY = ObjBloc.insertionPoint MsgBox XY(0) & " , " & XY(1) & " , " & XY(2) End If Next End Sub Bonne continuation

Bonjour, Est-ce que qn sait si on a "droit" à un nombre d'opérations en vba ? Je vais tenter de m'expliquer : j'ai un fichier de départ avec des rectangles de différentes taille avec un objet point en son "centre". On me demande de faire un autre rectangle par rapport à ceux qui sont déjà existant. et surtout avec le même "centre" et pour faire le travail, on me donne sur papier les dimensions des nouveaux rectangles (offset à exclure les dimensions ne sont pas les même en L et l par rapport au rectangle de départ). Pour voir si il y a moyen d'automatiser le tout, j'ai demandé un fichier informatique sur lequel on peut trouver les nouveaux rectangles + un texte avec les dimensions (export en dxf). Le 1er problème est que suite à divers trucs un peu trop long à expliquer, les fameux nouveaux rectangles n'ont pas le même centre que ceux de départ. Enfin bref : j'ai réussi à créer une 1ère routine qui exporte les coordonnées des nouveaux rectangles du fichier dxf dans un fichier excel. Ensuite je met en route une seconde routine, qui va chercher les coordonnées, dessine le rectangle bien sûr avec les bonnes dimensions, et par rapport aux coordonnées du dit "nouveau rectangle", crée une sélection et regarde s'il y a des points à l'intérieur de la sélection, s'il y en à plusieurs, il fait un tri pour ne garder que le point le plus proche du centre du nouveau rectangle, et pour finir déplace le rectangle dessiné, par son milieu jusqu'au point final qui est le centre du rectangle de départ. C'est maintenant que surgit le fameux problème de nombre d'opérations, mes routines fonctionnent bien, mais la dernière, celle qui crée et met en place les nouveaux rectangles ne fait pas les opérations sur TOUS les rectangles, elle en zap, et vu le nombre de rectangles, je me demandais s'il n'y avait pas une histoire de limite. Je vous prie de bien vouloir m'excuser de ne pas être très clair, je crois même que je suis très brouillon sur ce coup là, mais je ne sais pas trop comment m'y prendre pour expliquer tout ceci. Voili voilo, si qqn a des infos............merci d'avance.

Bonjour, est-ce que tout les coups sont permis ?

Bonjour, pour créer une ligne en "voyant" la contruction... si j'ai bien compris ce que tu veux ; tu peux le faire comme ceci également. Sub Ligne Dim Pt1 As Variant Dim Pt2 As Variant Dim ObjLigne as AcadLine With ThisDrawing.Utility Pt1 = .GetPoint(, "Indiquez le premier point.") 'Transformation des coordonnées de Pt1 si jamais tu n'es pas dans en SCG Pt1a = .TranslateCoordinates(Pt1, acWorld, acUCS, False) Pt2 = .GetPoint([surligneur]Pt1a[/surligneur], "Indiquez le second point.") Set ObjLine = ThisDrawing.ModelSpace.AddLine(Pt1, Pt2) End With End Sub En espérant que ça puisse t'aider. [Edité le 14/10/2005 par winfield]

Merci pour tes explications. ........t'es sûr de n'être qu' "apprentis-expert" ? :P

Désolé Trambler, c'est dans l'eau, mais je t'offrirai quand même le café.

Merci pour vos réponses, Tramble, je testerai lundi, je n'ai pas le fichier ici. Didier, effectivement c'est l'accrochage centre qui n'accroche pas, le reste, j'ai pas eu le reflexe de tester. BonusCad,si j'ai bien compris, tu veux voir si c'est vraiment un cercle. Si c'est ça,je peux t'affirmer que c'est bien un cercle ( j'avais édité le bloc). Vous tiendrais au courant. Merci encore