nG! Hebus

N'arrivant pas à télécharger via mediafire (bloquer par le serveur de la boite) je te donne un exemple de fichier avec des états de visibilité et un étirement (alors c'est du 3D mais ça fonctionne avec du 2D) Lien : https://we.tl/klnszX2Iij Pour en revenir au message du dessus, tu peux créer 4 état de visibilité ;)

Bonjour, Peux tu partager ton bloc? il n'y a pas moyen de faire cela en deux paramétres dans le même bloc?

Salut, C'est surtout que pour avoir beaucoup manipuler les blocs dynamiques, je ne pense pas que tu puisse faire cela avec un réseau mais plus avec des états de visibilités... Heureux d'avoir pu t'aider ;)

Salut, Pourquoi ne pas plutot créer un réseau standard, maintenant tu peux gérer le nombre d'éléments, la distance entre les éléments et donc avoir la distance totale. De plus la fonction réseau réagis comme un bloc dynamique depuis quelques versions d'autocad (depuis la 2010 je dirai). Cordialement

Salut, Alors d'abord j’identifierais le type de structure : -les éléments Mécano-soudés (c'est un type d'assemblage connu dans SW) -les Poteaux, les Poutres, les platines, les goussets, les braquons. Définir les files des poteaux et les files des niveaux dans ton assemblage global. Une fois que tu a fait cela, c'est du LEGO. Mon conseil, construire ton plan comme si c'est toi qui le devais le monter. Tu trace tes fils au sol, puis tu met ton N+1 puis ton N+2 etc, et tu finis par les petits éléments (braquons, platines crapautées, etc) Si tu a vraiment trop de difficulté à manipuler le plan d'assemblage, tu peux faire des sous assemblages (Poteaux, N+1, etc) par contre les éléments de détails comme les braquons,etc. Je les mettrai dans l'assemblage global.

Salut, Quelques exemples de blocs dynamique 3D. Certains sont presque aboutis d'autres pas du tout. Vois ce qui peu de convenir et au pire MP moi si tu veux de l'aide ou si a des questions. Lien : https://we.tl/SGYui0U6lG EDIT: Alors ils ne sont pas tous bien foutu, c'était des premiers jets, donc keep calm et n'hésite pas t'inspiré mais certains doivent être LARGEMENT améliorés. Sinon les blocs 3D réagissent globalement comme ceux en 2D (a part les axes X Y qui s’inversent et d'autres petits bug dans ce genre).

Salut Laud69, Oui mais ce que je ne comprend pas c'est pourquoi mon état de visibilité ne s'applique pas à ma table de propriété de bloc... Et pourquoi on ne peux pas faire plusieurs "propriété de bloc" (une par visibilité). Sinon oui ça finira comme cela ou avec autant de blocs que j'ai de type d'éléments.

Bon personne... Sniff Je mettrai si je trouve.

Les types ont réussir à rentrer dans le serv' et sont sortis avec les données clients?... A moins de s'amuser à appeler au hasard? "Bonjour , j'suis d'autodesk, avez vous une licence utilisateur? Si oui merci de me transmettre les codes..." <_< :huh:

(o_O')

Heu pardon, Je pensais aux états de calques. Rien à voir... Par contre l'ordre des Xréf, elles se rangent dans l'ordre d'insertion. Cordialement.

Merci Sbosarl, je test et je vois ;)

Salut lecrabe, Merci pour ton retour, mais ce n'est pas une question de fichier ( le LISP ne fonctionne plus sur aucun fichier). Pour le LISP, voici le code : ( Il appel un .DCL et des fichiers .DAT ) Mais je pense pas que cela vienne du LISP non plus... J'ai rien touché et je l'ai utilisé hier, cela fonctionnait très bien... Je n'ai rien trifouillé car je n'y connais pas grand chose. ;Profil.lsp ;Programme AutoLISP écrit par L.Bouquillon le 24.03.97, adapté par Maxence Delannoy. ;Objet : Générateur de profil. ;Consultez le fichier LisezMoi.txt pour de plus amples informations. ;Version 2 .2 02-02-2010 par usegomme ; ***** Routine d'erreur ***** (defun err_fer (s) (if (/= s "Function cancelled") (princ (strcat "\nErreur survenue dans le programme Générateur de profil : " s "\n")) ) (setvar "osmode" ini_obj) (setvar "cmdecho" 1) (setq *error* olderr) (princ) ) (defun profil_attente () (alert "Fonction non disponible pour l'instant.") ) ; ***** Initialisation du programme ***** (setq fer "IPE" type_fer "?" chemin "profil_ipe.dat" lon 4 image_fer "ip" ) ; ***** Début du programme ***** (defun c:PROFIL (/ ini_obj ini_ortho) (setq olderr *error* *error* err_fer) (setq rotation "0" bloc_action 0 valeur 1 hh nil v_fer " " defi " " selec_imag 1 ) (setvar "cmdecho" 0) (setq ini_obj (getvar "osmode")) (setq ini_ortho (getvar "orthomode")) (setvar "orthomode" 0) (setq sc_dcl_id (load_dialog "gene_pro.dcl")) (if (< sc_dcl_id 0) (exit)) (if (not (new_dialog "profil" sc_dcl_id)) (exit)) (set_tile "edit_col" fer) (set_tile "nomdubloc" "aucun") (profil_boucle) ; *** Definition des actions boutons *** (action_tile "list_col" "(choix_liste $value)") (action_tile "edit_col" "(cedit_act $value)") (action_tile "icon1" "(selec_ipe)") (action_tile "icon2" "(selec_ipn $value)") (action_tile "icon3" "(selec_hea $value)") (action_tile "icon4" "(selec_heb $value)") (action_tile "icon5" "(selec_UPN $value)") (action_tile "icon6" "(selec_UAP $value)") (action_tile "icon7" "(selec_COR $value)") (action_tile "icon8" "(selec_CORL $value)") (action_tile "icon9" "(selec_UPE $value)") (action_tile "icon10" "(selec_PFU $value)") (action_tile "icon11" "(selec_HEM $value)") (action_tile "icon12" "(selec_IPA $value)") ; *** Angle de rotation *** (set_tile "rot1" "1") (setq rot1 1) (action_tile "rot1" "(selec_1)") (action_tile "rot2" "(selec_2)") (action_tile "rot3" "(selec_3)") (action_tile "rot4" "(selec_4)") (action_tile "rot5" "(selec_5)") (action_tile "rot6" "(selec_6)") (action_tile "rot7" "(selec_7)") ; *** Sélection d'accrochage *** (action_tile "m_imag" "(point_inser)") ; *** Bloc *** (action_tile "cbloc" "(cbloc)") (action_tile "nombloc" "(def_bloc)") ; *** Final *** (setq fin fer) (if (= valeur "0") ((setq fer 0))) (action_tile "cancel" "(setq fer 0)") (action_tile "help" "(profil_attente)") (action_tile "info" "(profil_info)") (start_dialog) (unload_dialog sc_dcl_id) (if (= fer "IPE") (profil_ipe)) (if (= fer "IPEA") (profil_ipa)) (if (= fer "HEA") (profil_hea)) (if (= fer "HEB") (profil_heb)) (if (= fer "HEM") (profil_hem)) (if (= fer "IPN") (profil_ipn)) (if (= fer "UAP") (profil_uap)) (if (= fer "UPE") (profil_upe)) (if (= fer "UPN") (profil_upn)) (if (= fer "PFU") (profil_pfu)) (if (= fer "COR") (profil_cor)) (if (= fer "CORL") (profil_corl)) (if (= fer 0) (princ)) (setq valeur value fer fin ) (setq *error* olderr) (princ) ) ;**********selection****************** (defun choix_liste (value) (setq valeur value) (setq val value) (set_tile "valeur_fer" v_fer) (setq valselc 0) (setq rech_fer list_fer) (while (/= (atoi valeur) valselc) (setq rech_fer (cdr rech_fer)) (setq valselc (+ valselc 1)) ) (setq c (car rech_fer)) (setq type_fer (substr c 1 lon)) (setq h_fer (atof (setq type_fer (itoa (atoi type_fer))))) (cond ((= fer "COR") (setq ep_fer (itoa (atoi (substr c 4 2)))) (setq type_fer (strcat type_fer "_ep" ep_fer)) ) ((= fer "CORL") (setq 2emeL (itoa (atoi (substr c 5 3)))) (setq ep_fer (itoa (atoi (substr c 9 2)))) (setq type_fer (strcat type_fer "x" 2emeL "_ep" ep_fer)) ) ) (set_tile "type_fer" type_fer ) (set_tile "nomdubloc" "aucun") (setq bloc_action 0) (set_tile "cbloc" "0") ) ;*******DEFINITION DE L'EMPLACEMENT DES BASES DE DONNEES********** (defun selec_ipe () (setq fer "IPE") (set_tile "edit_col" fer) (setq chemin "profil_IPE.dat" ) (setq defi "nom b a e r h1") (setq lon 4) (setq type_fer "?") (setq image_fer "ip") (profil_boucle) ) (defun selec_ipa (value) (setq fer "IPEA") (set_tile "edit_col" fer) (setq chemin "profil_IPEA.dat") (setq defi "nom h b a e r h1" ) (setq lon 4) (setq type_fer "?") (setq image_fer "ip") (profil_boucle) ) (defun selec_ipn (value) (setq fer "IPN") (set_tile "edit_col" fer) (setq chemin "profil_IPN.dat") (setq defi "nom b a e r r1 h1" ) (setq lon 4) (setq type_fer "?") (setq image_fer "ip") (profil_boucle) ) (defun selec_hea (value) (setq fer "HEA") (set_tile "edit_col" fer) (setq chemin "profil_HEA.dat") (setq defi "nom h b a e r h1" ) (setq lon 4) (setq type_fer "?") (setq image_fer "h") (profil_boucle) ) (defun selec_heb (value) (setq fer "HEB") (set_tile "edit_col" fer) (setq chemin "profil_HEB.dat") (setq defi "nom h b a e r h1" ) (setq lon 4) (setq type_fer "?") (setq image_fer "h") (profil_boucle) ) (defun selec_hem (value) (setq fer "HEM") (set_tile "edit_col" fer) (setq chemin "profil_HEM.dat") (setq defi "nom h b a e r h1" ) (setq lon 4) (setq type_fer "?") (setq image_fer "h") (profil_boucle) ) (defun selec_uap (value) (setq fer "UAP") (set_tile "edit_col" fer) (setq chemin "profil_UAP.dat") (setq defi "nom b a e h1" ) (setq lon 4) (setq type_fer "?") (setq image_fer "u") (profil_boucle) ) (defun selec_upe (value) (setq fer "UPE") (set_tile "edit_col" fer) (setq chemin "profil_UPE.dat") (setq defi "nom b a e r h1" ) (setq lon 4) (setq type_fer "?") (setq image_fer "u") (profil_boucle) ) (defun selec_upn (value) (setq fer "UPN") (set_tile "edit_col" fer) (setq chemin "profil_UPN.dat") (setq defi "nom b a e r r1 h1" ) (setq lon 4) (setq type_fer "?") (setq image_fer "u") (profil_boucle) ) (defun selec_pfu (value) (setq fer "PFU") (set_tile "edit_col" fer) (setq chemin "profil_PFU.dat") (setq defi " h b a e r r1 h1" ) (setq lon 4) (setq type_fer "?") (setq image_fer "u") (profil_boucle) ) (defun selec_cor (value) (setq fer "COR") (set_tile "edit_col" fer) (setq chemin "profil_cor_egal.dat") (setq defi "Cot ep r" ) (setq lon 3) (setq image_fer "c") (setq type_fer "?") (profil_boucle) ) (defun selec_corl (value) (setq fer "CORL") (set_tile "edit_col" fer) (setq chemin "profil_cor_l.dat") (setq defi "Cot ep r" ) (setq lon 3) (setq image_fer "c") (setq type_fer "?") (profil_boucle) ) ;******Chargement base de donnees********** (defun profil_boucle () (set_tile "fer" fer ) (set_tile "definition" defi) (set_tile "valeur_fer" defi) (setq f (open (findfile chemin) "r")) (setq nbr 5) (repeat 5 (setq l (read-line f))) (setq list_fer '()) (setq nm 0) (while (/= "fin" nm) (setq nbr (+ nbr 1)) (setq init_nul (- nbr 5)) (setq list_fer (cons l list_fer)) (setq l (read-line f)) (setq nnn (length list_fer)) (if (not l) (setq nm "fin")) ) (start_list "list_col") (mapcar 'add_list list_fer) (end_list) (close f) (setq fin fer) (setq filtre (strcat fer "*")) (set_tile "type_fer" type_fer) (setq nom_bl nil) (profil_menu_image) ) ; ***** Paramétrage ***** (defun der (g) (* pi (/ g 180.0)) ) ; ***************************************** ; * GENERATEUR DE CORNIERES * ; ***************************************** (defun profil_cor () (setq a (atoi (substr c 1 3))) (setq b a) (setq ee (atoi (substr c 4 2))) (setq r (atoi (substr c 7 2))) (setq d1 (atof (substr c 10 4))) (setq d2 d1) (cor_generateur) ) (defun profil_corl () (setq a (atoi (substr c 1 3))) (setq b (atoi (substr c 5 3))) (setq ee (atof (substr c 9 4))) (setq r (atof (substr c 14 2))) (setq d2 (atof (substr c 17 4))) (setq d1 (atof (substr c 22 4))) (cor_generateur) ) (defun cor_generateur () ;*******Attribution des donnees (setq r1 (/ r 2)) (if pt_i_fer (setq pc pt_i_fer) (setq pc (getpoint "Point d'insertion :")) ) (setvar "osmode" 0) (setq pt_i pc) (setq pt_cen (polar (polar pc (der 270) d2) (der 180) d1)) (setq pt_bg (setq pt_i pc)) (setq pt_bc (polar pc (der 180) (/ b 2))) (setq pt_bd (polar pc (der 180) B)) (setq pt_cc (polar pc (der 180) a)) (setq pt_hg (polar pt_bc (der 270) a)) (setq pt_hc (polar pc (der 270) a)) (setq pt_hd (polar pc (der 270) (/ a 2))) (rech_pti) ;*******Definition des points**************** (setq pt1 (polar pc (der 90) a)) (setq pt2 (polar pt1 (der 0) (- ee r1))) (setq pt3 (polar pt2 (der 0) r1)) (setq pt3 (polar pt3 (der 270) r1)) (setq pt4 (polar pt3 (der 270) (- a (+ ee r1 r)))) (setq pt5 (polar pt4 (der 0) r)) (setq pt5 (polar pt5 (der 270) r)) (setq pt6 (polar pt5 (der 0) (- b (+ ee r r1)))) (setq pt7 (polar pt6 (der 0) r1)) (setq pt7 (polar pt7 (der 270) r1)) (setq pt8 (polar pt7 (der 270) (- ee r1))) ;******TRACAGE DU CONTOUR******************** (setvar "osmode" 0) (command "_.pline" pc "_w" 0 "" "_w" 0 "" pt1 pt2 "a" "a" "-90" "r" r1 pt3 "li" pt4 "a" "r" r pt5 "li" pt6 "a" "a" "-90" "r" r1 pt7 "li" pt8 "c") (profil_rot) ) ;********************************************************************** ; ******************************************* ; *SOUS PROGRAMME DE IPE IPEA HEA HEM HEB * ; ******************************************* (defun profil_GIP () (setq olderr *error* *error* g_profil_err ) (if pt_i_fer (setq pc pt_i_fer) (setq pc (getpoint "Point d'insertion :")) ) (setvar "osmode" 0) (setq pt_i pc) (setq pt_cen (setq pt_i pc)) (setq pt_bg (polar (polar pc (der 0) (/ b 2)) (der 90) (/ h 2))) (setq pt_bc (polar pc (der 90) (/ h 2))) (setq pt_bd (polar (polar pc (der 180) (/ b 2)) (der 90) (/ h 2))) (setq pt_cc (polar pc (der 0) (/ b 2))) (setq pt_hg (polar pt_bg (der 270) h)) (setq pt_hc (polar pt_bc (der 270) h)) (setq pt_hd (polar pt_bd (der 270) h)) (rech_pti) (setq pt1 (polar pc (der 180) (/ a 2))) (setq pt1 (polar pt1 (der 90) (- (/ h 2) (+ e r)))) (setq pt2 (polar pt1 (der 90) r)) (setq pt2 (polar pt2 (der 180) r)) (setq pt3 (polar pt2 (der 180) (- b1 ee))) (setq pt4 (polar pt3 (der 90) e)) (setq pt5 (polar pt4 (der 0) B)) (setq pt6 (polar pt5 (der 270) e)) (setq pt7 (polar pt6 (der 180) (- b1 ee))) (setq pt8 (polar pt7 (der 270) r)) (setq pt8 (polar pt8 (der 180) r)) (setq pt9 (polar pt8 (der 270) (- h (+ r r e e)))) (setq pt10 (polar pt9 (der 270) r)) (setq pt10 (polar pt10 (der 0) r)) (setq pt11 (polar pt10 (der 0) (- b1 ee))) (setq pt12 (polar pt11 (der 270) e)) (setq pt13 (polar pt12 (der 180) B)) (setq pt14 (polar pt13 (der 90) e)) (setq pt15 (polar pt14 (der 0) (- b1 ee))) (setq pt16 (polar pt15 (der 90) r)) (setq pt16 (polar pt16 (der 0) r)) ; (setvar "osmode" 0) (command "_.pline" pt1 "_w" 0 "" "A" "R" r pt2 "li" pt3 pt4 pt5 pt6 pt7 "A" "R" r pt8 "li" pt9 "A" "R" r pt10 "li" pt11 pt12 pt13 pt14 pt15 "A" "R" r pt16 "li" "c") (profil_rot) (setvar "cmdecho" 1) (setq *error* olderr) (princ) ) ;********************************************************************** ; ***************************************** ; * GENERATEUR DE IPE * ; ***************************************** (defun profil_ipe (/ plan) (setq h (atoi (substr c 1 3))) (setq b (atof (substr c 5 3))) (setq a (atof (substr c 9 4))) (setq e (atof (substr c 14 4))) (setq r (atof (substr c 19 2))) (setq h1 (atoi (substr c 22 3))) (setq b1 (/ b 2)) (setq a1 (/ a 2)) (setq ee (+ a1 r)) (profil_GIP) ) ;********************************************************************** ; ***************************************** ; * GENERATEUR DE IPEA * ; ***************************************** (defun profil_ipa (/ plan) (setq hh (atoi (substr c 1 3))) (setq h (atof (substr c 5 5))) (setq b (atof (substr c 11 3))) (setq a (atof (substr c 15 3))) (setq e (atof (substr c 19 4))) (setq r (atof (substr c 24 2))) (setq h1 (atoi (substr c 27 3))) (setq b1 (/ b 2)) (setq a1 (/ a 2)) (setq ee (+ a1 r)) (profil_GIP) ) ;********************************************************************** ; ***************************************** ; * GENERATEUR DE HEA * ; ***************************************** (defun profil_hea (/ plan) (setq hh (atoi (substr c 1 4)) h (atoi (substr c 6 3)) b (atof (substr c 10 3)) a (atof (substr c 14 4)) e (atof (substr c 19 4)) r (atof (substr c 24 2)) h1 (atoi (substr c 27 3)) b1 (/ b 2) a1 (/ a 2) ee (+ a1 r) ) (profil_GIP) ) ;********************************************************************** ; ***************************************** ; * GENERATEUR DE HEM * ; ***************************************** (defun profil_hem (/ plan) (setq hh (atoi (substr c 1 4)) h (atoi (substr c 6 4)) b (atof (substr c 11 3)) a (atof (substr c 15 4)) e (atof (substr c 20 4)) r (atof (substr c 25 2)) h1 (atoi (substr c 28 3)) b1 (/ b 2) a1 (/ a 2) ee (+ a1 r) ) (profil_GIP) ) ;********************************************************************** ; ***************************************** ; * GENERATEUR DE HEB * ; ***************************************** (defun profil_heb (/ plan) (setq h (atoi (substr c 6 4))) (setq b (atof (substr c 11 3))) (setq a (atof (substr c 15 4))) (setq e (atof (substr c 20 4))) (setq r (atof (substr c 25 2))) (setq h1 (atoi (substr c 28 3))) (setq b1 (/ b 2)) (setq a1 (/ a 2)) (setq ee (+ a1 r)) (profil_GIP) ) ;********************************************************************** ; ***************************************** ; * GENERATEUR DE IPN * ; ***************************************** (defun profil_ipn (/ plan alpha beta aa b2 UX UY 1X x2 y2 2X xu yu 2Y 1Y x3 y3 3X xv yv 3Y 4X 4Y) ;****EXTRAIRE LES DIMENSIONS DE LA BASE DE DONNEE** (setq h (atoi (substr c 1 3))) (setq b (atof (substr c 5 3))) (setq a (atof (substr c 9 4))) (setq e (atof (substr c 14 4))) (setq r (atof (substr c 19 4))) (setq r1 (atof (substr c 24 4))) (setq h1 (atoi (substr c 29 3))) ;**** EQUATION************************************ (setq b2 (/ b 2)) (setq alpha (atan 0.14)) (setq beta (atan 7.142857143)) (setq aa (* beta (/ 180 pi) -1)) ;(setq aa (- 0 aa)) (setq UX (/ b2 2)) (setq UY (- (/ h 2) e)) (setq 1X (/ a 2)) (setq x2 (* r (cos beta))) (setq y2 (* r (sin beta))) (setq 2X (- (+ 1X r) x2)) (setq xu (- UX 2X)) (setq yu (* xu 0.14)) (setq 2Y (- UY yu)) (setq 1Y (- 2Y y2)) (setq x3 (- r1 (* r1 (cos beta)))) (setq y3 (* r1 (sin beta))) (setq 3X (- b2 x3)) (setq xv (- 3X UX)) (setq yv (* xv 0.14)) (setq 3Y (+ UY yv)) (setq 4X b2) (setq 4Y (+ 3Y y3)) ;************* CONTOUR (if pt_i_fer (setq pc pt_i_fer) (setq pc (getpoint "Point d'insertion :")) ) (setvar "osmode" 0) (setq pt_i pc) (setq pt_cen (setq pt_i pc)) (setq pt_bg (polar (polar pc (der 0) (/ b 2)) (der 90) (/ h 2))) (setq pt_bc (polar pc (der 90) (/ h 2))) (setq pt_bd (polar (polar pc (der 180) (/ b 2)) (der 90) (/ h 2))) (setq pt_cc (polar pc (der 0) (/ b 2))) (setq pt_hg (polar pt_bg (der 270) h)) (setq pt_hc (polar pt_bc (der 270) h)) (setq pt_hd (polar pt_bd (der 270) h)) (rech_pti) (setq pt1 (polar pc (der 180) (/ a 2))) (setq pt1 (polar pt1 (der 90) 1Y)) (setq pt2 (polar pc (der 90) 2Y)) (setq pt2 (polar pt2 (der 180) 2X)) (setq pt3 (polar pc (der 90) 3Y)) (setq pt3 (polar pt3 (der 180) 3X)) (setq pt4 (polar pc (der 90) 4Y)) (setq pt4 (polar pt4 (der 180) 4X)) (setq or1 (polar pt3 (der 180) r1)) (setq ptu (polar pc (der 180) UX)) (setq ptu (polar ptu (der 90) UY)) (setq pt5 (polar pc (der 90) (/ h 2))) (setq pt5 (polar pt5 (der 180) b2)) (setq pt6 (polar pt5 (der 0) B)) (setq pt7 (polar pt4 (der 0) B)) (setq or2 (polar pt7 (der 270) r1)) (setq pt8 (polar pc (der 90) 3Y)) (setq pt8 (polar pt8 (der 0) 3X)) (setq pt9 (polar pc (der 90) 2Y)) (setq pt9 (polar pt9 (der 0) 2X)) (setq pt10 (polar pc (der 0) (/ a 2))) (setq pt10 (polar pt10 (der 90) 1Y)) (setq pt11 (polar pc (der 0) (/ a 2))) (setq pt11 (polar pt11 (der 270) 1Y)) (setq pt12 (polar pc (der 270) 2Y)) (setq pt12 (polar pt12 (der 0) 2X)) (setq pt13 (polar pc (der 270) 3Y)) (setq pt13 (polar pt13 (der 0) 3X)) (setq pt14 (polar pc (der 270) 4Y)) (setq pt14 (polar pt14 (der 0) 4X)) (setq or3 (polar pt13 (der 0) r1)) (setq pt15 (polar pt6 (der 270) h)) (setq pt16 (polar pt15 (der 180) B)) (setq pt17 (polar pc (der 270) 4Y)) (setq pt17 (polar pt17 (der 180) 4X)) (setq or4 (polar pt17 (der 90) r1)) (setq pt18 (polar pc (der 270) 3Y)) (setq pt18 (polar pt18 (der 180) 3X)) (setq pt19 (polar pc (der 270) 2Y)) (setq pt19 (polar pt19 (der 180) 2X)) (setq pt20 (polar pc (der 180) (/ a 2))) (setq pt20 (polar pt20 (der 270) 1Y)) ;*******-TRACER****** (setvar "osmode" 0) (command "_.pline" pt1 "_w" 0 "" "A" "R" r pt2 "LI" pt3 "A" "DI" or1 pt4 "LI" pt4 pt5 pt6 pt7 "A" "DI" or2 PT8 "LI" pt9 "A" "R" r pt10 "LI" pt11 "A" "R" r pt12 "LI" pt13 "A" "DI" or3 pt14 "LI" pt15 pt16 pt17 "A" "DI" or4 pt18 "LI" pt19 "A" "R" r pt20 "LI" "c") (profil_rot) ) ;***************************************************************************** ; ***************************************** ; * GENERATEUR DE UAP * ; ***************************************** (defun profil_uap (/ plan) (setq h (atoi (substr c 1 3))) (setq b (atof (substr c 5 3))) (setq a (atof (substr c 9 3))) (setq e (atof (substr c 13 5))) (setq r e) (setq h1 (atoi (substr c 27 3))) ; (if pt_i_fer (setq pc pt_i_fer) (setq pc (getpoint "Point d'insertion :")) ) (setvar "osmode" 0) (setq pt_i pc) (setq pt_cen (setq pt_i pc)) (setq pt_bg (polar pc (der 0) (/ h 2))) (setq pt_bc (setq pt_i pc)) (setq pt_bd (polar pc (der 180) (/ h 2))) (setq pt_cc (polar pt_bg (der 270) (/ b 2))) (setq pt_hg (polar pt_bd (der 270) (/ b 2))) (setq pt_hc (polar pt_bg (der 270) B)) (setq pt_hd (polar pt_bd (der 270) B)) (rech_pti) (setq pt1 (polar pc (der 180) (/ h 2))) (setq pt2 (polar pt1 (der 90) b )) (setq pt3 (polar pt2 (der 0) e )) (setq pt4 (polar pt3 (der 270) (- b (+ a r)))) (setq pt5 (polar pt4 (der 270) r)) (setq pt5 (polar pt5 (der 0) r)) (setq pt6 (polar pt5 (der 0) (- h (+ e e r r)))) (setq pt7 (polar pt6 (der 90) r)) (setq pt7 (polar pt7 (der 0) r)) (setq pt8 (polar pt7 (der 90) (- b (+ a r)))) (setq pt9 (polar pt8 (der 0) e)) (setq pt10 (polar pt9 (der 270) B)) ; (setvar "osmode" 0) (command "_.pline" pt1 "_w" 0 "" pt2 pt3 pt4 "A" "r" r pt5 "LI" pt6 "A" "r" r pt7 "LI" pt8 pt9 pt10 "c") (profil_rot) ) ;***************************************************************************** ; ***************************************** ; * GENERATEUR DE UPE * ; ***************************************** (defun profil_upe (/ plan) (setq h (atoi (substr c 1 3))) (setq b (atof (substr c 5 3))) (setq a (atof (substr c 9 4))) (setq e (atof (substr c 14 4))) (setq r (atof (substr c 19 2))) (setq h1 (atoi (substr c 22 3))) ; (if pt_i_fer (setq pc pt_i_fer) (setq pc (getpoint "Point d'insertion :")) ) (setvar "osmode" 0) (setq pt_i pc) (setq pt_cen (setq pt_i pc)) (setq pt_bg (polar pc (der 0) (/ h 2))) (setq pt_bc (setq pt_i pc)) (setq pt_bd (polar pc (der 180) (/ h 2))) (setq pt_cc (polar pt_bg (der 270) (/ b 2))) (setq pt_hg (polar pt_bd (der 270) (/ b 2))) (setq pt_hc (polar pt_bg (der 270) B)) (setq pt_hd (polar pt_bd (der 270) B)) (rech_pti) (setq pt1 (polar pc (der 180) (/ h 2))) (setq pt2 (polar pt1 (der 90) b )) (setq pt3 (polar pt2 (der 0) e )) (setq pt4 (polar pt3 (der 270) (- b (+ a r)))) (setq pt5 (polar pt4 (der 270) r)) (setq pt5 (polar pt5 (der 0) r)) (setq pt6 (polar pt5 (der 0) (- h (+ e e r r)))) (setq pt7 (polar pt6 (der 90) r)) (setq pt7 (polar pt7 (der 0) r)) (setq pt8 (polar pt7 (der 90) (- b (+ a r)))) (setq pt9 (polar pt8 (der 0) e)) (setq pt10 (polar pt9 (der 270) B)) ; (setvar "osmode" 0) (command "_.pline" pt1 "_w" 0 "" pt2 pt3 pt4 "A" "r" r pt5 "LI" pt6 "A" "r" r pt7 "LI" pt8 pt9 pt10 "c") (profil_rot) ) ; ***************************************** ; * GENERATEUR DE UPN * ; ***************************************** (defun profil_upn () (setq h (atoi (substr c 1 3))) (setq b (atof (substr c 5 3))) (setq a (atof (substr c 9 4))) (setq e (atof (substr c 14 4))) (setq r (atof (substr c 19 4))) (setq r1 (atof (substr c 24 3))) (setq h1 (atof (substr c 28 3))) ; (setq alpha 0.07982998571) (setq beta (- (/ pi 2) alpha)) (setq x1 (* r (sin beta))) (setq y1 (- r (* r (cos beta)))) (setq x2 (* r1 (sin beta))) (setq y2 (- r1 (* r1 (cos beta)))) (setq 1x(/ h 2)) (setq xx(- 1x e)) (setq yy(/ b 2)) (setq u(- (/ b 2) y2)) (setq v(* u 0.08)) ; (if pt_i_fer (setq pc pt_i_fer) (setq pc (getpoint "Point d'insertion :")) ) (setvar "osmode" 0) (setq pt_cen (setq pt_i pc)) (setq pt_bg (polar pc (der 0) (/ h 2))) (setq pt_bc (setq pt_i pc)) (setq pt_bd (polar pc (der 180) (/ h 2))) (setq pt_cc (polar pt_bg (der 270) (/ b 2))) (setq pt_hg (polar pt_bd (der 270) (/ b 2))) (setq pt_hc (polar pt_bg (der 270) B)) (setq pt_hd (polar pt_bd (der 270) B)) (rech_pti) (setq pt1 (polar pc (der 180) 1x)) (setq pt2 (polar pt1 (der 90) B)) (setq pt6 (polar pc (der 180) (/ h1 2))) (setq pt6 (polar pt6 (der 90) a)) (setq pt5 (polar pt6 (der 180) x1)) (setq pt5 (polar pt5 (der 90) y1)) (setq p1 (polar pc (der 180) (- 1x e))) (setq p1 (polar p1 (der 90) (/ b 2))) (setq pt4 (polar p1 (der 180) v)) (setq pt4 (polar pt4 (der 90) u)) (setq pt3 (polar pt4 (der 180) x2)) (setq pt3 (polar pt3 (der 90) y2)) (setq po1 (polar pt3 (der 0) r1)) (setq pt12 (polar pc (der 0) 1x)) (setq pt11 (polar pt12 (der 90) B)) (setq pt7 (polar pc (der 0) (/ h1 2))) (setq pt7 (polar pt7 (der 90) a)) (setq pt8 (polar pt7 (der 0) x1)) (setq pt8 (polar pt8 (der 90) y1)) (setq p2 (polar pc (der 0) (- 1x e))) (setq p2 (polar p2 (der 90) (/ b 2))) (setq pt9 (polar p2 (der 0) v)) (setq pt9 (polar pt9 (der 90) u)) (setq pt10 (polar pt9 (der 0) x2)) (setq pt10 (polar pt10 (der 90) y2)) (setq po2 (polar pt10 (der 180) r1)) ; (setvar "osmode" 0) (command "_.pline" pt1 "_w" 0 "" "_w" 0 "" pt2 pt3 "a" "DI" po1 pt4 "LI" p1 pt5 "A" "R" r pt6 "LI" pt7 "A" "R" r pt8 "LI" p2 pt9 "a" "DI" po2 pt10 "LI" pt11 pt12 "c") (profil_rot) ) ; ***************************************** ; * GENERATEUR DE PFU * ; ***************************************** (defun profil_pfu () (setq h (atoi (substr c 1 2))) (setq b (atof (substr c 4 4))) (setq a (atof (substr c 9 1))) (setq e (atof (substr c 11 3))) (setq r (atof (substr c 15 3))) (setq r1 (atof (substr c 19 4))) (setq h1 (atof (substr c 24 5))) ; (setq alpha 0.07982998571) (setq beta (- (/ pi 2) alpha)) (setq x1 (* r (sin beta))) (setq y1 (- r (* r (cos beta)))) (setq x2 (* r1 (sin beta))) (setq y2 (- r1 (* r1 (cos beta)))) (setq 1x(/ h 2)) (setq xx(- 1x e)) (setq yy(/ b 2)) (setq u(- (/ b 2) y2)) (setq v(* u 0.08)) ; (if pt_i_fer (setq pc pt_i_fer) (setq pc (getpoint "Point d'insertion :")) ) (setvar "osmode" 0) (setq pt_cen (setq pt_i pc)) (setq pt_bg (polar pc (der 0) (/ h 2))) (setq pt_bc (setq pt_i pc)) (setq pt_bd (polar pc (der 180) (/ h 2))) (setq pt_cc (polar pt_bg (der 270) (/ b 2))) (setq pt_hg (polar pt_bd (der 270) (/ b 2))) (setq pt_hc (polar pt_bg (der 270) B)) (setq pt_hd (polar pt_bd (der 270) B)) (rech_pti) (setq pt1 (polar pc (der 180) 1x)) (setq pt2 (polar pt1 (der 90) B)) (setq pt6 (polar pc (der 180) (/ h1 2))) (setq pt6 (polar pt6 (der 90) a)) (setq pt5 (polar pt6 (der 180) x1)) (setq pt5 (polar pt5 (der 90) y1)) (setq p1 (polar pc (der 180) (- 1x e))) (setq p1 (polar p1 (der 90) (/ b 2))) (setq pt4 (polar p1 (der 180) v)) (setq pt4 (polar pt4 (der 90) u)) (setq pt3 (polar pt4 (der 180) x2)) (setq pt3 (polar pt3 (der 90) y2)) (setq po1 (polar pt3 (der 0) r1)) (setq pt12 (polar pc (der 0) 1x)) (setq pt11 (polar pt12 (der 90) B)) (setq pt7 (polar pc (der 0) (/ h1 2))) (setq pt7 (polar pt7 (der 90) a)) (setq pt8 (polar pt7 (der 0) x1)) (setq pt8 (polar pt8 (der 90) y1)) (setq p2 (polar pc (der 0) (- 1x e))) (setq p2 (polar p2 (der 90) (/ b 2))) (setq pt9 (polar p2 (der 0) v)) (setq pt9 (polar pt9 (der 90) u)) (setq pt10 (polar pt9 (der 0) x2)) (setq pt10 (polar pt10 (der 90) y2)) (setq po2 (polar pt10 (der 180) r1)) ; (setvar "osmode" 0) (command "_.pline" pt1 "_w" 0 "" "_w" 0 "" pt2 pt3 "a" "DI" po1 pt4 "LI" p1 pt5 "A" "R" r pt6 "LI" pt7 "A" "R" r pt8 "LI" p2 pt9 "a" "DI" po2 pt10 "LI" pt11 pt12 "c") (profil_rot) ) ;********************************************************************** ; ***************************************** ; * SOUS PROGRAMME DE ROTATION * ; ***************************************** (defun profil_rot () (setvar "osmode" ini_obj) (if (= rotation "pause") (command "_rotate" "_l" "" pt_i pause) (command "_rotate" "_l" "" pt_i rotation) ) (setvar "orthomode" ini_ortho) (if (= bloc_action 1) (aplic_bloc)) (command "_.redraw") ) ;********************************************************************** ;**********mise a 0 des cases (defun mise_zero () (setq rot1 0) (setq rot2 0) (setq rot3 0) (setq rot4 0) (setq rot5 0) (setq rot6 0) (setq rot7 0) (set_tile "rot1" "0") (set_tile "rot2" "0") (set_tile "rot3" "0") (set_tile "rot4" "0") (set_tile "rot5" "0") (set_tile "rot6" "0") (set_tile "rot7" "0") ) ;**********selection** (defun selec_1 () (mise_zero) (set_tile "rot1" "1") (setq rotation "0")) (defun selec_2 () (mise_zero) (set_tile "rot2" "1") (setq rotation "45")) (defun selec_3 () (mise_zero) (set_tile "rot3" "1") (setq rotation "90")) (defun selec_4 () (mise_zero) (set_tile "rot4" "1") (setq rotation "pause")) (defun selec_5 () (mise_zero) (set_tile "rot5" "1") (setq rotation "180")) (defun selec_6 () (mise_zero) (set_tile "rot6" "1") (setq rotation "-45")) (defun selec_7 () (mise_zero) (set_tile "rot7" "1") (setq rotation "-90")) (defun CBLOC () (if (= "?" type_fer) (progn (alert "AUCUNE SELECTION N'A ETE FAITE") (set_tile "cbloc" "0") ) (progn (setq nom_bl (strcat fer type_fer)) (nombbloc) (if (= bloc_action 0) (progn (setq bloc_action 1) (setq filtre nom_bl) (comparatif) (set_tile "cbloc" "1") (set_tile "nomdubloc" nom_bl) (setq oui nil) ) (progn (set_tile "nomdubloc" "aucun") (setq bloc_action 0) ) ) ) ) ) (defun def_BLOC (/ value) (if (= "?" type_fer) (progn (alert "AUCUNE SELECTION N'A ETE FAITE") (set_tile "cbloc" "0") ) (progn (setq oui nil) (setq nom_bl (strcat fer type_fer)) (nombbloc) (def_BLOC2) (setq filtre (strcat fer "*")) (rech_bloc) (set_tile "filtre_b" filtre) (set_tile "nomdubloc" nom_bl) ) ) ) (defun def_BLOC2 (/ value) (setq bloc_action 1) (set_tile "cbloc" "1") (new_dialog "list_bloc" sc_dcl_id) (rech_bloc) (set_tile "nom_bl" nom_bl) (action_tile "filtre_b" "(new_filtre $value)") (action_tile "nom_bl" "(nom_blo $value)") (action_tile "list_bloc" "(new_bloc $value)") (start_dialog) ) (defun new_filtre (value) (setq filtre (xstrcase $value)) (rech_bloc) ) (defun nom_blo () (setq nom_bl (xstrcase $value)) (setq filtre nom_bl) (rech_bloc) (if (/= nb_bloc 0) (alerte)) ) (defun alerte () (setq oui nil) (new_dialog "redefinir" sc_dcl_id) (action_tile "yes" "(setq oui 1)(done_dialog 2)") ;(action_tile "no" "(nombbloc)(done_dialog 2)") (start_dialog) ) (defun nombbloc () (setq nom_bl2 nom_bl) (setq nbre2 0) (setq filtre nom_bl) (comparatif) (while (/= nb_bloc 0) (setq nbre2 (+ nbre2 1)) (setq nbre (itoa nbre2)) (setq nom_bl (strcat nom_bl2 "_" nbre)) (setq filtre nom_bl) (comparatif) (setq filtre (strcat fer type_fer "*")) ) ) (defun new_bloc (value) (setq nomblocinit nom_bl) (setq sel value) (setq rech 0) (while (/= rech (atoi sel)) (setq selec_list_bl (cdr selec_list_bl)) (setq rech (+ rech 1)) ) (setq selec_list_bl (car selec_list_bl)) (if (/= nil selec_list_bl) (progn (set_tile "nom_bl" selec_list_bl) (setq nom_bl selec_list_bl) (alerte) ) ) ) ;****************aplic bloc (defun aplic_bloc () (setvar "osmode" 0) (if (not oui) (command "_block" nom_bl pt_i "_last" "") (command "_block" nom_bl "_y" pt_i "_last" "") ) (command "_insert" nom_bl pt_i 1 1 0 ) (setvar "osmode" ini_obj) ) ;*******recherche bloc*** (defun rech_bloc () (setq liste_bloc '()) (setq filtre (strcase filtre)) (set_tile "filtre_b" filtre) (comparatif) (start_list "list_bloc") (mapcar 'add_list liste_bloc) (end_list) (setq selec_list_bl liste_bloc) ;(set_tile "filtre_b" filtre) ) (defun comparatif () (setq liste_bloc '()) (setq enti_bloc (tblnext "block" t)) (while (/= enti_bloc nil) (setq nom_bloc (cdr (assoc 2 enti_bloc))) (setq teste (wcmatch nom_bloc filtre)) (if (= teste t) (setq liste_bloc (cons nom_bloc liste_bloc)) ) (setq enti_bloc (tblnext "block")) ) (setq nb_bloc (length liste_bloc)) ) ;*********************image point d'incertion (defun ip_image () (setq imag "imag1") (setq clicher "ie_cg") (profil_image) (setq imag "imag2") (setq clicher "ie_bg") (profil_image) (setq imag "imag3") (setq clicher "ie_bc") (profil_image) (setq imag "imag4") (setq clicher "ie_bd") (profil_image) (setq imag "imag5") (setq clicher "ie_gg") (profil_image) (setq imag "imag6") (setq clicher "ie_hg") (profil_image) (setq imag "imag7") (setq clicher "ie_hc") (profil_image) (setq imag "imag8") (setq clicher "ie_hd") (profil_image) ) (defun h_image () (setq imag "imag1") (setq clicher "ha_cg") (profil_image) (setq imag "imag2") (setq clicher "ha_bg") (profil_image) (setq imag "imag3") (setq clicher "ha_bc") (profil_image) (setq imag "imag4") (setq clicher "ha_bd") (profil_image) (setq imag "imag5") (setq clicher "ha_gg") (profil_image) (setq imag "imag6") (setq clicher "ha_hg") (profil_image) (setq imag "imag7") (setq clicher "ha_hc") (profil_image) (setq imag "imag8") (setq clicher "ha_hd") (profil_image) ) (defun u_image () (setq imag "imag1") (setq clicher "un_cg") (profil_image) (setq imag "imag2") (setq clicher "un_bg") (profil_image) (setq imag "imag3") (setq clicher "un_bc") (profil_image) (setq imag "imag4") (setq clicher "un_bd") (profil_image) (setq imag "imag5") (setq clicher "un_gg") (profil_image) (setq imag "imag6") (setq clicher "un_gd") (profil_image) (setq imag "imag7") (setq clicher "un_hg") (profil_image) (setq imag "imag8") (setq clicher "un_hd") (profil_image) ) (defun c_image () (setq imag "imag1") (setq clicher "l_cg") (profil_image) (setq imag "imag2") (setq clicher "l_bg") (profil_image) (setq imag "imag3") (setq clicher "l_bc") (profil_image) (setq imag "imag4") (setq clicher "l_bd") (profil_image) (setq imag "imag5") (setq clicher "l_gg") (profil_image) (setq imag "imag6") (setq clicher "l_gb") (profil_image) (setq imag "imag7") (setq clicher "l_hg") (profil_image) (setq imag "imag8") (setq clicher "l_gc") (profil_image) ) ;*************image (defun point_inser () (setq selec_cancel selec_imag) (setq list_imag '()) (if (not (new_dialog "insert" sc_dcl_id)) (exit)) (if (= image_fer "ip") (ip_image)) (if (= image_fer "h") (h_image)) (if (= image_fer "u") (u_image)) (if (= image_fer "c") (c_image)) (action_tile "imag1" "(setq selec_imag 8)") (action_tile "imag2" "(setq selec_imag 7)") (action_tile "imag3" "(setq selec_imag 6)") (action_tile "imag4" "(setq selec_imag 5)") (action_tile "imag5" "(setq selec_imag 4)") (action_tile "imag6" "(setq selec_imag 3)") (action_tile "imag7" "(setq selec_imag 2)") (action_tile "imag8" "(setq selec_imag 1)") (action_tile "cancel" "(setq selec_imag selec_cancel)") (start_dialog) (setq nb_imag 1) (while (/= nb_imag selec_imag) (setq list_imag (cdr list_imag)) (setq nb_imag (+ nb_imag 1)) (if (= nb_imag 10) (setq nb_imag selec_imag)) ) (setq imag "m_imag") (setq clicher (car list_imag)) (profil_image) ) (defun profil_image () (setq list_imag (cons clicher list_imag)) (setq x (dimx_tile imag) y (dimy_tile imag)) (start_image imag) (fill_image 0 0 x y 0) (slide_image 0 0 x y (strcat "gene_pro.slb ("clicher")")) (end_image) ) (defun profil_menu_image () (setq imag "m_imag") (setq selec_imag 8) (if (= image_fer "ip") (setq clicher "ie_cg")) (if (= image_fer "h") (setq clicher "ha_cg")) (if (= image_fer "u") (setq clicher "un_cg")) (if (= image_fer "c") (setq clicher "l_cg")) (profil_image) ) (defun rech_pti () (if (= selec_imag 8) (setq pc pt_cen)) (if (= selec_imag 7) (setq pc pt_bg)) (if (= selec_imag 6) (setq pc pt_bc)) (if (= selec_imag 5) (setq pc pt_bd)) (if (= selec_imag 4) (setq pc pt_cc)) (if (= selec_imag 3) (setq pc pt_hg)) (if (= selec_imag 2) (setq pc pt_hc)) (if (= selec_imag 1) (setq pc pt_hd)) ) ;***** Affichage entête ***** (defun profil_info ( / Fich Nbre Ligne Msg) (setq Fich (open (findfile "profil.lsp") "r") Nbre 0 Msg (read-line Fich) Msg (substr Msg 2 (1- (strlen Msg))) ) (while (/= Nbre 5) (setq Ligne (read-line Fich) Ligne (substr Ligne 2 (1- (strlen Ligne))) Msg (strcat Msg "\n" Ligne) Nbre (1+ Nbre) ) ) (close Fich) (alert Msg) ) (prompt "Profil.lsp chargé. Tapez PROFIL") (princ)

Salut j'ai un petit soucis avec le LISP PROFIL. Je le lance comme je faisait avant, mais la il me dit : "Erreur survenue dans le programme Générateur de profil : quitter / sortir abandon" Une idée?

Bonjour, Je cherche à savoir si c'est possible d'ajouter une table de blocs par état de visibilité. Le but rechercher : -VANNE RBS -MATIERE -DIAMETRE -VANNE PAP -MATIERE -DIAMETRE -RACCORD UNION FF -MATIERE -DIAMETRE Etc Voila en gros le type (Vanne RBS, Vanne PAP, Raccord) sont choisis via la visibilité, et ensuite ma table de bloc apparait par état avec la matière puis-> le diamètre. Je pense que ce n'est pas possible mais si quelqu'un a déjà fait je veux bien un bloc en exemple. En lien le bloc à son état actuel :) LIEN EDIT : Ou est il possible de définir plus de paramètres dans les tables de blocs (lors du clic sur la table, elle me permet d'aller chercher deux paramétres (MATIERE et DIAMETRE)), est ce que l'on peux demander 3 paramètres?

Salut, Rien à voir avec ta question. Est ce qu'un état d'affichage ne gére pas les xréf? Cordialement

Salut, Alors plusieurs remarques : -Ton dessin est en grades. -Pas de soucis pour l'insérer depuis la palette ou i . Cordialement

Salut, Dans : ->AFFICHAGE ->STYLE VISUEL ->GESTIONNAIRE DE STYLE VISUEL ->**TON STYLE VISUEL** décoche le fait de faire apparaître les "iso-lignes" dans "paramètres d'arêtes"

Fait un wetransfert ou autre et met un lien :huh:

Salut, Peux tu partager ton bloc? Cordialement

Oui quand je dit désinstaller -> forcer AutoCAD à utiliser la CG . Sinon au bout d'une heure t'a plus de batterie

Salut Didier, Alors j'y connais rien en C# mais en commande ça donne : SCU -> choisir une face d'objet (3D) ou deux points ->donc F ou juste deux clics _plan -> pour se mettre suivant le SCU courant -> C pour le courant. Je sais pas sir ça peux aider mais sais t'on jamais.

Salut, Pourquoi ne pas avoir désinstallé le chipset si tu a une carte graphique? Cela forcerait AutoCAD à utiliser la CG au lieu du chipset.

Salut, 1 - Les cartouches sont créés de quels manières? 2 - Est ce que ce ne serait pas un soucis liés à une échelle (dans un logiciel ou l'autre) et qui n'est pas pris en compte par l'autre logiciel (ou qu'une partie)? Ex : tu met une échelle de 3 dans inventor sur un texte et dans autocad il prend l'échelle de 3 mais uniquement sur l'axe x. Cordialement

Bonjour, Il faut que le fichier exporter sois fait dans cette optique. Il me parait impossible (avec inventor) de modifier cela une fois le STEP réalisé.