zebulon_

En fait, il est souvent plus simple de transformer 2 points quelconques saisis par l'utilisateur en points particuliers d'un scu local : son origine et la direction des x. Cela facilite le calcul d'autres points nécessaires à faire un dessin, sans s'embêter avec un angle.

Les produits vectoriels... j'avoue que j'ai séché ce cours... (et bien d'autres, mais ce n'est pas le sujet) Si je fais une application numérique, prenons par exemple : p1 : (1.0 1.0 0.0) p2 : (2.0 2.0 0.0) p3 : (0.0 2.0 0.0) ce qui me donne un zdir : (0.0 0.0 2.0) pour un point pt qui vaut, par exemple : (1.0 2.0 0.0) (trans pt 0 zdir) donne (1.0 2.0 0.0), alors que je m'attendais à avoir (0.707 0.707 0) Qu'est ce que j'ai loupé ? Amicalement Zebulon_ [Edité le 10/10/2007 par zebulon_]

Bonjour, il m'arrive souvent d'utiliser la commande _ucs pour me mettre dans un système de coordonnées qui m'arrange, puis faire ma bidouille lisp, puis revenir au système de coordonnées précédentes. (command "_ucs" "_3p" PT1 PT2 "") ... ... ... (command "_ucs" "_p") Alors plusieurs questions : - comment peut-on obtenir la même chose en vlisp ? Sans forcément donner de nom au scu courant ? - où peut bien être stockée la liste des scu précédents et comment taper dedans pour les redéfinir sans utiliser (command ...) ? - utiliser (vl-cmdf ...) à la place de (command ...), ça apporte quelque chose ? J'ai lu ceci avec intérêt et je constate que je ne suis pas le seul à qui ça file des boutons. Amicalement Zebulon_ [Edité le 8/10/2007 par zebulon_]

J'ai un problème d'affichage sur ta réponse (gile), ça me fait une grosse tâche noire. Maintenant, je n'ai plus de problème d'affichage, mais de compréhension. Ou alors il manque un bout, ou ça me dépasse. [Edité le 5/10/2007 par zebulon_]

C'est vrai, Bred était 2 minutes plus rapide parce que plus concis dans sa réponse. Tu vois Bred, on n'écoute que les bavards :D Amicalement Zebulon_

Je ne sais pas si c'est normalisé ? Ce qui est marrant, c'est que j'ai publié ce lisp pour avoir votre avis sur le vla-addLightMachinTruc et la plupart me parlent de l'application qui ne devait que l'illustrer ;) Mais si ça peut être utile, tant mieux ! Moi ça fait 15 ans que je m'en sers et, à l'époque j'avais créé la polyligne (et oui, il n'y avais pas encore de lwpolyline) avec entmake... Cela ressemblait à ça : (defun C:RB () (setq OLD_CMD (getvar "cmdecho")) (setvar "cmdecho" 0) (setq OLDOS (getvar "osmode")) (setvar "osmode" 0) (command "_UNDO" "_m") (initget 1) (setq PT1 (getpoint "\nPremier point :")) (initget 1) (setq PT2 (getpoint "\nDeuxième point :")) (initget 1) (setq D (getdist "\nEspace entre les symboles de reprise :")) (setq H (/ D 2)) (command "_LINE" PT1 PT2 "") (setq E (entlast)) (command "_UCS" "_E" E) (entdel E) (setq L (distance PT1 PT2)) (setq DEP 0) (entmake '( (0 . "POLYLINE"))) (while (< (+ DEP D H) L) (entmake (list (cons 0 "VERTEX") (cons 10 (trans (list DEP 0 0) 1 0)))) (entmake (list (cons 0 "VERTEX") (cons 10 (trans (list (+ DEP D) 0 0) 1 0)))) (entmake (list (cons 0 "VERTEX") (cons 10 (trans (list (+ DEP D (* H 0.25)) (/ H 2) 0) 1 0)))) (entmake (list (cons 0 "VERTEX") (cons 10 (trans (list (+ DEP D (* H 0.75)) (/ H -2) 0) 1 0)))) (entmake (list (cons 0 "VERTEX") (cons 10 (trans (list (+ DEP D H) 0 0) 1 0)))) (setq DEP (+ DEP D H)) ) (entmake (list (cons 0 "VERTEX") (cons 10 (trans (list L 0 0) 1 0)))) (entmake '( (0 . "SEQEND"))) (command "_UCS" "_P") (setvar "osmode" OLDOS) (setvar "cmdecho" OLD_CMD) ) et ça marchait bien aussi. Amicalement Zebulon_

Bonjour, l'alcool est à consommer avec modération. Par contre il n'y a pas de contrindication à utiliser la commande PROPMECA ou _MASSPROP pour obtenir (entre autre) le volume d'un solide. cela te donne quelque chose comme ça : et on peut même en extraire le résultat dans un fichier. Amicalement Zebulon_

c'est quelque chose que je ne fais jamais (ou rarement), parce que je préfère que chaque affectation de variable soit isolée des autres. Comme ça, quand je dois faire un copier/coller d'une partie de mon lisp pour m'en resservir ailleurs, je ne risque pas de couper au milieu d'un (setq ...) Une question de gout... ;) c'est effectivement une signature. Même si ça rallonge les noms de fonctions, cela diminue le risque d'avoir d'éventuels doublons. Merci à (gile) pour le vlax-invoke. Non, finalement, pas merci. Parce que je me suis cassé la tête à essayer de comprendre les safearray et tu m'annonces froidement que je me suis cassé la tête pour rien...Pff... ;) lili2006, entre bétonneux, faut bien s'entraider, non ? Amicalement Zebulon_

Cela fait 20 ans que je roule ma bosse dans les BE BA et il y a de tout. J'en connais qui travaillent en cm, d'autres en m et même un qui travaille en mm. Moi, je trouve que le plus "naturel" est de travailler en m, mais c'est une appréciation toute personnelle. le lisp regarde quelle est l'unité de travail du fichier. Si c'est le cm, la distance par défaut entre 2 cassures sera de 5 cm et la cassure fera 2.5x2.5 cm. Si cela ne convient pas, tu peux taper la lettre E au moment où le lisp t'invite à saisir le premier point et tu pourras saisir une autre distance entre 2 cassures, par exemple 20cm. Et la cassure fera 10x10. Amicalement Zebulon_ [Edité le 5/10/2007 par zebulon_]

Bonjour, le sujet c'est de créer, avec VLISP, une nouvelle lwpolyline. J'ai eu un peu de mal avec les safearray et sur le fait qu'il ne faut pas de coordonnées z dans les points à transmettre à vla-addLightWeightPolyline. Je livre à votre critique un petit exercice qui dessine une polyligne de "reprise de bétonnage" entre 2 points saisis par l'utilisateur et qui utilise vla-addLightWeightPolyline. (defun cs:LwPolyline (LISTPT LARGEUR / ACDOC SPACE TABLEAU MyLwPolyline) (setq LISTPT (mapcar '(lambda (x) (list (car x) (cadr x))) LISTPT)) ;; enlever les z pour la lwpolyline (setq ACDOC (vla-get-activedocument (vlax-get-acad-object))) (setq SPACE (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace ACDOC) (vla-get-ModelSpace ACDOC) ) ) ;; "transformer" les points en atomes avec append (setq LISTPT (apply 'append LISTPT)) ;; créer le tableau (setq TABLEAU (vlax-make-safearray vlax-vbDouble (cons 0 (- (length LISTPT) 1)) ) ) ;; remplir le tableau (vlax-safearray-fill TABLEAU LISTPT) ;; créer la polyline (setq MyLwPolyline (vla-addLightWeightPolyline SPACE TABLEAU)) ;; lui coller une épaisseur (vla-put-ConstantWidth MyLwPolyline LARGEUR) MyLwPolyline ) (defun cs:startundomark () (vla-StartUndoMark (vla-get-activedocument (vlax-get-acad-object))) ) (defun cs:endundomark () (vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object))) ) (defun C:RB ( / PT1 PT2 ANG L H DEP LISTPT P2 P3 P4) (cs:startundomark) (if (not RB_DIST) (cond ((= (getvar "INSUNITS") 4) (setq RB_DIST 50.0)) ;; mm ((= (getvar "INSUNITS") 5) (setq RB_DIST 5.0)) ;; cm ((= (getvar "INSUNITS") 14) (setq RB_DIST 0.5)) ;; dm ((= (getvar "INSUNITS") 6) (setq RB_DIST 0.05)) ;; m (T (setq RB_DIST 0.05)) ) ) (setq PT1 nil) (prompt (strcat "\nEspace entre les symboles de reprise : " (rtos RB_DIST 2 3))) (while (/= (type PT1) 'LIST) (initget 1 "Espace") (setq PT1 (getpoint "\nPremier point ou [Espace] : ")) (cond ((= PT1 "Espace") (setq RB_DIST (getdist "\nEspace entre les symboles de reprise : ")) ) ) ) (setq PT2 (getpoint PT1 "\nDeuxième point : ")) (setq ANG (angle PT1 PT2)) (setq L (distance PT1 PT2)) (setq H (/ RB_DIST 2)) (setq DEP 0) (setq LISTPT (list PT1)) (while (< (+ DEP RB_DIST H) L) (setq P2 (polar PT1 ANG RB_DIST)) (setq LISTPT (cons P2 LISTPT)) (setq P3 (polar P2 (+ ANG (atan 2)) (sqrt (/ (* 5 H H) 16)))) (setq LISTPT (cons P3 LISTPT)) (setq P4 (polar P3 (- ANG (atan 2)) (sqrt (/ (* 5 H H) 4)))) (setq LISTPT (cons P4 LISTPT)) (setq PT1 (polar P4 (+ ANG (atan 2)) (sqrt (/ (* 5 H H) 16)))) (setq LISTPT (cons PT1 LISTPT)) (setq DEP (+ DEP RB_DIST H)) ) (setq LISTPT (cons PT2 LISTPT)) (setq LISTPT (reverse LISTPT)) (setq LISTPT (mapcar '(lambda (x) (trans x 1 0)) LISTPT)) ;; coordonnées SCG (cs:LwPolyline LISTPT 0) (cs:endundomark) (princ) ) Amicalement Zebulon_

Bien vu Amicalement Zebulon_

Bonjour, Le but est de sélectionner les ellipses fermées. Contrairement aux cercles et aux arcs, qui sont 2 entités différentes, les ellipses et les arcs d'ellipses ont le même code dxf 0. Alors comment les différencier ? Si je regarde les codes dxf d'une ellipse : là, on se dit que les codes 41 et 42 seront utiles parce que pour qu'une ellipse soit complète il faut que 41 soit à 0 et 42 à 2pi. Faire une égalité entre le code 41 et 0, c'est facile. Mais une égalité entre le code 42 et 2pi ??? Comme chacun sait, pi est par définition un nombre infini. Jusqu'où faut-il aller après la virgule pour que l'égalité soit vrai ? J'ai essayé : (ssget '((0 . "ellipse") (41 . 0) (42 . 6.283185307))) a priori, avec 9 chiffres après la virgule ça marche. Mais est-ce que ça marchera à tous les coups, je ne sais pas ? Amicalement Zebulon_

Merci pour l'info. Parce que les InnerLoop, les OuterLoop et les EntourLoop, c'était un peu du chinois pour moi. Je vais regarder ça de plus près. Amicalement Zebulon_

Bonjour, quand je fais des hachures, j'utilise un bon vieux (command "-fhach" etc...). Maintenant que j'ai pris gout au vlisp, j'aimerais savoir si quelqu'un sait faire la même chose en vlisp ? J'ai trouvé ceci mais je ne comprend rien au Warning qui figure sur cette page. Est-ce qu'on peut faire des hachures avec vla-addhatch en donnant plusieurs objets ? ou en donnant un point ? Merci Amicalement Zebulon_

La variable SORTENTS étant enregistrée dans le dessin, c'est tout à fait possible qu'elle ait une valeur différente dans les fichiers où ça marche. Quant au fichier qui à l'air un peu corrompu peut être qu'une commande CONTROLE peut corriger quelque chose. En dernier recours, la commande RECUPERER pour récupérer le dessin et corriger les erreurs ? Ce qui peut marcher aussi pour récupérer un fichier un peu boiteux, c'est de l'enregistrer sous une version précédente et de le réouvrir. Après, il reste le cierge à Ste Rita, ou une intervention d'un Marabout ou de Gérard Majax ou quelque chose de similaire. Amicalement Zebulon_

Peut-être la variable SORTENTS qu'il conviendrait de mettre à 127 ? On trouve cette variable aussi dans ->options / Préfs utilisateurs / méthodes de tri des objets Amicalement Zebulon_

http://img523.imageshack.us/img523/3355/numriser0001ja4.jpg

moi, je suis à 40€/h et mes clients ne m'ont jamais dit que j'étais trop cher. Amicalement Zebulon_

Ce qui confirme les 50 à 55€/h, qui ont cours dans le domaine de l'infrastructure. Pour revenir à la différence entre une facture et une feuille de salaire, ce sont bien 2 choses différentes, mais il y a entre elles un lien plus ou moins arithmétique quand tu es à ton compte. Plus tu factures cher, plus ton salaire peut être élevé. Un calcul rapide montre que pour un freelance les charges sociales personnelles atteignent environ 20% des recettes et le résultat imposable correspond à environ 45 à 50 % des recettes. Ce qui est important à savoir, pour exercer des prestations intellectuelles (quel qu'elles soient) le capital de départ n'est pas nécessairement important, comme les achats et dotations aux amortissements sont peu importants (environ 5 à 7% des recettes). Ce qui représente le plus gros investissement, ce sont les achats de licences informatiques (Autocad ou autres ...). Prenons un exemple : tu es en entreprise individuelle (si tu es gérant d'Eurl ou de Sarl, les choses sont un peu différentes) Recettes : 60000 € Frais d'exploitation = 25% des recettes = -15000€ Charges sociales = 20% des recettes = -12000€ Taxes, divers = 5% des recettes = -3000€ Ce qui te donnes un revenu imposable BNC à 30000€ Abattements à 20% = -6000€ Net imposable 24000€ En supposant un taux d'imposition à 15% = -3600€ Il te reste net = 26400€ (soit 2200€ net par mois) Si tu as un taux horaire de 20€, il faut se demander combien d'heures tu dois faire pour avoir une recette de 60000€. Donc, pour gagner 2200€/mois il faut faire 3000 heures / an. Ce qui fait quand même 250 heures par mois sans prendre de congés. Poses toi la question : combien je veux gagner en combien de temps et fait le calcul inverse, cela te donneras ton taux horaire. Faut pas aller en dessous de 40€, je pense. Sinon c'est plus la peine d'être à ton compte. Amicalement Zebulon_ PS Les prix sont toujours HT. Tu n'as aucun intérêt à être exonéré de TVA, même si tu pouvais y prétendre en tant que micro-entreprise, comme tes clients sont des entreprises et pas des particuliers. [Edité le 4/9/2007 par zebulon_]

Bonjour, Rectificatif pour Maximilien : 120€/heure, je voulais dire que c'est bien facturé. Dans le domaine qui est le miens, un dessinateur est facturé (je dis bien facturé ;) ) environ 50 à 55 €/h en fonction de son expérience. Faut pas être fâché si tu peux facturer plus, au contraire. Non, pas pour moi. Quant à snp, 20€ c'est pas beaucoup. Amicalement Zebulon_

Bonjour Sechanbask, J'ai eu exactement le même genre de problème avec des blocs dynamiques (avec Autocad 2007) qui perdent leur propriétés dynamiques quand on les tourne et il semblerait que ce soucis soit lié aux unités. Lorsqu'il y a une différence entre l'unité du bloc (par exemple en mm) et l'unité du fichier de travail (par exemple en mètres) au moment de l'insertion du bloc dynamique, ce phénomène (bug ?) se produit, alors que si les unités sont homogènes cela ne se produit pas. :casstet: Donc, j'essaye d'avoir des blocs dynamiques définis en mètres, comme je travaille le plus souvent en mètres. Pour ton fichier existant, peut être que la solution serait de redéfinir le bloc dynamique pour qu'il soit dans la même unité que le dessin ? Un brin casse-pied cette histoire :( Amicalement Zebulon_

sans doute. Mais le portage salarial, cela veut dire qu'on est salarié de la société de portage. Il faut juste vérifier si le contrat de travail avec l'employeur actuel permet d'avoir un contrat de travail avec un autre employeur. D'autre part, la durée de travail totale est, me semble-t-il règlementée. Ce qu'il faut garder à l'esprit avec les société de portage, c'est qu'on est quand même à la limite de la légalité en cumulant autant de CDD que de missions chez ses clients. Et Le CDD est, légalement, limité à une seule reconduction avec un plafond de 18 mois. Que se passe-t-il ensuite ? La société doit te proposer un CDI ! Je le confirme, mais après c'est du travail quand même (comptabilité, cotisations sociales, déclarations aux diverses administrations, tva etc...). Alors, si c'est juste pour une opération ponctuelle, est-ce que cela vaut la peine ? Pour moi, le plus dur a été de trouver une assurance responsabilité civile professionnelle et décennale. Et dans mon domaine, sans assurance pas de travail... Amicalement Zebulon_

Non, c'est réservé à des travaux réalisés au domicile (ménage, repassage, garde d'enfant, petit jardinage ...) Amicalement Zebulon_

Je suis alsacien aussi (67 comme toi), et comme je me suis une fois fait tirer les oreilles ici , je voulais juste te prévenir. On pourra se boire une bière à l'occasion, entre alsaciens, qui n'aiment personne d'autre. ;) Pff, je vais encore me faire engueuler :cool: Amicalement Zebulon_

Bonjour, Il en a de ces idées, ton chargé d'affaire ;) Créer une entreprise, même micro, ça veut dire écrire des statuts et les déposer, annonce légale, payer la tva, faire une comptabilité, calculer des BIC, BNC pour les impôts, avoir une assurance décennale et une responsabilité civile professionnelle pour le boulot que tu factures etc ... Si c'est juste pour le dépanner sur une affaire, tu vas passer plus de temps dans les paperasses, enfin je pense. Cela vaut le coup si tu souhaites démissionner et te mettre à ton compte à 100%, mais sinon, si tu es salarié, il y a un truc simple (et tout à fait légal) qui s'appelle des heures sups. Je pense que c'est une meilleure solution : aucune paperasse pour toi. C'est le comptable de ta boite qui devra en faire un peu, mais c'est son boulot, non ? Du temps où j'étais salarié dans un grand bureau d'étude dont on taira le nom, les chargés d'affaires avait une autre combine. Ils proposaient aux dessinateurs de faire du boulot en dehors des heures légales, rémunéré par des notes de frais imputées sur les affaires en question. C'est doublement illégal, cela va sans dire, puisque ces sommes ne sont ni déclarées à l'URSSAF ni aux impôts sur le revenu. Il y avait même un de mes anciens collègues qui faisait des notes de frais alors qu'il n'avait pas de voiture ;) Amicalement Zebulon_