Curlygoth

bon ben ... si pas de vb je suis disqualifié ! Bon courage au participant ^^

vba accepté ? et par itération ? ou boucle ?

L'associer c'est lorsque que tu vas modifier un point de ta Surface "polyligne fermé" la hachure va se mettre toujours contre les bordures de cette surface es tu sur de sélectionner ton hachure quand tu déplaces ta surface ? EDIT : je sélectionne toujours un objet et pas un point...

ben c'est dedans que tu dois créer tes lignes Enedis justement ! ou dans le acadiso.lin (j'ai pas covadis)

heu... je crois que c'est le ".pat" que tu as mis...

as tu tout dessiné dans le SCU général ? car a mon avis tes polylines sont "décaler" et pas dans le meme SCU... et à l'affichage vue de dessus tu as ce "bug"

C'est pas ce que tu m'as dit : "J'en ai parler à mon patron j'attends un retour" j'attends son/ton retour ^^ mais volontier !

Je me permets : Dessinateur dans le BTP : - automatisation des taches administrative et dessin (15min par plan quelque soit : ça taille ça technicité le nombre de folio etc etc...) - Etablissement des DOE - Etablissemnt des Appels d'offres (semi automatisé) - Etablissement des dossiers et fichier-prérempli (semi automatisé) - Facturation (automatisé depuis 6 ans) - Liste matériel & métré (automatisé depuis 7 ans) - Gestion et suivi des dossiers clients (automatisé depuis 5 ans) Informatique : - Maintennance - Developpement : Vba / vb.net / Python / Sql / Mysql / Htlml (base) + css (base) - 10 ans d'expériences en dessin, 8 ans en programmation 2900€ brut Pas d'évolution possible, pas d'avantage, pas de primes, pas de 13eme mois fauteuil et écran à mes frais Les autres entreprises contactées ne comprennent pas l'utilité d'automatisé les dessins... ça fait 3 ans que je cherches.. Je me réoriente dans le développement informatique dans 3 mois ! J'espère trouver une boite qui cherche un dev...

tu peux creer les types de lignes via le .lin J'ai une partie des lignes mais pas toutes...

J'ai une macro qui fait ça en VBA Si tu as de poly 3D ça aplati en Polyligne 2D en gardant les blocs en elevation (notamment les points topos et quand tu re-clique sa génère des poly 3D passant par tes points en élévation (il faut juste avoir un point par sommet de polyligne sinon sa prend l'altimétrie du point précédent...) dit moi si ça t'interresse je te filerais ici (je rappelle que c'est du VBA et qu'il faut installer le module)

oui via la programmation VBA ou Lisp ;-) j'utilise cette méthode pour transformer mes points topo dans un autre bloc avec plus d'infos pour le SIG ^^

J'&ai pas de lisp non plus uniquement du VBA désolé ... en vba : Sub P3D_PO() Dim retcoord() Dim PT() As Double Dim P1(0 To 2) As Double Dim Bloc As AcadBlockReference Dim ObjPo As AcadLWPolyline Dim polyObj As Acad3DPolyline Dim color As AcadAcCmColor Dim sVer As String sVer = Left(AcadApplication.ActiveDocument.GetVariable("ACADVER"), 2) Set couleur = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor." & sVer) Me.Hide X = 0 Y = 1 Z = 2 PREC = 3 NB_OBJ = ThisDrawing.ModelSpace.Count - 1 For o = 0 To ThisDrawing.ModelSpace.Count - 1 Set entity = ThisDrawing.ModelSpace.Item(o) T = entity.ObjectName Select Case entity.ObjectName Case "AcDb3dPolyline" Set polyObj = entity LIST_PT = polyObj.Coordinates CALQUE_OBJ = polyObj.Layer Epaisseur = polyObj.Lineweight L = LBound(LIST_PT) u = UBound(LIST_PT) NB_PT_3D = (u + 1) / 3 cp = 0 ReDim PT(NB_PT_3D * 2 - 1) For i = L To u Step 3 Xo = LIST_PT(i) Yo = LIST_PT(i + 1) Zo = LIST_PT(i + 2) PT(cp) = Xo cp = cp + 1 PT(cp) = Yo cp = cp + 1 Next i NB_PT = (UBound(PT) + 1) / 2 Set ObjPo = ThisDrawing.ModelSpace.AddLightWeightPolyline(PT) ObjPo.Layer = polyObj.Layer ObjPo.Lineweight = polyObj.Lineweight ObjPo.Update polyObj.Delete o = o - 1 Case Else Debug.Print T End Select Next o ThisDrawing.Regen acActiveViewport End Sub

bon ok ^^ Je laisse le post ouvert si d'autres veulent des infos ou autres De mon cotés j'ai ajoutés des pieces via V2.4a et d'autres vont etre ajouté par la suite ! J'ai commencé l'algorythme de lecture pour les PGN afin de les importés et ça marche !!!! donc maintenant plus qu'a interpréter des variantes dans le PGN pour m'excercer ! La version gratuite étant terminés je reste disponible si vous souhaiter ajouté des jeux de pieces !

MMM... je vois un autre problème les pieces blanches sont transparentes !!!!!! si ça te dérange je te renverrais un jeu de pièces

Pas de soucis ^-^ Bon alors ok par contre ... tes pieces sont microscopiques !!!! J'espere que tu as une bonne vue !!! parce que moi j'aurais abandonné Bion treve de plaisanterie : merci a toi de me dire ce qui va pas ! Prend ce zip et remplace ou creer un dossier avec un nom et coller les fichier dedans ^^ ca te fera un jeu de piece en plus ;-) ...\RES\PIECE\Alpha128 par exemple dit moi si ça change quelques choses si ça change rien je ferais differemment Alpha01.zip

c'est dommage que je ne puisse pas tester le code directement sur ton ordi... pour voir où sa pêche... donc bon j'ai changer les ".ico" en ".gif" et j'ai ajouter un nouveau jeu de pieces ! et je vais en ajouter d'autres ;-) ATTENTION Comme je le dis dans mes vidéos et que je le dis un peu partout : Tu ne peux pas jouer contre une IA dans mon programme c'est juste un mode 2 joueurs !!!. La version "IA" sera une version pour réviser tes répertoires car aujourd'hui ça n'existe pas... et j'ai besoin de réviser qu'apprendre par cœur les coups avec la notations... Je ne prétends pas faire de la concurrence à litchess /chess.com etc... par contre se sera un outil inédit pour la révision des répertoires V2.4a dans le premier post et dit moi si c'est good si ca t'interresse toujours sans IA ^^

mmm... d’après la description de l'erreur, je suppose que c'est les images ".ico" qui ne passe pas sur les boutons... Essaie de supprimer les image ".png" saist on jaamis... et moi je vais te trouver un correctif pour que ce soit plus propre ;-)

oui as tu dézipper ? et je te conseil d'aller chercher la derniere version sur mon site ;-) Ajout des valeurs des pieces ^^ et corrections de 2 bugs ! 1 mineurs l'autre majeur ! Je vous laisse chercher et c'est pour ça que je laisse le V2.2 sur le 1ier post !

Faut sauvegarder les PCs aussi ^^'

je peux te parler que de vba moi désolé ...: Tu créer un dvb avec un module PREF une sub avec "la" ligne DOSSIER_PDF tu enregsitre ta macro dans le lisp de démarrage ThisDrawing.Application.LoadDVB "C:\...\nomdvb.dvb" ThisDrawing.Application.RunMacro ("C:\...\nomdvb.dvb!PREF.DOSSIER_PDF") et c'est tout

ok sympa merci Je vais étudier tout ça ! je suis débutant voir néophite en C++ par contre le vb.net ^^ je vais checker merci

Bonjour, Alors en vba j'utilise ça : MyPreference.PlotLogFilePath = thisdrawing.path ça va modifier a chaque fois ton dossier de préférence et en lisp je sais pas trop il y a ça dans l'aide : (vl-load-com) (defun c:Example_PlotLogFilePath() ;; Note: Change the path to a valid folder on your system. (setq acadObj (vlax-get-acad-object)) (setq preferences (vla-get-Preferences acadObj)) (setq MyPreference (vla-get-Files preferences)) (vla-put-PlotLogFilePath MyPreference "C:\\Plots") ) mais je sais pas comment mettre l'equivalent du thisdrawing.path XD Je pense que lecrabe ou autre vont répondre ;-)

allez pourquoi pas essayer toutes les possibilités il y en a bien une qui marchera ! (J'espère) Mais je suis sur que j'ai du zapper une manip ou qu'il y a un truc qui bloque c'est pas normal que la commande fonctionne (aleluia) mais que j'arrive pas a voir la valeur de retour ou le fichier... je vais regarder merci !

Je suis d'accord ! Moi Vous me rassurez car je les lis toujours ! parfois meme : si c'est drole je réponds ^^ je suis un "ouf" XD