winfield

Je suis ravi que ça te plaise :) Yes ! (je l'ai pompé sur des codes de Pako, en passant, merci Pako !)

Salut, Désolé, rien de neuf... Je bosse dans un bureau en béton armé (je sais...encore un bétonneux :cool: ). Lorsque je bosse par ex sur le fichier du R+4, on a besoin de mettre l'impact (des porteurs) du R+5. Copier les porteurs, changer de calque toutes les entités, changer le type de ligne, hachurer etc etc, très peu pour moi (je suis partisans du moindre effort) :P Voilà le pourquoi de ma question. Du coup je passe par un wbloc des porteurs, hachurage et tout le tra lala et pour finir insertion du bloc dans le niveau en rapport, le tout en vba, c'est pas top top, mas pour le moment ça me dépanne.

Très loins d'être aussi balèze que Meister , mais puisque nous sommes dans le forum VBA... Sub GelerTousLesCalques() Dim ObjCalque As AcadLayer Dim ObjCalques As AcadLayers Set ObjCalques = ThisDrawing.Layers For I = 0 To ObjCalques.Count - 1 Set ObjCalque = ObjCalques(I) If ObjCalque.Name <> ThisDrawing.ActiveLayer.Name Then ObjCalque.Freeze = True End If Next End Sub Si ça peut t'aider......

Voilà l'idée : (Si dans les outils d'autocad, ça existe déjà, veuillez m'en excusez et me le dire) Le problème avec AutoCAD, lors de copies, les distances sont toujours par rapport au point de copie. Si on doit mettre n/blocs mais jamais avec les mêmes distances (la commande réseaux est inutile) et les distances qu'on doit donné, doivent être depuis le point de copie. Donc je m'était fais une ptite routine (à mon niveau) pour ce travail mais je veux l'améliorer dans le même sens que SU. je prends la commande, j'indique une direction, je tapes 5 unités, je tapes 15 unités (etc), mais si je veux faire x copies tous les 10 unités ?...........et reprendre ensuite par 4 unités, 25 unités etc etc. Vous saisissez mieux mon problème ? Je sais que c'est loin d'être parfait mais voilà ce que j'ai réussi à faire, les NbCopies tout les X_Distances ne sont pas présent car je me creuse encore la tetheu. Sub CopyContinu() Dim ObjEntite As AcadEntity Dim ObjCopy As AcadEntity Dim Varpoint As Variant Dim Dist As Variant Dim PtCopie As Variant Dim ObjSelection As AcadSelectionSet Dim StrNomSelection As String StrNomSelection = "MaSelection" On Error Resume Next Set ObjSelection = ThisDrawing.SelectionSets(StrNomSelection) If Err <> 0 Then Err.Clear Else ObjSelection.Delete End If Set ObjSelection = ThisDrawing.SelectionSets.Add(StrNomSelection) ObjSelection.SelectOnScreen If ObjSelection.Count = 0 Then Exit Sub Else ReDim Matrice(ObjSelection.Count - 1) For IntI = 0 To ObjSelection.Count - 1 Set Matrice(IntI) = ObjSelection(IntI) Next End If ObjSelection.AddItems (Matrice) With ThisDrawing.Utility PtCopie = .GetPoint(, vbCr & "Point de copie") PtCopieSCU = .TranslateCoordinates(PtCopie, acWorld, acUCS, False) Dist = .GetPoint(PtCopieSCU, vbCr & "Distance ?") DistSCU = .TranslateCoordinates(Dist, acWorld, acUCS, False) For I = 0 To ObjSelection.Count - 1 Set ObjCopy = ObjSelection.Item(I).Copy() ObjCopy.Move PtCopie, Dist Next I Do Dist = .GetPoint(DistSCU, vbCr & "Distance ?") DistSCU = .TranslateCoordinates(Dist, acWorld, acUCS, False) For Y = 0 To ObjSelection.Count - 1 Set ObjCopy = ObjSelection.Item(Y).Copy() ObjCopy.Move PtCopie, Dist Next Y If Err.Description = "Argument pSelSet incorrect dans AddItems" Then Err.Clear End If Loop Until Err.Number <> 0 End With End Sub Idées ? Commentaires ? je prends tout le pack :D

j'ai besoin de calculer un point en donnant une distance au clavier mais l'angle avec la souris....je crois que c'est ça.

Lors de l'utilisation de GetPoint, on peut cliquer à l'écran ou taper des coordonnées : mais on peut taper une valeur (distance). Quand c'est une distance, le système Getpoint doit certainement évaluer où se trouve la souris..... Comment faire pour faire un truc du genre sans passer par GetPoint tout en indiquant la direction avec la souris ? En espérant avoir été clair

bé dans certaines boites, l'heure c'est l'heure, ils mettent tous le monde dehors de peur que tu ne leur vole un de leur pc acheté chez le brocanteur du coin.

:( Dessine moi une poutre Tu veux pas mettre une image ? ....un petit dessin vaut de grands discours ;)

Je vois qu'il y a des motivés dans le forum :D , alors je vous laisse lire... http://www.ephphata.net/la-bible-codee/la-bible-code-secret-1.html ça laisse perplexe :exclam:

ouf pas facile, j'ai cherché un moment ...fallait zoomer :cool: Pour ça tu prends la commande et entrée. dans l'onglet Annotation tu coches Aucune. :)

A9Converter fait ça très bien :D

J'avoue que j'ai vraiment du mal à comprendre. Tu fais des polys et des arcs ensuite tu voudrais que les arcs se transforment en polys ? Si c'est ça, t'as juste à mettre dans un bouton [surligneur]pe;m;\\;j;; [/surligneur] Si je n'ai encore rien compris, je te prie de m'excuser

Cesrait pas un sujet à déplacer ? ;) Désolé, z'avais rien compris :( [Edité le 6/10/2006 par winfield]

Salut, ce n'est pas très simple à expliquer comme ça, mais cherche à [surligneur]InitializeUserInput[/surligneur] ThisDrawing.Utility.[surligneur]InitializeUserInput[/surligneur] 1, "Précédent Suivant Quitter" '----------------------------------- Point = ThisDrawing.Utility.GetPoint(point0, "Point d'insertion du texte ou +Précédent/Suivant/Quitter+") If Err Then Err.Clear ........... End If Les signes "+" doivent être remplacé par les signes "<" et ">" sinon, je ne sais pas pourquoi, ça zap une partie du message Bon courage

Salut, J'ai oublier de préciser sans Access ou autres du genre (tous les pc n'ont pas un soft de base de données). J'ai vu qu'en VB on pouvait le faire mais en VBA....? Peux-tu en dire plus SVP ? [Edité le 2/10/2006 par winfield]

Bonsoir, je te propose une variante, car tu oublies ou tu n'a pas encore été en contact avec les irréductibles qui ne bosse qu'en espace objet. Je me suis inspiré de ton code. Public Sub Tampon2() ' Déclaration des variables Dim Pt1 As Variant Dim Txt1 As String Dim NewLayer As AcadLayer Dim StrNomLayer As String Dim NomMode as String StrNomLayer = "Path finder VBA" NomModel = ThisDrawing.ActiveLayout.Name ' Demande du point d'insertion du texte Pt1 = ThisDrawing.Utility.GetPoint(, "Sélection d'un point SVP") ' Définition du texte à insérer dans le dessin Txt1 = ThisDrawing.FullName & " Par VOTRE NOM le : " & Now ' Créé le layer Path finder VBA pour y insérer le texte du chemin Set NewLayer = ThisDrawing.Layers.Add(StrNomLayer) ' Ajout du texte If NomModel = "Model" Then ThisDrawing.ModelSpace.AddText Txt1, Pt1, 2 Else ThisDrawing.PaperSpace.AddText Txt1, Pt1, 2 End If Txt1.layer=StrNomLayer End Sub [Edité le 1/10/2006 par winfield]

peut-on créer et gérer une base de données en VBA AutoCAD ?

Je crois qu'il y a un problème de compréhension. Autocad n'a pas d'unité. C'est à dire qu'il peut très bien dessiner en mm, cm, m etc. Tout dépends de toi. Quand tu tapes "1" au clavier, ce "1", c'est quoi pour toi ? Si on veut donner une unité à AutoCAD, il "bosse" en mm. Maintenant, dans mon cas, je tapes 1 au clavier, dans ma tête et dans mon corps (comme dirais mon fils), c'est 1 CM. Pour un géomètre ou un Topographe, ce sera 1 M. etc Si lorsque tu cotes, tu trouves que ça cote en mm, tu as plusieurs options. Faire comme te l'a dit LeCrabe : Commande : Echelle Tu selectionnes tout, et changes l'échelle de tes "traits" depuis le point d'origine (0,0,0) ou alors tu paramètres un facteur d'échelle dans les styles de cotations. ça, c'est lorsque tu insères un dessin extérieur, dans ton dessin, genre bloc ou Xref. En espérant que ça t'aidera...

Bonjour à tous, Je suis confronté à un problème. Les paramètres régionaux de Win. Mes routines fonctionnent avec comme séparateur décimal, le point. Si je suis sur une machine qui est paramétré pour que le séparateur soit la virgule.....je me mets le doigt dans l'oeil :mad: Alors, est-il possible, via VBA, changé le séparateur décimal (si c'est la virgule) et remettre comme c'était à la fin de l'exécution de ma routine ?

Patrick, pour ce qui est des pubs, t'en aurais pas oublier certains ? :(

Bonsoir Gile, et merci de la réponse. Si la preuve du bulletin de salaire suffit, ça roule. Mais la vie m'a appris a être méfiant. J'ai bossé chez un géomètre où la moindre virgule avait son importance, alors.... Ici j'ai une augmentation qui n'est stipulé nul part (sauf la fiche de paye, et encore ...c'est tacite) et connaissant le boss... Enfin, c'est un boss quoi ! :P

Salut, regarde un peu du côté de Outils/normes CAO, c'est peut-être un truc du genre qu'il te faut.

à quoi sert exactement l'intitulé "dernière visite" ? puisque nous sommes toujours le dernier visiteur ou la dernière... :casstet:

idem ça m'arrive même si X et Y sont uniforme....la vérité est ailleurs :(

Bonjour à tous, Lors de mon entrée dans l'entreprise, j'avais négocié un certain salaire. Récemment j'ai eu une augmentation.(applaudissement ! SVP ). Ma question est : Vu que sur mon contrat d'embauche, il est écrit un un certain salaire, est-ce que mon boss, parce qu'il a plu pendant qu'il jouait au golf, peut me "supprimer" l'augmentation, et donc me faire revenir à mon ancien salaire ? Merci des infos