alf_ze_cat

Vous avez peut être raison ... mais j'ai quand mème du mal a comprendre pourquoi ça me fait ce phénomène sur ce dessin. Il s'agit d'un plan en coordonnées Lambert et dans lequel je bosse en SCU général. J'en ai déjà fait des pelles de ces dessins la, dans ce repère de coordonnées la. Et je n'avais jamais vu ce phénomène ... Ça me poserai pas trop de problèmes si ce n'était que l'affichage du scu qui changeait (en zoomant fort oui, mais pas tant que ca, puisque je zoome pour être à l'échelle centimétrique ...). Mais ça devient embêtant quand j'utilise l'outil ajuster sur 2 polylignes de 20 cm perpendiculaires et qu'il ne me reconnaît pas l'objet à ajuster 😕 Et oui, si je zoome encore plus (échelle 1/1000 de mm, inutilement j'entends bien mais c'est pour pousser le test à fond), j'obtiens des trucs encore plus ouf ! Je pense que je vais faire un bon copié collé des familles de tous les éléments du dessin pour repartir sur un dessin vierge et laisser derrière les merdouilles qui traînent ... Mais j'aimerais bien comprendre !

Bonjour a tous,sur un dessin, j'ai cet icône scu peu habituel arrivé à un certain niveau de zoom. A vrai dire, j'ai même 3 icônes différents suivant le zoom. Quelqu'un peut il m'expliquer à quoi cela est il du ? Merci

ben en fait quand je faisais un copié collé depuis excel, ca arretait le script à la fin de ma saisie texte, mais depuis que j'ai passé ca dans un fichier et que je lance le script, ca marche :/ merci

bonjour, j'ai un soucis ... je ne sais pas faire de retour chariot après cette ligne de script afin de valider ma saisie texte ... _-text 304.3,0.5 1 100 1000; le point virgule étant interprété comme un caractère de la chaine de caractère à créer. comment faire .... ? merci les gens

bien bien ... merci ! c'est deja pas mal

bonjour, ce fichier vit il encore ... ? quelqu'un peut il m'envoyer ca ... ? ou un autre ? merci

Bonjour, je suis a la recherche d'infos concernant l'aménagement d'une plateforme tri modale (fer/eau/route) je dois proposer l'installation d'un pont roulant pour décharger les bateaux vers les trains et/ou reciproquement est ce que quelqu'un a des billes la dessus ? un profil en travers ou figurerait le PR par exemple ... ? en gros, est ce que quelqu'un a deja fait ca ... ? idéalement, un site comme celui de delta3, a dourges est ce qu'il me faut (Voir carte ici) merci

ah ben oui, tout simplement merci

Bonjour, je tatonne, je tatonne ... et je me demande si on pas faire plus court que ca : Dim pt1(0 To 2) As Double Dim pt2(0 To 2) As Double Dim pt3(0 To 2) As Double Dim pt4(0 To 2) As Double (....) Dim pt50(0 To 2) As Double Dim pt51(0 To 2) As Double Dim pt52(0 To 2) As Double Dim pt53 0 To 2) As Double Dim pt54(0 To 2) As Double un truc du style : for i=1 to 50 dim pt(i)(0 to 2) as double next mais on peut pas ... Une idée s'vous plait ... ?

ah ben ca y est j'ai trouvé ... il fallait mettre ca : .... il me manque pas mal de principes je crois !

alors quand je fais ca et que je cliques sur le bouton, ca marche ... alors que je voudrais que ca se mette des que la boite s'ouvre et j'imaginiais qu'avec ca, ca marcherait, mais non ! je vais peut etre laisser tomber tout ca, je perds trop de temps !

voila ce que j'ai deja fait ... 'DEFINITION DES VARIABLES Dim Q1 As Integer Dim Q2 As Integer Dim Q3 As Integer Dim Q4 As Integer Dim pt1(0 To 2) As Double Dim txt As Variant Dim somme As Integer Private Sub CommandButton2_Click() Q1 = TextBox1.Value Q2 = TextBox2.Value Q3 = TextBox3.Value Q4 = TextBox4.Value pt1(0) = 232#: pt1(1) = 258: pt1(2) = 0# somme = Q1 + Q2 + Q3 + Q4 'ON CACHE LA FEUILLE UserForm1.hide If Q1 = 0 And Q2 = 0 And Q3 = 0 And Q4 = 0 Then txt = "Pas de glissières de sécurité relevées à ce PN" Else txt = "Présence de glissères de sécurité : Oui \P\P" & " Quadrant 1 : " & Q1 & " ml\P Quadrant 2 : " & Q2 & " ml\P Quadrant 3 : " & Q3 & " ml\P Quadrant 4 : " & Q4 & " ml\P\P Total linéaire de glissières à déposer : " & somme & " ml" End If UserForm1.Label6.Caption = docName Set mtextObj = ThisDrawing.ModelSpace.AddMText(pt1, 160, txt) mtextObj.height = 2.5 End Sub Private Sub CommandButton3_Click() Dim docName As String docName = ThisDrawing.Name MsgBox "Voila le nom du fichier : " & docName, vbOKCancel, "tada ...." End Sub Private Sub UserForm_initialize() Label6.Caption = docName End Sub je ne sais pas pourquoi tout se met en couleur, ca ne ressemble pas à une mise en forme judicieuse ! donc voila mon soucis : j'arrive à recuperer le nom du fichier et le faire afficher dans un msgbox après avoir clique sur un boutonde commande, par contre j'aimerais que ce nom s'affiche tout seul dans un label present sur la userform soyez indulgent, ceci est mon premier programme qui fonctionne :P

Bonjour, je voudrais savoir comment faire pour mettre le nom du fichier dans un label dans mon userform ? un truc du style ... UserForm1.Label6.Caption = Thisdrawing.FileName mais ca marche pas :/ merci de votre aide ...

Mais bon sang mais c'est bien sur ... :unsure: Je suis vert de ne pas y avoir pensé ... Merci, il faudra que je m'en souvienne pour la prochaine fois. Pour conclure, ATTOUT et ATTIN sont de bons outils, puissants, relativement facile à condition de prendre le temps de comprendre leur fonctionnement.

Je ne peux regarder la video au boulot ... Mais sinon, oui, le premier bloc, c'est celui qui est inseré en haut à gauche d'un tas de 20x20 blocs identiques, avec étiquettes d'attributs vides. Peut etre qu'en les mettant sur une seule ligne, ca se passerait mieux. Steven, peut importe ce que je mets dans mes etiquettes de mes blocs, non ? Mais sinon, ce sont des fiche de renseignements sur une infrastructure.