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.

Ah oui, vu comme ca ca doit marcher. Moi je ne suis pas vraiment dans ton cas. Je me sers du ATTOUT pour "creer" la liste des handle des blocs avec attributs mais attributs non renseignés. Je colle mes handle dans mon tableau excel ou c'que j'ai mes valeurs d'attributs, puis je refais un ATTIN, pour faire le chemion inverse mais ce coup ci avec tout les etiquettes renseignées. Donc mon problème pour ne pas a avoir a cliquer sur les blocs les uns après les autres, ce serait de réussir à faire un tri dans les handle en trouvant celui qui represente mon 1er bloc et etc jusqu'au dernier ... Et maintenant je fais quoi ... ?

et tu tries ca comment ?

Le mot de la fin pour conclure ce sujet : J'ai bien réussi à remplir tous mes valeurs d'attribut de mes 200 blocs à partir d'un tableau excel (puis un txt) avec les commandes des express ATTIN et ATTOUT. Par contre, pour ne pas tout mettre dans tous les sens, lorsqu'il faut selectionner les blocs pour créér la liste des handle de chaque bloc, il vaut mieux les selectionner un par un plutot qu'une fenetre, sinon, ils sont dans n'importe quel ordre dans le fichier d'export.

bon, j'ai trouvé une bonne piste avec l'outil 'ATTIN' et 'ATTOUT' des express mais un truc que je ne pige pas, c'est quoi un handle ?

ah ben je ne m'attendais pas a ce genre de reponse .. explique un peu pour voir ...

Bonjour, Je cherche à savoir si c'est possible de "lier" des données sous fomre de tableau excel à un dessin autocad. Je m'explique : j'ai un bloc avec un attribut (soit reference) et je voudrais aller chercher la designation renseignée dans un tableau excel de la-dite reference. Mmmhh ... pas très clair. Voyons concrétement ... Reference Designation 001 crayon de papier 002 gomme 003 taille crayon et quand je renseigne mon attribut reference 001, il va tout seul chercher la designation du produit comme un grand, soit crayon de papier (valeur dans excel). C'est faisable ... ?

le bug semble corrigé avec l'update 712-654 = 58 ....

c'est fou ce truc ... quand je fais 712-654, ca me donne 57 alors que quand je fais 712.0-654.0, ca me donne 58 .... knut

j'ai fini par trouver tout un tas de petites routines lisp qui permettent de faire ce que je cherche a faire ! .... j'aimerai bien savoir faire du lisp :( Merci quand même !

ben au stade ou j'en suis, je gagne deja presque une journée de manip ... (effacage en tout genre de texte superposés, création de calque et triage des textes, gel de ceux ci, modif des couleurs ...) Crois moi si je le fais, c'est qu'il y a gagner ! il y a presque 10000 textes sur un profil de ce genre ! Alors le travail qui prenait avant une journée se fait maintenant en 5 min ... Pour la selection des textes, il y a toujours des coordonnées communes, que ce soit en X, ou en Y ou par comparaison avec certaines coordonées de blocs Ca devient peut etre une usine a gaz mais ca marche !