Curlygoth

Hello ! Alors oui c'est possible ! par contre j'ai pas trop le temps en se moment... C'est urgent ou pas trop ?

moi ce qui me perturbe c'est la valeur de ton angle -203° de mémoire et de calcul c'est à peu près 157°... et ca représente le vide que tu as j'ai l'impression donc tu aurais soustrait 157° des 360 ? si tu met directement ta valeurs dans les propriétés ça fait quelque chose ? ou alors ton axe c'est pas bien positionné... au pire donne moi tes cotes j'essaie de mon coté

juste pour éviter les virus ??? ben tu n'as cas accepter que tes macros venant de ta signature xD sous autocad oui c'est pareil ! j'ai fais des programmes relativement complexe sous excel (PUB : que je vends aussi) et je me suis mis a le faire sous autocad ! et c'est pareil ! du coup j'ai automatisé mes plans ;-) et (PUB je vends aussi)

oui aussi ben si tu as ni echelle ni géoréférencementni point de base... la comme ça effectivement ça me parait compliqué ^^ généralement avec 2 point ou un point de base et une echelle avec l'orientation c'est bon mais si tu as rien du tout ...

tu as une nuage de points seul ou avec des points géoréférencés ?

si tu dis version autocad et que tu veux la meme chose sur autocad c'est fait vu que c'est du vba et que c'est dans un userform ! (en se moment je travail sur un jeu d'echec via un userform !) maintenant si tu veux la création d'une grille ou grille dans l'objet autocad je te ferais ça quand j'aurais le temps content d'être trentenaire et d'avoir du VB ! car le dos je sais pas si je serais capable de l'apprendre

ça c'est une bonne question ! Nous on fait de la détection et dans la mesure où mon entreprise est petite et annonyme ici (et moi de meme) je t'avoue qu'on ouvre les chambres et on les referme bien comme il faut tu peux toujours envoyer un recommandé sinon ! mais je te spoil : tu n'auras pas de réponse rapide

B) peut etre puis-je t'aider ?

Malheureusement... Je suis pas en Lisp... Je suis en vba (autocad compris) ^^ Je peux faire une version sur autocad si tu veux XD

tu as juste le module à installer ^^ ensuite tu peux le mettre en bouton si tu veux ^^ mais comme tu veux ;-)

j'ai fait ça sur ce post : https://cadxp.com/topic/49425-wip-fusion-de-calque/

VBA accepter ? pour la structure de ton tableau c'est une gros tableau avec plusieurs partie non ? propriété(nom calque ,couleur, type de ligne) géométrie (X,Y,Z,Ex,Ey,Ez) par contre c'est la suite : Propriété dyanmique tu souhaites QUE les propriétés de visibilité ou TOUS les autres paramètres ? et enfin ta partie attribut(ATT1,ATT2...)

tu nous diras :-) ton avis J'espère que vous avez pris de bonne résolution et que vous allez vous y tenir ^^'

Merci, car j'aurais peut etre besoin de ça moi aussi... PLutot que d'avoir créé une base pour remplacer les caractères XD

heu... je connais pas pas ton plug-in... Je peux te proposer des solutions via programmation comme tant d'autres ici sur ce forum. mais sur ton problème je sais pas

https://www.elfyourself.com/ A découvrir ! et à vous amuser ! Le plus long est de préparer et choisir les photos ! Je ne vous en dit pas plus ! ;)

j'aime bien cette phrase mais c'est un peu fort l'ambiance est bonne,il rale il le sait... On en rigole, parfois dans des dossiers urgent et stressant la c'est ennuyant car ça nous tape réélement sur le systeme... mais bon on est tous différents (Moi en premier avec mes idées folles) on a su justement rendre le truc un peu plus drôle pour dédramatisé en faite ^^ d'ailleurs pas bete le truc de tu n'as pas râler aujourd'hui on te file une bière ! je vais voir avec mes collègue dans le coup a 4 je pense qu'pon pourrais le récompenser en effet et peut etre commencera t'il à moins raler avec le temps ! merci de l'idée

heu.. je ne parle pas harcèlement.. et le but n'est pas de l'harceler mais de parié dessus l'idée c'est pas de lui dire justement XD c'est + dans l'esprit de "OH collègue !" de Patrick sébastien

Bonjour à vous, Je sais pas si c'est le cas pour tout le monde ici, mais nous : on a un collègue qui râle et qui ne fait que ça... enfin c'est ce qu'on dit... et bien sur, ça nous fait râler.. qu'il râle... enfin bref... un collègue me demande si je peux faire un programme pour compter le nombre de fois qu'il râle dans la journée ! Si tôt dit, si tôt fait ! Les parieurs ont un bouton dans leur ruban excel (oui on est encore dans les années 1980 chez nous) et le matin : A la première ouverture du jour tous choisissent un nomnbre de fois où le raleur ralera ! chacun pari sur un nombre ! ensuite des qu'il râle la parieur appuis sur leur bouton, le soir on compare les résultats avec nos comptes à tous ! pour être sur que personne n'a oublier de cliquer un râlement ou lors de leur absence... on prend la moyenne et on voit qui est proche ou non ! et a chaque fois on suit le nombre qu'on a choisi a la base et le nombre de fois où il râle dans la journée ! tout ça pour dire que si à la fin de la journée on a pas notre quota parié on le fais râler un peu plus ^^ lisez le code un peu pour comprendre ;-) il faut un fichier xlsm dans lequel, on a la macro (j'aurais préféré cibler le .bas m'enfin bon) on ajoute au ruban la macro et c'est fait : Ajouter un bouton au ruban (si possible cacher le un peu) histoire que le raleur ne le sache pas... en venant à votre pc en ralant XD https://support.microsoft.com/fr-fr/office/affecter-une-macro-%C3%A0-un-bouton-728c83ec-61d0-40bd-b6ba-927f84eb5d2c le code est dans un module dans un fichier que j'ai appelé "18.xlsm" Sub COMPTEUR() Dim FICHIER_PARI As String Dim FICHIER_CPT As String PARIEUR = Environ("USERNAME") c = "\\...\" 'chemin du dossier J = Day(Date) M = Month(Date) Y = Year(Date) DATE_A = Y & "-" & M & "-" & J FICHIER_PARI = c & DATE_A & "\PARIEUR-" & PARIEUR & ".txt" FICHIER_CPT = c & DATE_A & "\COMPTEUR-" & PARIEUR & ".txt" If FichierExiste(FICHIER_PARI) = True Then If FichierExiste(FICHIER_CPT) = True Then CPT = Trim(LireFichierTexte(FICHIER_CPT)) CPT = CInt(CPT) + 1 Else CPT = 1 End If Open FICHIER_CPT For Output As #1 Print #1, CPT Close #1 Else On Error Resume Next MkDir c & DATE_A On Error GoTo 0 Do NB_RALE = InputBox("Combien de fois pariez-vous que X rale aujourd'hui ?", "A vos Pari") Loop While IsNumeric(NB_RALE) = False Open FICHIER_PARI For Output As #1 Print #1, NB_RALE Close #1 Exit Sub End If PARIE = LireFichierTexte(FICHIER_PARI) CPT = Trim(LireFichierTexte(FICHIER_CPT)) MsgBox ("Nombre de rale ce jour : " & CPT & Chr(10) & "Vous avez parié ce jour : " & PARIE) Workbooks("18.xlsm").Close End Sub Public Function FichierExiste(MonFichier As String) If Len(Dir(MonFichier)) > 0 Then FichierExiste = True Else FichierExiste = False End If End Function Public Function DossierExiste(DOSSIER As String) On Error GoTo FAUX: If Len(Dir(DOSSIER, vbDirectory)) > 0 Then DossierExiste = True Else DossierExiste = False End If Exit Function FAUX: DossierExiste = False End Function Public Function (ByVal MonFichier As String) As String Dim intFic As Integer Dim strLigne As String intFic = FreeFile Open MonFichier For Input As intFic Line Input #intFic, strLigne Close intFic LireFichierTexte = strLigne End Function Workbooks("18.xlsm").Close qui permet de fermer le classeur si vous mis un bouton dans le ruban Profitez en car le jour où il est au courant je pense que je supprimerais ce post !

c'est souvent le cas ^^ as tu parlais des hachures du mur ????? Steven ta donner LA solution ! Après si tu n'a pas mep ou architecture je donne un truc : je fais en sorte d'avoir des hachures associatives avec des point de base sur l'axe des murs comme ça quand je bouge une porte l'hachure ce dimensionne aussi... tu peux aussi mettre un fond blanc etc.. etc...

un miroir ? oui

alors je comprends pas le problème les rotations fonctionnent la décomposition aussi.. j'ai pas de hachure dans ton bloc porte de base dans bedit c'est pas un bloc dynamique donc pour moi tout va bien

si avec la commande bedit ! et peux être que ta hachure n'est pas dans une polyligne fermé... envoie le dwg on regardera ^^

+1 le crabe Mais quel dialogue de sourd ! charge les formes car elle ne sont pas dans ton dessin ! peut etre que avec tes gabarits ou autre manip.. Sais t on jamais : suis les instructions : une fois chargé toutes les formes : et voici le liste : *LIMITE1,Ligne-cercles ----0-----0----0-----0----0-----0-- A,.25,-.1,[CIRC1,ltypeshp.shx,x=-.1,s=.1],-.1,1 *LIMITE2,Ligne-carrés ----[]-----[]----[]-----[]----[]--- A,.25,-.1,[bOX,ltypeshp.shx,x=-.1,s=.1],-.1,1 *RAILS,Rails -|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|- A,.15,[TRACK1,ltypeshp.shx,s=.25],.15 *ISOLATION,Isolation SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS tu pourras réutiliser tes lignes comme avant mais il faut effectivement charger tes formes et Objet BOX, CIRC1,TRACK1

sur Mensura je sais pas mais en VBA ou Lisp c'est faisable sinon tu peux avec l'outil réseau d'AutoCAD ou mesurer mais faut mettre ton texte en bloc....