jeanmi66

Bonjour, je suis nouveau sur Mensura. Je viens d'autocad et covadis. Je voudrais savoir où je peux trouver le fichier des raccourcis claviers mensura pour que je puisse l'éditer de façon plus perso. Merci d'avance

Merci à Nabil_decm ! Je débute sur CATIA, j'en ai bien besoin ! Mon mail : jean-michel.dominguez@enstimac.fr Merci encore

Merci Giles, merci à tous, c'est parfait. :D :D :D

Ok, alors je vais te présenter comment est disposé mon fichier. J'ai juste changé tout ce qui était GP etc... pour l'adapter au clavier et raccourcis existant de mon bureau. Tel que, la commande BCD fonctionne (routine BONUSCAD) mais pas la tienne GILE. Si je supprime du fichier la routine de BONUSCAD, la tienne GILE fonctionne. J'en déduis qu'il y a conflit entre les deux. Moi, j'ai besoin de pouvoir accrocher barycentre ET centre d'inertie. Dis-moi où est mon erreur stp ? Merci... ;;================================================================;; ;;; Donne le barycentre d'une polyligne en info bulle (Point d'équilibre des poids) (defun C:BC ( / pol cdg) (setq pol (car (entsel "\n pointez une polyligne"))) (if (setq cdg (BC pol)) (alert (strcat "Barycentre : " (rtos (car cdg) 2 3) " , " (rtos (cadr cdg) 2 3))) ) ) (defun BC (pol / ent lp) (if (and pol (= "LWPOLYLINE" (cdr (assoc 0 (setq ent (entget pol)))))) (setq lp (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x))) ent))) (print "pas une polyligne !!! ") ) (if lp (List (/ (apply '+ (mapcar 'car lp)) (length lp)) (/ (apply '+ (mapcar 'cadr lp)) (length lp)) ) ) ) ;;================================================================;; ;;; Accroche le barycentre d'une polyligne puis propose 3 solutions ((defun C:BCD ( / js ent key) (while (null (setq js (ssget "_:S" '((0 . "LWPOLYLINE")))))) (if js (progn (setq ent (ssname js 0)) (initget "Deplacer Rotation Polyligne") (setq key (getkword "\n[Deplacer/Rotation/Polyligne]< Deplacer >: ")) (cond ((eq key "Polyligne") (command "_.pline" "_none" (BC ent) (while (not (zerop (getvar "cmdactive"))) (command pause)))) ((eq key "Rotation") (command "_.rotate" ent "" (BC ent) pause)) (T (command "_move" ent "" (BC ent) pause)) ) ) ) )) ;;================================================================;; ;;================================================================;; ;;; Algorythmes de calculs pour accrocher les centres d'inertie ;;================================================================;; ;;================================================================;; ;; ALGEB-AREA ;; Retourne l'aire algébrique du triangle défini par 3 points 2D ;; l'aire est négative si les points sont en sens horaire (defun algeb-area (p1 p2 p3) (/ (- (* (- (car p2) (car p1)) (- (cadr p3) (cadr p1)) ) (* (- (car p3) (car p1)) (- (cadr p2) (cadr p1)) ) ) 2.0 ) ) ;; TRIANGLE-CENTROID ;; Retourne le centre de gravité d'un trinagle défini par 3 points (defun triangle-centroid (p1 p2 p3) (mapcar '(lambda (x1 x2 x3) (/ (+ x1 x2 x3) 3.0) ) p1 p2 p3 ) ) ;; POLYARC-CENTROID ;; Retourne une liste dont le premier élément est le centre de gravité du polyarc ;; et le second son aire algébrique (négative si la courbure est en sens horaire) ;; ;; Arguments ;; bu : la courbure du polyarc (bulge) ;; p1 : le sommet de départ ;; p2 : le sommet de fin (defun polyarc-centroid (bu p1 p2 / ang rad cen area dist cg) (setq ang (* 2 (atan bu)) rad (/ (distance p1 p2) (* 2 (sin ang)) ) cen (polar p1 (+ (angle p1 p2) (- (/ pi 2) ang)) rad ) area (/ (* rad rad (- (* 2 ang) (sin (* 2 ang)))) 2.0) dist (/ (expt (distance p1 p2) 3) (* 12 area)) cg (polar cen (- (angle p1 p2) (/ pi 2)) dist ) ) (list cg area) ) ;; PLINE-CENTROID ;; Retourne le centre de gravité d'une polyligne (coordonnées SCG) ;; ;; Argument ;; pl : nom d'entité de la polyligne (ename) (defun pline-centroid (pl / elst lst tot cen p0 p-c cen area) (setq elst (entget pl)) (while (setq elst (member (assoc 10 elst) elst)) (setq lst (cons (cons (cdar elst) (cdr (assoc 42 elst))) lst) elst (cdr elst) ) ) (setq lst (reverse lst) tot 0.0 cen '(0.0 0.0) p0 (caar lst) ) (if (/= 0 (cdar lst)) (setq p-c (polyarc-centroid (cdar lst) p0 (caadr lst)) cen (mapcar '(lambda (x) (* x (cadr p-c))) (car p-c)) tot (cadr p-c) ) ) (setq lst (cdr lst)) (if (equal (car (last lst)) p0 1e-9) (setq lst (reverse (cdr (reverse lst)))) ) (while (cadr lst) (setq area (algeb-area p0 (caar lst) (caadr lst)) cen (mapcar '(lambda (x1 x2) (+ x1 (* x2 area))) cen (triangle-centroid p0 (caar lst) (caadr lst)) ) tot (+ area tot) ) (if (/= 0 (cdar lst)) (setq p-c (polyarc-centroid (cdar lst) (caar lst) (caadr lst)) cen (mapcar '(lambda (x1 x2) (+ x1 (* x2 (cadr p-c)))) cen (car p-c) ) tot (+ tot (cadr p-c)) ) ) (setq lst (cdr lst)) ) (if (/= 0 (cdar lst)) (setq p-c (polyarc-centroid (cdar lst) (caar lst) p0) cen (mapcar '(lambda (x1 x2) (+ x1 (* x2 (cadr p-c)))) cen (car p-c) ) tot (+ tot (cadr p-c)) ) ) (trans (list (/ (car cen) tot) (/ (cadr cen) tot) (cdr (assoc 38 (entget pl))) ) pl 0 ) ) ;;================================================================;; ;;; Accroche le centre d'inertie d'une polyligne puis propose 3 solutions (defun C:CGR (/ js ent key pt) (while (null (setq js (ssget "_:S" '((0 . "LWPOLYLINE")))))) (if js (progn (setq ent (ssname js 0)) (initget "Deplacer Rotation Polyligne") (setq key (getkword "\n[Deplacer/Rotation/Polyligne]< Deplacer >: ")) (cond ((eq key "Polyligne") (command "_.pline" "_none" (trans (pline-centroid ent) 0 1) (while (not (zerop (getvar "cmdactive"))) (command pause)) ) ) ((eq key "Rotation") (command "_.rotate" ent "" (trans (pline-centroid ent) 0 1) pause ) ) (T (command "_move" ent "" (trans (pline-centroid ent) 0 1) pause ) ) ) ) ) )

Ok Gile, ça marche à merveille ! Merci de vos explicaions à tous ! Juste une petite dernière chose : J'ai compris et réussi à adapté la routine de Bonuscad de la réponse 2 Si j'essaie de mettre les deux routines ensembles, je parle de la dernière de Gile qu'il a parfaitement adapté, à celle de Bonuscad dans la réponse 2, il y a un conflit et celle de Bonuscad n'est pas reconnu. Je voudrais savoir ce que je dois changer dans celle de Bonnuscad, de sa réponse 2, pour qu'elle marche aussi ? Merci encore

Petit soucis Gile, j'arrive pas à organiser ta routine: Je prends la grosse routine de ton message sur lequel tu renvoi, le 13/09 à 00:27. Ensuite, tu a écris l'exemple avec PT-CEN. Mais ton message suivant le même jour à 09:46, tu ré-écris une petite routine qui, je pense, vient remplacer toute la partie PLINE-CENTROID de la grosse routine, c'est à dire jusqu'à la fin de celle-ci. Ensuite, on peut ré-utiliser le même PT-CEN pour appeler tout ça. J'ai bon là, ou je suis dans la gadoue ??? :exclam: Parceque là, ça marche pas !!! Merci [Edité le 6/2/2008 par jeanmi66]

Merci Gile ! Je trouve ça très important, tu as raison de le notifier !!!!!!! Merci pour ta routine de centroïd, je vais la mettre en place !!!!! :D

BONUSCAD, je ne comprend pas comment faire fonctionner ta routine. Je l'ai rajouté à la suite de mon lisp qui contient plein d'autres routines. Comment faire ensuite ?

Heuu, je crois qu'il y a une erreur dans la routine... voici celle qui marche... ;;================================================================;; ;;; Donne le centre de gravité d'une polyligne (defun C:GP ( / pol cdg) (setq pol (car (entsel "\n pointez une polyligne"))) (if (setq cdg (gp pol)) (alert (strcat "centre de gravité : " (rtos (car cdg) 2 3) " , " (rtos (cadr cdg) 2 3))) ) ) (defun gp (pol / ent lp) (if (and pol (= "LWPOLYLINE" (cdr (assoc 0 (setq ent (entget pol)))))) (setq lp (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x))) ent))) (print "pas une polyligne !!! ") ) (if lp (List (/ (apply '+ (mapcar 'car lp)) (length lp)) (/ (apply '+ (mapcar 'cadr lp)) (length lp)) ) ) )

Bonjour, j'ai récupéré sur ce même site une petite routine qui donne le centre de gravité d'une polyligne. Quand on clique la polyligne, un message apparait donnant ces coordonnées. Serait-il possible de lier cette routine à une fonction DEPLACER, ROTATION ou début d'une POLYLIGNE 2D ? Si oui, voyez-vous comment faire, moi j'y connais rien en LISP !? Voici la routine en question... Merci... ;;================================================================;; ;;; Donne le centre de gravité d'une polyligne (defun C:GP ( / pol cdg) (setq pol (car (entsel "\n pointez une polyligne"))) (if (setq cdg (cdgpol pol)) (alert (strcat "centre de gravité : " (rtos (car cdg) 2 3) " , " (rtos (cadr cdg) 2 3))) ) ) (defun gp (pol / ent lp) (if (and pol (= "LWPOLYLINE" (cdr (assoc 0 (setq ent (entget pol)))))) (setq lp (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x))) ent))) (print "pas une polyligne !!! ") ) (if lp (List (/ (apply '+ (mapcar 'car lp)) (length lp)) (/ (apply '+ (mapcar 'cadr lp)) (length lp)) ) ) )

Bonjour à tous ! j'ai un besoin unregent de me former à CATIA. Je suis étudiant à l'école des Mines d'albi. Je désirai obtenir CATIA version STUDENT pour travailler chez moi en vue d'un job qu'on m'a proposé pour après l'école. Je suis donc aller voir le site 3DS campus qui renvoie sur le site DASSAULT. J'ai donné la copie de ma carte étudiant pour justifier mon statut, rempli les formulaires...etc Ils m'ont fait télécharger un petit exe qui donne un TARGET ID... mais tout cela par erreur ! J'ai reçu hier un mail me disant qu'ils auraient dû me refuser et ne peuvent pas m'autoriser à télécharger car l'école des Mines ne figure pas dans leur liste d'écoles sélectionnées. J'ai le moral à 0, je suis mal barré ! Quelqu'un pourrait-il m'aider ? Quelqu'un aurait-il un fichier ISO des CD s'il y en a, ou pourrait-on m'envoyer CATIA ? Je sais que c'est pas très réglo mais je sais pas comment faire par voie légale, j'ai tout essayé ! SVP aidez-moi :( Merci

Ok, je vais voir avec bonna sabla. On veut pas sous-traiter, c'est une sorte de défi pour nous, on veut créer une nouvelle équipe qui travaillera dessus dans le cabinet. Donc, faut qu'on apprenne. On a l'occas avec ce lotissement d'un type qui n'est pas trop pressé pour une fois, alors on en profite pour apprendre. Merci, si tu as des images ou des dessins de comment le présenter, ce que ça donne en rendu, fait moi signe. A+

Bonjour, je suis géomètre. J'ai un lotissement "écologique" à réaliser. Pourriez-vous me conseiller des solutions d'aménagement ou des produits qui aiderait à concevoir ce type de lotissement. Je parle pas des panneaux solaires, des récupérateurs d'eau, ou de puits d'infiltration : tout ceci est déjà intégré. Mais je parle par exemple de bitumes particuliers pour la voie (des chaussées réservoir, ou des cellules de récupération des eaux pluviales), d'espaces verts particuliers (j'ai vu ça sur un parking, les places étaient engazonnées mais recouvertes d'un espèce de grillage en nid d'abeille qui permet à l'eau de s'infiltrer et d'avoir de la verdure en même temps sur un endroit qui devrait être bétonné), ou encore des bassins de rétention avec des infiltrations spéciales. Je dis peut-être n'importe quoi mais je connais pas encore toutes les solutions. Merci d'avance

Salut, tu sélectionne tout, tu vas dans les propriétés et tu mets le champs ELEVATION à l'altitude que tu veux (ex: 0) et toutes les couches seront à l'altitude choisie A+

Quelle BUSE que je suis !!!! Si je lui donne pas le chemin, évidemment, ça peut pas marcher !!! Merci OLI553, c'est bon, ça marche !!!! :D

Bonjour, je viens de télécharger BONUSCAD, menu d'aide au dessin sur AutoCad, téléchargeable sur ce site. J'ai bien chargé le menu mais les fonctions ne marchent pas ! Je me suis donc demandé s'il fallait pas aussi faire un chargement de tous les lisp du répertoire. Mais si tel est le cas, il y en a beaucoup à faire charger à chaque démarrage, ni aurait-il pas 1 seul lisp les regroupant toutes ? Merci d'avance PS: j'ai chargé le *.mnu sachant qu'il y a un *.mnc et *.mns. J'ai chargé le *.mns, ça n'a rien fait non plus [Edité le 27/7/2007 par jeanmi66]

Ok, merci à Thierry et Scorpinou !!! A+

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii Haaaaaaaaaaaaaaaaaaa !!! Ca marche à présent, bravo DNALOR ! Mais encore une question: pourquoi dis-tu qu'il vaut mieux utiliser le LISP ? Question de stabilité, de qualité... ? Merci

Ok, merci Thierry, tu travaille encore dans le domaine de la voirie ? BET ?

Je comprends ce que tu veux dire. C'est peut-être parceque je débute mais j'ai vraiment envie de savoir ce qui va pas dans cette macro ! Je l'ai fait en 2 bouttons, apparemment, le 1er fonctionne, pas le second. Mis à part l'espace, tu vois autre chose qui pourrait coincer ?

Haaaaaa ok, j'ai pigé, et en plus tu l'avais écrit !!!! Tu le fais en 2 bouttons !!!, je pensais qu'en un seul boutton on pouvait tout faire !?

Beinnn non, là ça marche pas cette macro, même en modifiant l'espace, c'est dommage !

Merci encore Thierry, le fichier m'a bien aidé à comprendre. Serait-il possible d'avoir votre avis sur le structure suivante correspondant à une voie de lotissement à traffic très faible de véhicules légers type berlines: Structure chaussée: Enduit bicouche ép. 0,05, Semi-concassé 0/20 ép. 0,20, Fondation grave 0/80 ép. 0,30 Mais du coup, vu ce que tu m'a expliqué sur le fait que le bicouche est plutôt un enduit, je dois zapper le texte "ép. 0,05" et laisser juste "Enduit bicouche" sans spécifier d'épaisseur, non ? Merci d'avance

Pour répondre à Gile, merci beaucoup, ton lisp marche au poil ! PARFAIT, rien à redire, simple et efficace !!! Merci encore

Presque super ! Ca fonctionne pour le x mais pas pour le y !? Je vois pas trop d'où ça peut venir mais comme je débute et que je suis encore nul... Vous verrez mieux l'erreur que moi ! Alors où qu'elle est l'erreur ??? Merci