mikL44

Voila c'est fait ;)

Avec cette texture c'est encore mieux http://storage.msn.com/x1pbglk-vqL4BvYIDcPPINi9zP4gTSmgLgATDkd-OvK5gDkhgXXJ9STjkC94upRByHn9iFdqemRyrxKP8xOcSj4qlhZA13AwPe2QNiMiFENcvDnu3_SHcMf8rbBccOPotAF98lykucrd_eRTv1SjpWGBBot2xoHU1ul

Voila ce que ca donne http://storage.msn.com/x1pbglk-vqL4BvYIDcPPINi9zP4gTSmgLgATDkd-OvK5gB1FPjlGPD2f3Kjtyp1-wXi2gi8GNeLVnnD1jN9uk6vXAPz_-1u-c_nKPsNADHU3vHAL1rUfxLCcdftP87zE3Ije3Fd2GLcKpJvc7KxllHTqg

Salut Le jpg que tu trouves dans inventor avec la boule inox est excellente pour realiser une texture inox sous autocad. Tu la renseignes dans le champ reflexion est c'est nickel. Moi ca me fais des jolies tubes chromés. :D Je te l'envoie par mail si tu veux. tchao

http://www.vivremamaison.com/ celui la est tres bien aussi

Salut ou _SOLVIEW [Edité le 25/10/2005 par boris]

nikel eric, comme d'hab J'avais fait un peu la meme chose en 3D avait une voiture qui traverse un pont de nuit tous feus allumés. Je le posterais bien mais je ne sais pas comment faire, le fichier pese 500ko. Ou alors je l'envoie à quelqu'un qui le poste

oulala, alors la si ca se fait, les boites aux lettres vont etre bombardé :D

on peut aussi mettre la variable dispsilh à 0, cela accelere sensiblement la manipulation sur les tres gros fichiers. Ne pas oublier de la remettre à 1 pour l'impression. [Edité le 17/10/2005 par boris]

Alors c'est Tramber ou c'est pas Tramber ? :D Olala humour ;)

Bon etant donné que je ne connait pas ton niveau sur Autocad, ne te vexe pas si ma proposition te semble saugrenue, mais le 1er truc qui me vient à l'esprit la tout de suite c'est : Ton calque ou se trouve l'objet ne serait t'il pas "verrouiller" , le petit cadenas dans le gestionnaire de calque

Oula, je suis désolé, voila ce qu'il se passe quand on lache Cadxp quelque jours. Je viens de lire le post, mais c'est une excellente rumeur ca (vrai ou fausse?) Je suis deja tout excité de voir ca, j'ai vraiment hate d'avoir plus d'info à ce sujet, j'y croyais plus concernant l'evolution du rendu sur Autocad. Gééééniaaalllll Je commence de suite mes 100 copies :D

Salut Et ce qui serait génial, c'est une amélioration de la partie RENDU, quelque chose de plus realiste au niveau des éclairages. a+

Merci beaucoup Gile, c'est génial pour modéliser un terrain en 3dsolid à partir d'une _edgesurf Encore Merci Tchao

Salut à tous Quelqu'un pourrait il me dire pourquoi ce programme ne fonctionne pas ? Je bute dessus je n'arrive pas à trouver. Merci Boris ----------------------------------------------------------------------------------------------------------- ;; M2S (Mesh-to-Solid) ;; Creates an ACIS solid from an open 3d polygon mesh. ;; ;; Take 2 - Updated 7/7/1998 ;; - Works with REVSURF'd meshes that touch or cross axis of revolution. ;; - Works even if solid being constructed is not fully visible on screen. ;; - Works with all open meshes created with REVSURF, RULESURF, ;; EDGESURF, TABSURF, AI_MESH, and 3DMESH. Most of the stock 3D ;; surfaces will work if you use DDMODIFY to open them in the M ;; and N directions. ;; - Does not work with polyface entities. ;; ;; © Copyright 1998 Bill Gilliss. ;; All rights reserved... such as they are. ;; ;; bill.gilliss@aya.yale.edu gilliss@iglou.com ;; ;; I wrote this to create sculptable ACIS terrain models ;; for architectural site renderings. It could also be used ;; to create thin shells from meshes, by subtracting a moved ;; copy of the solid from the original solid. Let me know of ;; other uses you find for it, or problems you encounter. ;; ;; The solid is created by projecting each mesh facet "down" ;; the current z-axis to a plane a user-specified distance below ;; the lowest vertex. To assure that all parts of the mesh are ;; generated as solids, this distance can not be zero, but the ;; solid can be SLICEd later if need be. ;; ;; The solid will match the displayed mesh: if the mesh has ;; been smoothed and SPLFRAME is set to 0, the solid will be ;; smoothed. Otherwise, it will not be. The mesh itself is not ;; changed at all. ;; (defun c:m2s (/ ent ename entlst M N MN SN SM ST smooth oldecho vtx d1 low vtxcnt vtxmax bot bottom p1 p2 p3 p4 c1 c2 c3 c4 b1 b2 b3 b4 soldepth ssall ssrow) (setq oldecho (getvar "cmdecho")) (setq oldsnap (getvar "osmode")) (setq oldblip (getvar "blipmode")) (setvar "cmdecho" 0) (setvar "osmode" 0) (setvar "blipmode" 0) (command "_undo" "debut") ;;select the mesh (setq ent (entsel "Select a polygon mesh to solidify: ")) (setq ename (car ent)) (setq entlst (entget ename)) (if (not (= (cdr (assoc 0 entlst)) "_pline")) (progn (alert "That is not a polygon mesh.") (exit) (princ) );progn );endif (if (not (or (= (cdr (assoc 70 entlst)) 16) ;open 3d polygon mesh (= (cdr (assoc 70 entlst)) 20) ;open mesh w/ spline-fit vertices );or );not (progn (alert "That is not an *open* polygon mesh.") (exit) (princ) );progn );endif ;; decide whether to use smoothed or unsmoothed vertices (setq M (cdr (assoc 71 entlst))) ;M vertices (setq N (cdr (assoc 72 entlst))) ;N vertices (setq SM (cdr (assoc 73 entlst))) ;smoothed M vertices (setq SN (cdr (assoc 74 entlst))) ;smoothed N vertices (setq ST (cdr (assoc 75 entlst))) ;surface type (if (or (= (getvar "splframe") 1) ;use MxN vertices when splframe = 1 (= ST 0) ;or mesh has not been smoothed ) (setq smooth 0 MN (* M N)) (setq smooth 1 ;use SMxSN vertices when mesh is smoothed MN (* SM SN) ;and SPLFRAME = 0 M SM N SN) );if ;; determine lowest vertex (grtext -2 "Checking out the mesh...") (setq vtx ename) (setq vtx (entnext vtx)) (setq d1 (entget vtx)) (setq bottom (caddr (trans (cdr (assoc 10 d1)) 0 1))) (repeat (1- MN) ;compare with each vertex's z coord (setq vtx (entnext vtx)) (setq d1 (entget vtx)) (setq low (caddr (trans (cdr (assoc 10 d1)) 0 1))) (setq bottom (min bottom low)) );repeat ;; get desired thickness of solid (setq soldepth 0) (while (zerop soldepth) (progn (setq soldepth (getdist "\nEnter desired thickness of solid below lowest vertex <1>: ")) (if (not soldepth) (setq soldepth 1.0)) (if (zerop soldepth) (princ "\nThickness can be small, but not zero. (Slice it later, if need be.)")) );progn );while (setq bot (- bottom (abs soldepth))) (setq p1 ename) (if (= smooth 1) (setq p1 (entnext p1))) ;skip 1st vtx of smoothed mesh - not true vtx (setq ssrow (ssadd)) ;initialize set of extruded segments to be unioned as a row (setq ssall (ssadd)) ;initialize set of rows to be unioned into the whole (grtext -2 "Creating row...") (setq vtxmax (- MN N)) (setq vtxcnt 1) ;;create row of solid segments (while (< vtxcnt vtxmax) (if (= 0 (rem vtxcnt N)) ;at end of each row... (progn (setq rowmsg (strcat "Unioning row " (itoa (/ vtxcnt N)) " of " (itoa (1- M)) "... ")) (grtext -2 rowmsg) (command "union" ssrow "") (setq row (entlast)) (ssadd row ssall) (setq ssrow (ssadd)) (setq p1 (entnext p1) ;skip to the next vertex vtxcnt (1+ vtxcnt)) );progn );if (grtext -2 "Creating row...") (setq p1 (entnext p1) ;first vertex of mesh square p2 (entnext p1) ;second vertex p3 p2) (repeat (1- n) (setq p3 (entnext p3))) ;walk along to 3rd (p1 + N) vertex (setq p4 (entnext p3)) ;4th vertex of mesh square (setq c1 (trans (cdr (assoc 10 (entget p1))) 0 1) ;top coordinates c2 (trans (cdr (assoc 10 (entget p2))) 0 1) c3 (trans (cdr (assoc 10 (entget p3))) 0 1) c4 (trans (cdr (assoc 10 (entget p4))) 0 1) b1 (list (car c1) (cadr c1) bot) ;bottom coordinates b2 (list (car c2) (cadr c2) bot) b3 (list (car c3) (cadr c3) bot) b4 (list (car c4) (cadr c4) bot)) (LOFT c1 c2 c3 b1 b2 b3) (LOFT c2 c3 c4 b2 b3 b4) (setq vtxcnt (1+ vtxcnt)) );while (grtext -2 "Unioning last row...") (command "union" ssrow "") (setq row (entlast)) (ssadd row ssall) (if (> M 2) ;bypass final union for N x 1 meshes (i.e., RULESURF) (progn (grtext -2 "Unioning all rows...") (command "union" ssall "") );progn );if ;;cleanup (command "_undo" "end") (setvar "cmdecho" oldecho) (setvar "osmode" oldsnap) (setvar "blipmode" oldblip) (setq ssall nil ssrow nil) (princ) );defun ;;============== SUBROUTINES ==================== ;(defun *error* (msg) ; (command) ; (command "_undo" "end") ; (setvar "cmdecho" oldecho) ; (setvar "osmode" oldsnap) ; (setvar "blipmode" oldblip) ; (princ (strcat "\nError: " msg)) ; );defun (defun LOFT (r1 r2 r3 s1 s2 s3 / e1 extr highest) (command "area" s1 s2 s3 "") (if (not (equal (getvar "area") 0.0 0.00000001)) (progn (command "pline" s1 s2 s3 "c") (setq highest (max (caddr r1) (caddr r2) (caddr r3))) (setq extr (- highest bot)) (command "extrude" (entlast) "" extr 0.0) (command "slice" (entlast) "" "3points" r1 r2 r3 s1) (setq e1 (entlast)) (ssadd e1 ssrow) );progn );if );defun (princ "M2S loaded.") -----------------------------------------------------------------------------------------------------------------

Salut GZR Un petit coucou d'un Nantais. Bon courage dans ta recherche. Boris

salut Variable DRAGMODE à 2 tchao

Salut Ok, merci à vous 2, je vais regardé ca de plus près. Atchao Boris

Salut, Existe il un programme lisp ou autre qui permetterait à l'insertion d'un bloc via la palette d'outil, de couper la ligne sur lequel on l'insert. Très pratique pour la schématique. Sur Autocad 2005. merci Atchao

Une hypothese peut etre, la pate thermique qui se trouve entre le processeur et le radiateur peut etre defectueuse ou de mauvaise qualité. C'est elle qui fait office de contact thermique entre le radiateur et le proc. Atchao

Salut, Un bon depoussierage de la machine avec une bouteille d'air sec et un pinceau. Enleve bien la poussiere qui se trouve entre les ailettes du radiateur qui se trouve sur le processeur. Plus ce radiateur sera encrassé, plus le ventilateur tournera vite pour refroidir le processeur. Atchao et bon ménach :)

Salut Ce lisp est génial pour creer de rampes d'escalier (colimaçon) en 3D. Il faut une polyligne, utilisé la commande rectangle par exemple pour un profil de rampe. ; Objet: Génération d'hélice en 3D. ; SPIR_REVOL : Génére un maillage "spiralique" suivant l'axe Z du SCU courant ; P1 : Premier point de l'arête (SCU) ; P2 : deuxième point de l'arête (SCU) ; NS : Nombre de spires ; HS : Hauteur d'une spire ; NP : Nombre de points par tour (defun SPIR_REVOL (P1 P2 NS HS NP / P3 P4 NPG i P5 P6 D1 D2 Z1 Z2 AncOsm) (setq NPG (* NS NP) ; Nombre de couple de points à générer Ang (/ (* PI 2) NP) P3 (list (nth 0 P1) (nth 1 P1)) ; Projection de P1 sur XY P4 (list (nth 0 P2) (nth 1 P2)) ; Projection de P2 sur XY D1 (distance '(0 0) P3) D2 (distance '(0 0) P4) HS (/ HS 1.0 NP) i 0 AncOsm (getvar "OSMODE") ) (if (not (setq Z1 (nth 2 P1))) (setq Z1 0)) (if (not (setq Z2 (nth 2 P2))) (setq Z2 0)) (setvar "OSMODE" 0) ; Désactive l'accrochage aux objets (command "_3DFACE") (while (<= i NPG) (setq P5 (polar '(0 0) (* Ang i) D1) P5 (append P5 (list (+ Z1 (* i HS)))) P6 (polar '(0 0) (* Ang i) D2) P6 (append P6 (list (+ Z2 (* i HS)))) i (1+ i) ) (if (= (rem i 2) 0) (command P6 P5) ; i pair (command P5 P6) ; i impair ) ) (command "") (setvar "OSMODE" AncOsm) (princ) ) (defun GET_POLY_PTS (Ent / Lst Result Elt) (setq Lst (entget Ent)) (if (= (cdr (assoc 0 Lst)) "POLYLINE") (while (= (cdr (assoc 0 (setq Lst (entget (setq Ent (entnext Ent)))))) "VERTEX") (setq Result (cons (cdr (assoc 10 Lst)) Result)) ) ) (if (= (cdr (assoc 0 Lst)) "LWPOLYLINE") (progn (foreach Elt Lst (if (= (car Elt) 10) (setq Result (cons (cdr Elt) Result))) ) (if (/= (boole 1 (cdr (assoc 70 Lst)) 1) 0) (setq Result (cons (cdr (assoc 10 Lst)) Result)) ; Polyligne fermée ) ) ) Result ) (defun c:SPR ( / P1 P2 Ent NS HS NP Points PtsSCU Pt i P3 P4) (setq P1 (getpoint "\nPremier point sur l'axe : ") ; Point SCU P2 (getpoint P1 "\nDeuxième point sur l'axe : ") ; Point SCU Ent (car (entsel "\nSélectionnez un profil (polyligne) : ")) NS (getint "\nNombre de spires : ") HS (getdist "\nHauteur d'une spire : ") NP (getint "\nNombre de points par tour : ") AncCmd (getvar "CMDECHO") i 0 ) (setvar "CMDECHO" 0) (command "_UNDO" "_BE") ; Groupe les opérations pour UNDO (command "_UCS" "_ZA" P1 P2) ; Oriente le SCU (setq Points (GET_POLY_PTS Ent)) ; Récupère les points de la polyligne (SC0 si 2D, SCG si 3D) (foreach Pt Points (setq PtsSCU (cons (trans Pt Ent 1) PtsSCU)) ; SCO -> SCU ) (while (< i (1- (length PtsSCU ))) (SPIR_REVOL (nth i PtsSCU) (nth (1+ i) PtsSCU) NS HS NP) (setq i (1+ i)) ) (command "_UCS" "_P") ; Restaure le SCU de départ (command "_UNDO" "_E") (setvar "CMDECHO" AncCmd) (princ) ) ; Dessin d'un filetage M6 (10 filets) (defun c:TEST () (SPIR_REVOL '(2.144 0 0) '(3 0 0.5) 10 1 16) (SPIR_REVOL '(2.144 0 1) '(3 0 0.5) 10 1 16) ) (prompt "Tout sur AutoCAD - SpiRevol.lsp chargé. Tapez SPR pour réaliser des révolutions \"spiraliques\".") (princ)

Salut, Vraiment excellent ce logiciel pour transferer des modele 3D à des personnes qui n'ont aucun visualisateurs, tout est contenus dans le .exe, et les fichiers sont vraiment léger. http://www.interbat.com/french/boutiques/aecviz/aecviz.html http://www.aecviz.com/cgi-bin/site.pl Version d'essai limité à 30 jours. http://www.tornadoviz.com/uploads/200439665qZL.gif apluche [Edité le 5/8/2005 par boris]

Ah oui, effectivement ca marche pas mal, merci pour l'info, ca ma l'air beaucoup plus rapide et moins lourd à manipuler. Ca reviens à mettre la variable dispsilh à 0, donc faudras pas que j'oublie de la remettre à 1 à chaque fois que j'imprimerais. Sinon pour les reflexions anisé, à consommer avec modération, mais ca ma l'air quand meme de t'avoir aidé à cogiter ;) merci apluche

Tiens ca me rappelle ce sujet : http://www.cadxp.com/sujetXForum-6458.htm