Encoretoutpetit

Sur le cul, vos salaires me laissent sur le cul. A croire que seuls les mal payés ont répondu. J'ai quitté mon boulot à 2000 euros/mois sur 12 mois après 17 ans d'ancienneté parce que mal payé (1736 sans la prime d'ancienneté). Aujourd'hui, pour le même travail chez les concurrents, je gagne 2500. Je ne suis pas un cas isolé puisque trois autres de mes anciens collègues ont fait la même progression en changeant de boite. Et là où je suis maintenant, j'ai le salaire le plus bas !!! Viendez donc par chez moi (Vendée pays de loire), il y a encore plein de postes à pourvoir dans le secteur menuiseries charpentes vérandas.

Salut les cadxpienpiennes. Cadxp m'a beaucoup aidé pour Autocad, y-a t'il parmi vous des utilisateurs de Cadwork qui aimeraient voir la naissance d'un forum dédié à ce logiciel ? Bonne pause café. ps : j'ai déjà abordé ce sujet dans le forum autocad 2007, mais pas de réponse, je tente ici.

Oup's Désolé pour le jaune les gars, j'ai fait gourance !!! Moi qui aime bien la discrétion !!!

Salut Si service ça peut te rendre, il y a quelques temps j'ai écrit un truc semblable en vba, mais seulement en 2 dimensions, l'adaptation pour la 3ème dimension ne devrait pas poser trop de souci. Voici un extrait : [surligneur]Public Sub SélectionIntSablière() On Error Resume Next ThisDrawing.Utility.GetEntity returnObj, "Sélectionner une polyligne." If returnObj.EntityName <> "AcDbPolyline" Then MsgBox "Il faut sélectionner une polyligne." Exit Sub Else If ChevronTubulaire = True Then 'décalage de 44 mm vers l'int pour position des chevrons returnObjOffset44 = returnObj.Offset(-44) 'transformation de la variable Variant en variable polyligne Set returnObjDécalé = returnObjOffset44(0) retCoord = returnObjDécalé.Coordinates Else retCoord = returnObj.Coordinates End If segment = 0 k = LBound(retCoord) l = UBound(retCoord) nbr_of_vertices = ((l - k) \ 2) + 1 ' Determine the number of segments in the polyline. If returnObj.Closed Then nbr_of_segments = nbr_of_vertices Else nbr_of_segments = nbr_of_vertices - 1 End If MsgBox "La polyligne sélectionnée est composée de " & nbr_of_segments & " segments." 'suppression de la polyligne décalée returnObjDécalé.Delete End If End Sub [/surligneur] Dans les déclarations, j'avais mis ça : [surligneur]Dim returnObj As AcadObject Dim returnObjOffset44 As Variant 'pour tubulaire Dim returnObjDécalé As AcadObject 'pour tubulaire Dim retCoord As Variant Dim k, l As Integer Dim nbr_of_segments As Long Dim nbr_of_vertices As Long Dim segment As Long [/surligneur] En espérant ne pas être trop hors sujet (ce ne serait pas la première fois !!!)

Salut à tous. Désolé Laurent_CAMPEDEL, ce n'est pas une réponse que je t'apporte, mais je profite de ton sujet qui est apparemment le seul faisant référence à Cadwork. J'ai changé de boulot (yes !), et pas d'Autocad (snif) dans ma nouvelle boite, seul Cadwork est utilisé. Bien sur je ne connais pas ce logiciel, mais ma première impression : bluffant ! En fouillant un peu, il est possible avec Cadwork d'exporter en dxf et en dwg (modèle R13, R14 et 2000), je n'ai pas (encore ?) trouvé toutes les importations possibles. Cadxp m'a beaucoup aidé et apporté énormément de chose pour Autocad, y-a t'il parmi vous des utilisateurs de Cadwork qui aimeraient voir la naissance d'un forum dédié à ce logiciel ? Bonne froide (il neige sur la Vendée en ce moment) journée.

Salut. Sans répondre directement à ta demande mais presque (ou alors je n'ai rien compris), j'ai tapé il y a quelque temps quelques lignes de code vba pour aller chercher des informations dans un fichier excel. Je te les livre ci-dessous, peut-être cela pourra t'aider. Public Sub SérénadeEpine() Workbooks.Open ("C:\Documents and Settings\moi\Mes documents\fichierexcel.xls") Dim Chevron(0 To 35) As AcadLine Dim PtA(0 To 2) As Double Dim PtG1(0 To 2) As Double For I = 0 To 35 PtA(0) = Cells(2 + I, 33).Value PtA(1) = Cells(2 + I, 34).Value PtG1(0) = Cells(2 + I, 28).Value PtG1(1) = Cells(2 + I, 29).Value Set Chevron(I) = ThisDrawing.ModelSpace.AddLine(PtA, PtG1) Set Chevron(I) = Nothing Next I Workbooks.Close 'Ne pas écrire le chemin du fichier à fermer End Sub

Dommage que les projectiles sont totalement inoffensifs !!! Et oui, parmi mes collègues, y'en a que je n'aime pas !!!

Salut Je retrouve ce même problème dès que dans un onglet présentation je demande une ou plusieurs fenêtres en lignes cachées ou en rendu. Je ne peux alors ni enregistrer ni imprimer. Comme Pouek, je ferme le dessin et je peux alors enregistrer ce dernier. Je travaille avec la version 2006. Bonne journée.

Bonjour Ce n'est peut-être pas la réponse que tu attendais, mais à tout hasard.. Sur mon poste le fichier aide que tu demandes ce trouve ici : mk:@MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_dev.chm::/1acad_dev.html Si ça peux t'aider... @+

Bonjour, Quelques jours pour tester (il me faut bien ça, je découvre le lisp) et voici mes résultats : D’abord un fichier explorateur.lsp que j’ai placé dans C:\Documents and Settings\moi\Application Data\Autodesk\AutoCAD 2006\R16.2\fra\Support Le fichier explorateur.lsp (merci Patrick_35) (setq she (vlax-create-object "shell.application")) (vlax-invoke she 'explore "C:\\") (vlax-release-object she) Le bouton : J’ai tenté : ^C^C(autoload "explorateur" '("explorateur"));explorateur Pas de souci, ça ouvre, ça ouvre même beaucoup, sans jamais s’arrêter, une boucle quoi. Nouvelle tentative avec : ^C^C(if (not c:explorateur) (load "explorateur")) explorateur Super, pile ce que je souhaitais. Merci Patrick Ta solution fonctionne parfaitement, mais comme tu l’écris, elle ouvre le répertoire par défaut d’Autocad, ce n’est pas ce que je cherchais mais je la trouve très utile donc je la garde pour un autre bouton, merci encore. Merci Patrick_35 Je n’ai pas réussi la solution visual basic, vba ne reconnaît pas (ou je n’ai pas su lui faire reconnaître) Folder. Bonne journée à tous.

Merci Patrick Et par la même occasion je (re)découvre le forum Trucs et astuces. Bon week-end.

Salut à tous. Très souvent j'ai besoin d'ouvrir l'explorateur windows pour contrôler un dossier nommé A. Très souvent j'ai besoin d'ouvrir l'explorateur windows pour contrôler un dossier nommé B. Puis très souvent, j'ai aussi besoin d'ouvrir l'explorateur windows pour contrôler un dossier nommé C. Je sais, c'est pas très long à faire, Windows+E, dérouler l'arborescence pour enfin arriver au dossier voulu. J'ai même créé quelques raccourcis sur mon bureau que j'ai ensuite glissé dans la barre des tâches. Mais j'aime pas ??? Ce que j'aimerai ? Moins d'oignons dans tous les plats bien sûr mais aussi pouvoir associer ces raccourcis à une barre d'outils Autocad. Je poste ici en VBA car ce dernier ne m'est pas totalement (quoique) inconnu, mais je ne suis pas allergique à d'autres types de solutions. Mais n'essayer pas de remplacer les oignons par de l'ail ou de l'échalotte, c'est tout autant affreusement dégueu... Merci à vous tous.

Salut à tous. Depuis avril j'ai laissé tomber ma vieille casio fx82d et l'ai remplacé par une fx92 collège 2D, elle est mieux mais ça n'a rien changé quand aux résultats renvoyés par la calculatrice d'autocad !!! Je m'absente quelques jours (non, pas encore les congés) et reviens faire un tour sur le forum avant les vacances. A tous bonne vacances et restez au frais près du ventilo.

Bonjour cadxpienpiennes. J'ai tenté le code code ci-dessous, il fonctionne très bien (à mon gout), mais pour ça j'ai été obligé de rajouter "(0)" dans les 4 lignes de code ou j'efface les LigneUn, LigneDeux, LigneTrois et LignesQuatre. Si ce (0) correspond à un tableau, pourquoi la valeur 0 alors ? Si quelqu'un peu éclairer ma comprenette (petite machine à comprendre située la-haut juste sous les cheveux !!!) Merci d'avance. Public Sub Cheneau() 'L 'opérateur sélectionne la polyligne correspondant à l'intérieur du chêneau, 'la macro construit les lignes extérieures du chêneau classique ou du coffre. Dim MaSelection As AcadSelectionSet Dim I As Integer Dim j As Integer Dim TypeChêneau As Integer Dim BonCote As Integer Dim LigneUn(20) As Variant Dim LigneDeux(20) As Variant Dim LigneTrois(20) As Variant Dim LigneQuatre(20) As Variant 'Création du jeu de sélection Set MaSelection = ThisDrawing.SelectionSets.Add("A") 'Choix des entites à l'écran Call MaSelection.SelectOnScreen TypeChêneau = MsgBox("Sagit-il du chêneau classique ?", vbYesNo + vbCritical + vbDefaultButton1, "Type de chêneau") If TypeChêneau = vbYes Then For I = 1 To MaSelection.Count LigneUn(I - 1) = MaSelection.Item(I - 1).Offset(43.5) LigneDeux(I - 1) = MaSelection.Item(I - 1).Offset(52.5) LigneTrois(I - 1) = MaSelection.Item(I - 1).Offset(110) LigneQuatre(I - 1) = MaSelection.Item(I - 1).Offset(217.8) Next I Else For I = 1 To MaSelection.Count LigneUn(I - 1) = MaSelection.Item(I - 1).Offset(52.5) LigneDeux(I - 1) = MaSelection.Item(I - 1).Offset(110) LigneTrois(I - 1) = MaSelection.Item(I - 1).Offset(278) LigneQuatre(I - 1) = MaSelection.Item(I - 1).Offset(336) Next I End If ThisDrawing.Regen acActiveViewport 'pour visualiser le dessin avant interrogation. BonCote = MsgBox("Le chêneau est-il dessiné du bon côté ?", vbYesNo + vbInformation + vbDefaultButton1, "Validation") If BonCote = vbNo Then For I = 1 To MaSelection.Count LigneUn(I - 1)(0).Erase LigneDeux(I - 1)(0).Erase LigneTrois(I - 1)(0).Erase LigneQuatre(I - 1)(0).Erase If TypeChêneau = vbYes Then For j = 1 To MaSelection.Count LigneUn(I - 1) = MaSelection.Item(I - 1).Offset(-43.5) LigneDeux(I - 1) = MaSelection.Item(I - 1).Offset(-52.5) LigneTrois(I - 1) = MaSelection.Item(I - 1).Offset(-110) LigneQuatre(I - 1) = MaSelection.Item(I - 1).Offset(-217.8) Next j Else For j = 1 To MaSelection.Count LigneUn(I - 1) = MaSelection.Item(I - 1).Offset(-52.5) LigneDeux(I - 1) = MaSelection.Item(I - 1).Offset(-110) LigneTrois(I - 1) = MaSelection.Item(I - 1).Offset(-278) LigneQuatre(I - 1) = MaSelection.Item(I - 1).Offset(-336) Next j End If Next I End If 'Pour supprimer le jeu de sélection de la mémoire ThisDrawing.SelectionSets.Item("A").Delete End Sub

Salut vous tous. Je saisis sur la calculatrice d'autocad : 4286.1 - 4276.2 elle me renvoie : 9.9000000000005 Je saisis : 1286.1 - 1276.2 elle me renvoie : 9.8999999999999 Je saisis : 1000.8 - 990.9 elle me renvoie : 9.9 :) J'ai bien sûr cherché pourquoi, voici la réponse : 9,9 s'écrit en binaire _1001,111001100110011001100110011001100110011001100......._ égalité exacte à condition de mettre une infinité de 1100 en machine on est obligé d'arrondir (la mémoire de ton ordinateur n'est pas infinie) en arrondissant en dessous avec 0 chiffre, 1 chiffre, 2 chiffres .... _1001_ = 9 _1001,1_=9,5 _1001,11_=9,875 _1001,111_=9,875 _1001,1110_=9,875 _1001,11100_=9,875 _1001,111001_=9,890625 _1001,1110011_=9.8984375 _1001,11100110_=9.8984375 _1001,111001100_=9.8984375 _1001,1110011001_=9.8994140625 _1001,11100110011_=9.89990234375 _1001,111001100110_=9.89990234375 _1001,1110011001100_=9.89990234375 _1001,11100110011001_=9.89996337890625 _1001,111001100110011_=9.899993896484375 _1001,1110011001100110_=9.899993896484375 _1001,11100110011001100_=9.899993896484375 _1001,111001100110011001_=9.899997711181640625 _1001,1110011001100110011_=9.8999996185302734375 _1001,1110011001100110011_0=9.8999996185302734375 _1001,1110011001100110011_00=9.8999996185302734375 _1001,1110011001100110011001_=9.8999998569488525390625 _1001,11100110011001100110011_=9.89999997615814208984375 _1001,111001100110011001100110_=9.89999997615814208984375 _1001,1110011001100110011001100_=9.89999997615814208984375 et en arrondissant au dessus : _1010_ =10 _1010,0_=10 _1010,00_=10 _1010,000_=10 _1001,1111_=9.9375 _1001,11101_=9.90625 _1001,111010_=9.90625 _1001,1110100_=9.90625 _1001,11100111_=9.90234375 _1001,111001101_=9.900390625 _1001,1110011010_=9.900390625 _1001,11100110100_=9.900390625 _1001,111001100111_=9.900146484375 _1001,1110011001101_=9.9000244140625 _1001,11100110011010_=9.9000244140625 _1001,111001100110100_=9.9000244140625 _1001,1110011001100111_=9.9000091552734375 _1001,11100110011001101_=9.90000152587890625 _1001,111001100110011010_=9.90000152587890625 _1001,1110011001100110100_=9.90000152587890625 _1001,1110011001100110011_1=9.90000057220458984375 _1001,1110011001100110011_01=9.900000095367431640625 _1001,1110011001100110011010_=9.900000095367431640625 _1001,11100110011001100110100_=9.900000095367431640625 _1001,111001100110011001100111_=9.900000035762786865234375 _1001,1110011001100110011001101_=9.9000000059604644775390625 etc etc et tu vois que selon le nombre de chiffres que tu retiens il peut y avoir quelque chose de non nul derrière 9,9. remarques : 1) un nombre binaire avec un nombre fini de chiffes après la virgule, s'écrit obligatoirement en décimal avec un nombre fini de chiffres mais un nombre décimal avec un nombre fini de chiffres ne s'écrit pas forcément en binaire avec un nombre fini de chiffres. 2) il faut distinguer 2 choses - le nombre de chiffres utilisés pour écrire le nombre en binaire - le nombre de chiffres utilisés pour écrire le nombre en décimal Bon, moi j'aimerai bien que la calculatrice d'autocad me donne pour les trois exemples cités la seule et unique bonne réponse c'est à dire 9.9. Ma Casio fx82b (21 ans déjà) sait bien le faire !!! Quelqu'un saura-t-il me dire quelle variable (si c'est ça) il faut modifier ? Merci davance.

Salut J'avais le même problème, mais je confondais le AddMtext et le addText qui ne fonctionnent pas tous les deux tout à fait pareillement. Ci-dessous un extrait d'une procédure qui fonctionne correctement : Dim textClient As AcadText Dim Client As String Dim Nom As String Dim InsertionClient(0 To 2) As Double, AlignementClient(0 To 2) As Double Dim HtClient As Double Dim pointClient As AcadPoint Dim Présentation As AcadLayout Dim NomPrésentation As String NomPrésentation = "Expédition" On Error Resume Next Set Présentation = ThisDrawing.Layouts(NomPrésentation) If Présentation Is Nothing Then MsgBox "La présentation " & NomPrésentation & " n'éxiste pas, ouvrez le bon fichier gabarit pour utiliser cette macro" Else ThisDrawing.ActiveLayout = Présentation UserForm1.Show Nom = UserForm1.TextBox1.Value If Nom = "" Then Exit Sub Client = "Client : " + Nom 'Client = "Client : " + InputBox(" Nom du client ? ", "Réponds à la question") InsertionClient(0) = 142: InsertionClient(1) = 260: InsertionClient(2) = 0 AlignementClient(0) = 142: AlignementClient(1) = 260: AlignementClient(2) = 0 HtClient = 4 Set textClient = ThisDrawing.PaperSpace.AddText(Client, InsertionClient, HtClient) Set pointClient = ThisDrawing.PaperSpace.AddPoint(AlignementClient) textClient.Alignment = acAlignmentMiddleCenter textClient.TextAlignmentPoint = AlignementClient pointClient.Delete Si ça peux te servir !!!

Merci à vous nazemrap, Tramber et Winfield. Paranthèse zéro parenthèse Parenthèse zéro parenthèse Parenthèse zéro parenthèse Parenthèse zéro parenthèse J'étais fatigué vendredi, je n'ai pas su recopier la 2ème ligne fournie par nazemrap dans sa totalité, et mon tableau retour coordonnées restait désespérément vide. Pour Tramber, maintenant que ça marche, j'ai fait plusieurs essais (plein en fait), et la polyligne renvoyée est pour l'instant toujours dans le même sens que l'originale. Je n'ai pas déclaré la polyligne en tant que AcadLWPolyline mais comme AcadObject, peut-être que ? Voici le code : Public Sub toto() Dim returnObj As AcadObject Dim returnObjOffset44 As Variant Dim returnObjDécalé As AcadObject On Error Resume Next ThisDrawing.Utility.GetEntity returnObj, "Sélectionner une polyligne." If returnObj.EntityName <> "AcDbPolyline" Then MsgBox "Il faut sélectionner une polyligne." Exit Sub Else returnObjOffset44 = returnObj.Offset(-44) Set returnObjDécalé = returnObjOffset44(0) retCoord = returnObjDécalé.Coordinates End If End Sub Encore merci et à +

Merci nazemrap Mais moi bien porter mon nom car moi pas réussi à faire. Grrrr, pourtant l'espion m'affiche bien les nouvelles coordonnées mais je n'arrive pas à les récupérer. Promis, je prends le temps de chercher un peu plus ce week-end. Bon week.

Bonjour aux cadxpienpiennes. Je sélectionne à l’écran une polyligne (fermée ou pas), je décale cet objet d’une valeur « x » à l’aide de la méthode « offset » et j’aimerai récupérer les coordonnées de ce nouvel objet (est-ce vraiment un objet ?), « coordinates » ne me renvoie rien. Et ça m’énerve. Merci d’avance.

Merci à vous deux les gars, Je m'en vais donc consulter l'aide d'autocad y chercher quelques renseignements sur les API et ainsi peut-être pouvoir inclure quelques programmes C++ dans du code VBA. Merci encore...

Bonjour à tous les CadXpiens Peut-on inclure des programmes C++ dans un programme en VBA ? Bien sûr, si la réponse est négative, seul le non me suffira, mais si elle est positive, une petite explication supplémentaire sera la bienvenue. @ plus.

Bonjour. Public Sub Toto() Workbooks.Open ("C:\Documents and Settings\Moi\Mes documents\monfichier.xls") patati patata Workbooks.Close End Sub Ca marche bien chez moi comme ça, pourquoi pas chez toi. Salut.

Bonjour à toi Winfield (et bonjour à tous les CadXpiens CadXpiennes). Tu galères peut-être mais manifestement tu t'en sors très bien, et par la même occasion tu m'en sors aussi, ... avant de retomber dans une autre galère !!! Merci beaucoup pour ton aide, et sûrement à bientôt sur ce forum.

Bonjours à tous. Le sujet ne veut rien dire, sauf peut-être remonter quelques lignes dans le tableau du forum pour être mieux vue et ainsi peut-être avoir une réponse... J'écrivais il y a quelque temps : "Je me lance dans la programmation VBA pour Autocad et je galère pour afficher à l'écran une présentation sur laquelle je souhaite y écrire du texte. Je maitrise le texte (enfin je crois !!!) mais pas le choix de la présentation, en effet, "ThisDrawing.ActiveSpace = acPaperSpace" m'affiche la dernière présentation active de l'espace papier, mais ce n'est pas forcément de celle-ci que j'ai besoin. Si quelqu'un pouvait m'aider... Merci d'avance." Aujourd'hui je me répète, si quelqu'un pouvait m'aider... Merci d'avance."

Bonjours à tous. Je me lance dans la programmation VBA pour Autocad et je galère pour afficher à l'écran une présentation sur laquelle je souhaite y écrire du texte. Je maitrise le texte (enfin je crois !!!) mais pas le choix de la présentation, en effet, "ThisDrawing.ActiveSpace = acPaperSpace" m'affiche la dernière présentation active de l'espace papier, mais ce n'est pas forcément de celle-ci que j'ai besoin. Si quelqu'un pouvait m'aider... Merci d'avance.