Curlygoth

Alors je sais le VBA vous n'aimez pas mais bon c'est pas grave je le mets pour infos : en 1 bouton : If ThisDrawing.GetVariable("UCSFOLLOW") = 1 then ThisDrawing.SetVariable "UCSFOLLOW", 0 else ThisDrawing.SetVariable "UCSFOLLOW", 1 end if

c'est bien ce que je cherche ! d'ailleurs si tu es chaud pour se soir ou autre ^^ ou pourra changer la cadence jouer sur du 10min ?

moi j'y joue depuis longtemps mais j'ignorais totalement le coté ouverture, table de mat etc, les oppositions, les jeux de pions etc... donc je prends des cours et je vais en avoir besoin pour battre maxime063 ! je cherche un échiquier en marbre ! et je ne trouve pas...

mp envoyé mon identifiant est le meme sur chess.com ^^

Bonjour à tous, Voila je cherche un ou des joueurs afin de progresser aux échecs ! Je prends des leçons et tout et tout mais je démarre juste les cours ! voila voila ^^

tu peux les créer facilement !

+1 pour mon VDD EDIT : Suppression de mon message

je suis auto entrepreneur depuis un certain temps. tu peux commencer a 0 par contre faut éviter d'aller au dela des 32k € annuel (plafond) pour rester dans une imposition raisonnable si tu peux beaucoup plus pourquoi pas mais faudra que tu changes de statut ! niveau tarif tu fais ce que tu veux. moi je facture selon le projet du client et suivant la compétence qu'il me demande faut que tu ailles sur le site https://www.autoentrepreneur.urssaf.fr/portail/accueil.html c'est la que tu feras tout !

Ou sinon existe-t-il des postes de dessinateur ou il y a uniquement de la dao sans calculs ? oui et on cherche dans le sud de la france ! pour un dessinateur elec ! on peux t'apprendre sur place s'il le faut : (Domaine TP)

vba possible ?

si j'ai bien compris : j'ai remarqué que selon les endroits (campagne ou grande ville la résolution) est différente... Quand ça arrive j'ai deux solution : soit tu export ton tracé pour le mettre sur Google Earth soit tu prend une image de google earth pour la mettre dans les dessin

For Each att In blockrefobj.GetAttributes 'j'utilise ça If UCase(att.TagString)="Nom_bloc" Then 'tu as une erreur aussi ici Ucase mais tout en majuscule donc ta condition ne pas pas etre verifié vu que ton texte est en capital... att.TextString=txt else End If Next att

alors les points mets les en type double (c'est peut etre pour a que tu as 0) variant c'est un joker je suis d'accord mais quand tu veux fixer un type et calculer avec fixe le ! pour la boucle sur tes éléments je te conseil ça : Dim ent As AcadEntity For i = 0 To ThisDrawing.ModelSpace.Count - 1 Set ent = ThisDrawing.ModelSpace.Item(i) ca va te permettre d'aller de 0 à la fin pas par ordre hasardeuse (en tout cas le temps du deboguage ça aide pas mal)

https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/keypress-event ça c'est la page pour l'évenement quand vous appuyez sur une touche... facile pas compliqué par contre si votre programme tourne et attends la sélection d'un bloc et que vous faites la touche entrée (il va générer une erreur car ce n'est pas ce qu'il demande) c'est pour ça que quand je fais des choses comme ça, je le rentre dans une gestionnaire d'erreur et ensuite je la traite. Maintennnant si vous voulez absolument faire entrée à ce moment la, alors que dans votre procédure vous demande de sélectionner un objet, il va falloir chercher la référence qui permet ça...) car de base le VBA ne fait pas de multi-threading et si tu veux le faire faut ajouter des références au projets

il ya deux ligne que je compprends pas moi [Public Sub UpdateBlockWithAttribute(existingblks As AcadBlockReference) existingblks c'est ton bloc existant pou moi 1 block et donc c'est pas une collection si ? For i = 0 To UBound(existingblks) ' tu boucle sur ton block ? Set extBlk = existingblks(i) mais je vois pas la recherche de ton texte et sa position

non, je pense que ta référence est rester sur l'ancien bloc qui lui n'a pas d'attribut ;-) ou alors ton blocs n s'est pas mis à jour dans ton dessin... il peut y avoir un multiple d'erreur de code ^^ quand tu remplaces il te faut deux types acadblockreference ou 1 seul mais dans ce dernier cas faut "vider" la classe

si tu veux un résultat rapide sans prise de tete (chercher les références qui gère le clavier pendant une instruction, gérer les commandes clavier etc...) fait juste une messagebox tu y gagnera ton temps pour cette petite procédure ;-) "genre voulez vous continuer ?" ou "Voulez vous arreter ?" et la suivant la réponse ton prog part d'une maniere ou d'une autre sinon faut verifier l'entrée clavier chr(10)

moi je creerais un tableau dynamique que tu remplis a chaque fois que tu cliques sur un bloc avec Redim preserve pour extraire j'utilise ça 'X c'est l'incrément de ta boucle If blockrefobj.HasAttributes = True Then 'pas obligatoire For Each att In blockrefobj.GetAttributes If att.TagString = "ATT1" Then 'le nom de ton attribut TAB_(X,0) = att.TextString 'la valeur de l'attribut Else End If If att.TagString = "ATT2" Then 'le nom de ton attribut TAB_(X,1) = att.TextString 'la valeur de l'attribut Else End If Next Else End If des qu'il y a une erreur une message box pour demander si tu souhaites sortir ou non de ta sélection ensuite tu crées un classeur excel en vba via la reference Microsoft Excel XX.X Objet Librairy où tu transpose ton tableau apres soit vers un tableau exoistant soit un nouveau et c'est comme excel grace à la reference ;-)

pour la distance c'est facile c'est mon copain Pythagore qui a fait un théorème ! (je suis sur tu le connais):-) : tu as 2 points : Dim PTB (0 to 2) as double 'point du block (on cherchera à partir de celui la donc ) Dim PTT (0 to 2) as double 'Point du texte qui changera à chaque fois ! for u = 0 to 2 'tu n'as pas besoin de boucle tu peux aussi faire : PTB = obj.InsertionPoint (mais quand tu debogs et tu tu connais pas les espions c'est ce que je faisais avant et c'est resté XD) PTB(u) = obj.InsertionPoint(u) PTT(u) = textObj.Insertionpoint(u) next u D = sqr((PTB(0) - PTT(0))^2 + PTB(1) - PTT(1))^2) fais en une fonction et conserve la valeur la plus petite a la fin tu regarde si ta valeur est plus petite que ta tolérance

Merci ;-) je les personnalise pour mes clients surtout c'est que des exemples ! confond pas AcadBlockReference et Acadblock ! les types sont en anglais le acadblock c'est plus le groupe ! comme je te l'ai : dit j'ai pas testé et c'est quoi l'erreur ?

de mémoire il me semble avoir programmer une semaine 0 sur mes progs...

de rien et content d'avoir aider quelqu'un sur du vba c'est rare ;-)

pour la distance tu prends la plus petite à partir de ton point c'est tout XD... Tu boucles sur tous tes objets : tu retiens la distance et la valeur Si la distance et inférieur à ta valeur arbitraire et la distance de ton précédent comparatif tu conserves c'est tout

oui tout est possible en programmation je le fait pour des point topo qui recherche une altimétrie de niveau fini s'il n'y a pas de point a moins de 10m sa appelle au autre fonction.. enfin bref.. envoie ton fichier sinon je peux te lancer des pistes : tu aura certainnement des erreurs mais par manque de temps je donne des pistes : 1°) boucle sur tous les objets de dessin 2°) verifier si c'est un block ou non / ou txt ou non 3°) verifier la plus courte distance entre bloc et texte e si ca te va tu insrer l'attribut dans le block sinon tu le rentre manuellement ou tu met rien... le mode manuel ressemblerait à ça : (j'ai pas tester !!!!!) on goto err_ceci_pas_TXT Dim textObj As AcadText ' ou Mtext ! ThisDrawing.Utility.GetEntity text, basePnt, "Sélectionner le texte" text = textObj.textString on error goto 0 on goto err_ceci_pas_BLOCK Dim blockRefObj As AcadBlockReference ThisDrawing.Utility.GetEntity blockRefObj, basePnt, "Sélectionner le block" on error goto 0 'ajouter l'attribut Dim attributeObj As AcadAttribute Dim H_TXT As Double Dim mode As Long Dim ETIQUETTE As String Dim insertionPoint(0 To 2) As Double Dim TAG As String Dim VALEUR As String height = 1# mode = acAttributeModeVerify ETIQUETTE = "Attribute Prompt" insertionPoint(0) = 1#: insertionPoint(1) = 1#: insertionPoint(2) = 0 'je ne sais pas ou doivent etre ton attribut par rapport à ton bloc TAG = Attribut 'creation de l'attribut dans le block Set attributeObj = blockObj.AddAttribute(H_TXT, mode, ETIQUETTE, insertionPoint, TAG, text) je ne l'ai pas tester je l'ai écrit vite fait dans ton attribut suivant ton style de texte tu risques d'avoir des caracteres spéciaux !

J'ai un planning chargé... pour lundi... je ne serais "peut-être" pas ton homme... et comment ça n'importe quel texte le plus proche ? le plus proche si tu n'as qu'un point des textes le plus proche il doit te prendre celui la après je suis pas lispeur.. Malheureusement... si deux textes sont a la même distance du centre de ton bloc ou de ta forme... tu peux m'envoyer ton fichier ? je te promets rien par rapport au délai... mais je vais regarder