kohen.g

Bonjour, Serait il possible que vous me transmettiez ce fichier via dlfree? Merci

Bonjour, Effectivement c'est ce que je fais par contre mon matériaux est en globale je ne sais pas comment y ajouter mon matériau sur la palette de matériau d'autocad Pour info j'ai crée un mur via la commande via l'outil polysolide Mais pour créer sur le même mur de section de carrelage différent je ne sais pas comment faire Voici mon plan de la salle de bain a télécharger avec ce lien http://dl.free.fr/v1Q8GVHY4 J'aimerais un carrelage en sous bassement d'une couleur plutôt sombre et au dessus claire sur tous les murs Merci de votre aide

Bonjour, J'essaye en vain de trouver un matériaux qui ressemble à du carrelage, De plus j'aimerais sur le même pan de mur y ajouter 2 types de carrelage bien sur en modele 3D Quelqu'un peut m'expliquer comment faire

Bonjour, J'ai oublier de préciser je fais tout en 3D

Bonjour, je suis en train de construire virtuellement une maison , j'aimerais savoir comment créer un modele de carrelage au sol et au mur, petit carreau j'ai essayé divers manip, Hachure , empreinte décomposé , mais rien de concluant Le seul moyen fastidieux est de se créer des bloc et de les assembler un à un Merci

Bonjour, J'aimerais savoir si cela est possible d'optimiser la taill de fichier surtout pour la 3D car sur mon PC ça rame bcp pour les assembalge un peu complexe meme si le realisme ne suit pas ce n'est pas grave il me faut de la rapidité sans changer de pC j'ultilise deja les xref mais malgres ca ca rame encore un peu Merci

Pour répondre a ta critique , je ne connais peut etre pas le language lisp et autres mais , quand je trouve quelque chose je le fais partager même si cela ne vient pas de moi Pour ta petite information : ISOCAD de AUXITEC est un logiciel qui dessine des plans de tuyauterie et qui sort la nomenclature automatiquement , et la le logiciel que j'ai trouvé et qu'on me propose ne sert visiblement pas à cela . Amicalement

Bonjour, A quoi sert il ce logiciel , j'en voi aucun interet il genere pas de le plans de tuyauterie insertion bride vanne ect

Bonsoir Ci joint un lien pour tel un programme de tuyauterie en vlx ,probleme je ne sais pas comment cela fonctionne d'autant plus que j'ai autocad 2007 Merci de le tester et me dire si cela fonctionne http://dl.free.fr/t7kYiArgj

Bonjour, J'aimerais savoir si cela est possible et si oui comment pour faire une gaine de base ronde qui se termine par un rectangle :Imaginer un trapèze en 3D mais à la place d'avoir une base rectangulaire , je voudrais une base ronde Merci

je ne comprend pas peux tu m'expliquer qu'appel tu sonne graphique merci

Je recherche le numéro de série de ce logiciel ISOCAD 2005

Bonsoir, Comment charge t'on un fichier .VLX Puis comment l'utilise t'on?

Bonjour, Je viens de trouver une cotation automatique mais qui marche seulement sur les lignes et non les polyligne est ce que quelqu'un sait comment modifier ca ou meme le modifier lui meme merci ci joint le lisp ;AutoCote.lsp ;Version 1.0 ;Programme AutoLISP écrit par Maxence Delannoy (E-Mail:maxence.delannoy@wanadoo.fr) ;Dernière modification le 23.09.98 ;Objet: Cotation automatique de toutes les lignes rencontrées sur un trajet. (defun c:AC ( / IniCmd Pt1 Pt2 LstPt JeuSel i) (setq IniCmd (getvar "CMDECHO") Pt1 (getpoint "1er point du trajet: ") LstPt (list Pt1) ) (setvar "CMDECHO" 0) (while (setq Pt2 (getpoint Pt1 "\nPoint suivant: ")) (grdraw Pt1 Pt2 -1 1) (setq Pt1 Pt2 LstPt (cons Pt1 LstPt)) ) (redraw) (setq JeuSel (ssget "T" LstPt '((0 . "LINE"))) i 0) (if Jeusel (while (< i (sslength JeuSel)) (setq Pt1 (cdr (assoc 10 (entget (ssname JeuSel i)))) Pt2 (cdr (assoc 11 (entget (ssname JeuSel i)))) ) (command "_.DIMALIGNED" Pt1 Pt2 pause) (setq i (1+ i)) ) (princ "\nAucune ligne n'a été sélectionnée.") ) (setvar "CMDECHO" IniCmd) (princ) ) (prompt "M.D.D. - AutoCote.lsp chargé. Tapez AC.") (princ)

Bonsoir , Y a t'il une possibilité de calculer des masses sous autocad , de chercher le centre de gravité des pièces, d'ajouter des contraintes de type statique et les deformations? Merci

Merci pour ton lien mais le pgm ne peux etre télécharger le liens ne fonctionne pas pour les fond GrC et de plus il n'est pas gratuit

Bonsoir, Usegomme Ci joint un nouveau fichier cela sert a dessiner des fonds GRC et PRC peux tu le modifier pour en faire de la 3D avec? ;; FondB.lsp ;; Version 1.0 ;; Objet: Tracé de fonds bombés suivant NF A 49-185. (defun c:FB (/ DiamExt RayInt RayCar Ep HtBD HtTot PtIns X0 X1 Y0 Y1 Ang1) (setvar "OSMODE" 0) (setq DiamExt (getreal "\nDiamètre extérieur: ") RayInt (getreal "\nRayon intérieur: ") RayCar (getreal "\nRayon de carre: ") Ep (getreal "\nEpaisseur: ") HtBD (getreal "\nHauteur du bord droit: ") HtTot (getreal "\nHauteur totale: ") PtIns (getpoint "\nPoint d'insertion: ") X0 (- (nth 0 PtIns) (/ DiamExt 2)) X1 (+ (nth 0 PtIns) (/ DiamExt 2)) Y0 (- (+ (nth 1 PtIns) HtTot) RayInt Ep) Y1 (+ (nth 1 PtIns) HtBD) ) (command "_.PLINE" (list X1 (nth 1 PtIns)) (list X1 Y1) "_A" "_CE" ; Arc défini par son centre (list (- X1 RayCar Ep) Y1) "_A" ; Angle... (setq Ang1 (/ (* 180 (angle (list (nth 0 PtIns) Y0) (list (- X1 RayCar Ep) Y1) ) ) pi ) ) "_CE" (list (nth 0 PtIns) Y0) "_A" ; Angle... (- 180 (* 2 Ang1)) "_CE" (list (+ X0 RayCar Ep) Y1) "_A" ; Angle... Ang1 "_L" ; Ligne... (list X0 (nth 1 PtIns)) "_C" ; Ferme la polyligne ) ) (prompt "M.D.D. - FondB.lsp chargé.") (prompt "\nTapez FB pour dessiner un fond bombé suivant NF A 49-185." ) (princ) [édité par (gile) : bbcodes]

Salut Un grand merci usegomme tu es un chef vraiment super boulot Je sais pas jusqu'ou tu peux aller, Il manque juste l'insertion automatique de nomenclature, de cotations et l'exportation en Iso et tu as fait un pgme merci @+

Bonsoir Dite moi ca va faire un peu faignant mais y a personne qui voudrais essayer de modifier ce lisp en y rajouter les profilé manquant , ou alors y aurait-il quelqu'un qui aura des cours en francais de programmation en Lisp Merci

Bonsoir , Oui mais le probleme c'est que c'est pas pratique si tu veux modifier la longueur tu dois extruder les faces pour augmenter ou diminuer , Alors que le lips IPN tu modifie les longueurs en tirant dessus

Bonjour, Comment je peux faire pour rajouter des profilés UPN Cornière ect... Ci joint le lisp d'origine (defun c:IPN ( / IPE_data IPEA_data HEA_data HEB_data HEM_data PA_data sv_mnu typ_ipn l_data l_str model_ipn l_val pt_ins h b a e r po p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16) (setq IPE_data '( (80 . (80 46.0 3.8 5.2 5)) (100 . (100 55.0 4.1 5.7 7)) (120 . (120 64.0 4.4 6.3 7)) (140 . (140 73.0 4.7 6.9 7)) (160 . (160 82.0 5.0 7.4 9)) (180 . (180 91.0 5.3 8.0 9)) (200 . (200 100.0 5.6 8.5 12)) (220 . (220 110.0 5.9 9.2 12)) (240 . (240 120.0 6.2 9.8 15)) (270 . (270 135.0 6.6 10.2 15)) (300 . (300 150.0 7.1 10.7 15)) (330 . (330 160.0 7.5 11.5 18)) (360 . (360 170.0 8.0 12.7 18)) (400 . (400 180.0 8.6 13.5 21)) (450 . (450 190.0 9.4 14.6 21)) (500 . (500 200.0 10.2 16.0 21)) (550 . (550 210.0 11.1 17.2 24)) (600 . (600 220.0 12.0 19.0 24)) ) IPEA_data '( (80 . (78.0 46 3.3 4.2 5)) (100 . (98.0 55 3.6 4.7 7)) (120 . (117.6 64 3.8 5.1 7)) (140 . (137.4 73 3.8 5.6 7)) (160 . (157.0 82 4.0 5.9 9)) (180 . (177.0 91 4.3 6.5 9)) (200 . (197.0 100 4.5 7.0 12)) (220 . (217.0 110 5.0 7.7 12)) (240 . (237.0 120 5.2 8.3 15)) (270 . (267.0 135 5.5 8.7 15)) (300 . (297.0 150 6.1 9.2 15)) (330 . (327.0 160 6.5 10.0 18)) (360 . (357.6 170 6.6 11.5 18)) (400 . (397.0 180 7.0 12.0 21)) (450 . (447.0 190 7.6 13.1 21)) (500 . (497.0 200 8.4 14.5 21)) (550 . (547.0 210 9.0 15.7 24)) (600 . (597.0 220 9.8 17.5 24)) ) HEA_data '( (100 . (96.0 100 5.0 8.0 12)) (120 . (114.0 120 5.0 8.0 12)) (140 . (133.0 140 5.5 8.5 12)) (160 . (152.0 160 6.0 9.0 15)) (180 . (171.0 180 6.0 9.5 15)) (200 . (190.0 200 6.5 10.0 18)) (220 . (210.0 220 7.0 11.0 18)) (240 . (230.0 240 7.5 12.0 21)) (260 . (250.0 260 7.5 12.5 24)) (280 . (270.0 280 8.0 13.0 24)) (300 . (290.0 300 8.5 14.0 27)) (320 . (310.0 300 9.0 15.5 27)) (340 . (330.0 300 9.5 16.5 27)) (360 . (350.0 300 10.0 17.5 27)) (400 . (390.0 300 11.0 19.0 27)) (450 . (440.0 300 11.5 21.0 27)) (500 . (490.0 300 12.0 23.0 27)) (550 . (540.0 300 12.5 24.0 27)) (600 . (590.0 300 13.0 25.0 27)) (650 . (640.0 300 13.5 26.0 27)) (700 . (690.0 300 14.5 27.0 27)) (800 . (790.0 300 15.0 28.0 30)) (900 . (890.0 300 16.0 30.0 30)) (1000 . (990.0 300 16.5 31.0 30)) (1100 . (1090.0 300 18.0 31.0 20)) ) HEB_data '( (100 . (100 100 6.0 10.0 12)) (120 . (120 120 6.5 11.0 12)) (140 . (140 140 7.0 12.0 12)) (160 . (160 160 8.0 13.0 15)) (180 . (180 180 8.5 14.0 15)) (200 . (200 200 9.0 15.0 18)) (220 . (220 220 9.5 16.0 18)) (240 . (240 240 10.0 17.0 21)) (260 . (260 260 10.0 17.5 24)) (280 . (280 280 10.5 18.0 24)) (300 . (300 300 11.0 19.0 27)) (320 . (320 300 11.5 20.5 27)) (340 . (340 300 12.0 21.5 27)) (360 . (360 300 12.5 22.5 27)) (400 . (400 300 13.5 24.0 27)) (450 . (450 300 14.0 26.0 27)) (500 . (500 300 14.5 28.0 27)) (550 . (550 300 15.0 29.0 27)) (600 . (600 300 15.5 30.0 27)) (650 . (650 300 16.0 31.0 27)) (700 . (700 300 17.0 32.0 27)) (800 . (800 300 17.5 33.0 30)) (900 . (900 300 18.5 35.0 30)) (1000 . (1000 300 19.0 36.0 30)) (1100 . (1100 300 20.0 36.0 20)) ) HEM_data '( (100 . (120 106 12.0 20.0 12)) (120 . (140 126 12.5 21.0 12)) (140 . (160 146 13.0 22.0 12)) (160 . (180 166 14.0 23.0 15)) (180 . (200 186 14.5 24.0 15)) (200 . (220 206 15.0 25.0 18)) (220 . (240 226 15.5 26.0 18)) (240 . (270 248 18.0 32.0 21)) (260 . (290 268 18.0 32.5 24)) (280 . (310 288 18.5 33.0 24)) (300 . (340 310 21.0 39.0 27)) (320 . (359 309 21.0 40.0 27)) (340 . (377 309 21.0 40.0 27)) (360 . (395 308 21.0 40.0 27)) (400 . (432 307 21.0 40.0 27)) (450 . (478 307 21.0 40.0 27)) (500 . (524 306 21.0 40.0 27)) (550 . (572 306 21.0 40.0 27)) (600 . (620 305 21.0 40.0 27)) (650 . (668 305 21.0 40.0 27)) (700 . (716 304 21.0 40.0 27)) (800 . (814 303 21.0 40.0 30)) (900 . (910 302 21.0 40.0 30)) (1000 . (1008 302 21.0 40.0 30)) ) PA_data IPEA_data ) (setq sv_mnu (getvar "SHORTCUTMENU")) (setvar "SHORTCUTMENU" 11) (initget 1 "IPE IPEA PA HEA HEB HEM") (setq typ_ipn (getkword "\nType de poutre [iPE/IPEA/PA/HEA/HEB/HEM]?: ")) (setq l_data (eval (read (strcat typ_ipn "_data")))) (setq l_str nil) (initget 1 (apply 'strcat (mapcar 'strcat (repeat (length l_data) (setq l_str (cons "M" l_str))) (mapcar 'itoa (mapcar 'car l_data)) (repeat (length l_data) (setq l_str (cons " " l_str)))))) (setq l_str nil) (setq model_ipn (getkword (strcat "\nModèle de poutre [" (apply 'strcat (mapcar 'strcat (repeat (length l_data) (setq l_str (cons "M" l_str))) (mapcar 'itoa (mapcar 'car l_data)) (repeat (length l_data) (setq l_str (cons "/" l_str))))) "]?: ")) ) (setvar "SHORTCUTMENU" sv_mnu) (setq l_val (cdr (assoc (atoi (substr model_ipn 2)) l_data))) (initget 1) (setq pt_ins (getpoint "\nPoint d'insertion?: ")) (setq h (car l_val) b (cadr l_val) a (caddr l_val) e (cadddr l_val) r (last l_val)) (setq po (polar pt_ins (* pi 0.5) (* h -0.5)) p1 (polar po 0.0 (* b 0.5)) p2 (polar p1 (* pi 0.5) e) p3 (polar p2 pi (- (* b 0.5) (* a 0.5) r)) p4 (polar (polar p3 (* pi 0.5) r) pi r) p5 (polar p4 (* pi 0.5) (- h (* 2.0 r) (* 2.0 e))) p6 (polar (polar p5 0.0 r) (* pi 0.5) r) p7 (polar p6 0.0 (- (* b 0.5) (* a 0.5) r)) p8 (polar p7 (* pi 0.5) e) p9 (polar p8 pi b) p10 (polar p9 (- (* pi 0.5)) e) p11 (polar p10 0.0 (- (* b 0.5) (* a 0.5) r)) p12 (polar (polar p11 (- (* pi 0.5)) r) 0.0 r) p13 (polar p12 (- (* pi 0.5)) (- h (* 2.0 r) (* 2.0 e))) p14 (polar (polar p13 pi r) (- (* pi 0.5)) r) p15 (polar p14 pi (- (* b 0.5) (* a 0.5) r)) p16 (polar p15 (- (* pi 0.5)) e) ) (setvar "cmdecho" 0) (command "_.pline" "_none" p1 "_none" p2 "_none" p3 "_arc" "_none" p4 "_line" "_none" p5 "_arc" "_none" p6 "_line" "_none" p7 "_none" p8 "_none" p9 "_none" p10 "_none" p11 "_arc" "_none" p12 "_line" "_none" p13 "_arc" "_none" p14 "_line" "_none" p15 "_none" p16 "_close" ) (setvar "cmdecho" 1) (command "_.extrude" (entlast) "") (prin1) )

Je dois juste remplacer ces 2 termes?

Bonjour, Ci joint un lisp qui ne fonctionne pas pouvez vous résoudre le pb merci ;AutoCote.lsp ;Objet: Cotation automatique de toutes les lignes rencontrées sur un trajet. (defun c:AC ( / IniCmd Pt1 Pt2 LstPt JeuSel i) (setq IniCmd (getvar "CMDECHO") Pt1 (getpoint "1er point du trajet: ") LstPt (list Pt1) ) (setvar "CMDECHO" 0) (while (setq Pt2 (getpoint Pt1 "\nPoint suivant: ")) (grdraw Pt1 Pt2 -1 1) (setq Pt1 Pt2 LstPt (cons Pt1 LstPt)) ) (redraw) (setq JeuSel (ssget "T" LstPt '((0 . "LINE"))) i 0) (if Jeusel (while (< i (sslength JeuSel)) (setq Pt1 (cdr (assoc 10 (entget (ssname JeuSel i)))) Pt2 (cdr (assoc 11 (entget (ssname JeuSel i)))) ) (command "_.DIMALIGNED" Pt1 Pt2 pause) (setq i (1+ i)) ) (princ "\nAucune ligne n'a été sélectionnée.") ) (setvar "CMDECHO" IniCmd) (princ) ) (prompt "M.D.D. - AutoCote.lsp chargé. Tapez AC.") (princ)

Bonjour, Le lisp ne fonctionne pas , je le charge il me demande de choisir les objets je clique sur mes 2 objet (cotation) et la rien ne se passe Autres quiz , comment je peut fair pour que mes cote aligné soit // à mon axe de tuyauterie Méthode: Aller sur Accroche objet onglet puis paramètre puis l'onglet accrochage isometrique Puis déssiner un trait en ayant coché le mode ortho cela fera un trai à 30 /90°ou 120° , puis coter celle ci à l'aide de cotation aligné et la vous remarqueré que la cotation ne suit pas mon trait d'axe Encore une fois cette manip c'est pour des plans de tuyauteries dit ISO Sans respect de l'echelle Merci

Bonjour, oui voila c'est tout à fait cela la définition d'un plan de tuyauterie dit isométrique Bonuscad