-=micka=-

Bonjour, je ne sais pas si tu as pu résoudre ton souci Sandrine, mais au cas où, une solution: à partir d'un dwg si tu possèdes la version 7 de Google sketchup (GS) + un module d'importation de dwg (AllowDWGImportInSketchUp7)qui était gratos à l'époque!!!! Tu pourras récupérer ta modélisation 3D. Tes solides 3d seront transformer en groupe sous GS Plus qu'a enregistrer et l'ouvrir avec le dernier Sketchup pour bénéficier des dernières options Je m'en sers assez régulièrement, c'est pas mal. J'ai encore les .exe si quelqu'un veut Mick

Merci Phil c'est déja pas mal au moins mes nouveaux plans seront nickel, je vais être un peu plus exigeant dsl ;-) mais existe t-il un moyen de modifier les LRM déja créées? merci -=micka=-

Bonjour, j'aimerais savoir s'il y a un moyen de définir l'état du masque d'arrière plan des lignes de repère multiples soit dans les styles de LRM SVP ou si quelqu'un a développé un LISP permettant de rajouter ou non ce masque à toutes les LRM d'un dessins. merci pour vos infos cordialement =-MICKA=-

merci beaucoup salvanorigatore c'est nickel!! :D :D

Oups!! après une fausse manip j'ai publier 3 fois le même post... :( mais je n'arrive pas à supprimer les 2 en trop!! si quelqu'un m'indiquer comment faire svp

Bonjour à tous! je suis à la recherche d'un LISP de patrick_35, j'ai cru comprendre que son ancien blog avait été piraté et que le nouveau ne possédait pas encore tous ses anciens Lisp. Pour en venir au fait je recherche le LISP dénommé: " RBLOC V2.22 " Si quelqu'un sait où je peut le trouver cela m'interresse fortement, ou si une âme charitable veut bien me l'envoyer je serai vraiment trés enjoué! :D merci bonne journée

Bonjour à tous! je suis à la recherche d'un LISP de patrick_35, j'ai cru comprendre que son ancien blog avait été piraté et que le nouveau ne possédait pas encore tous ses anciens Lisp. Pour en venir au fait je recherche le LISP dénommé: " RBLOC V2.22 " Si quelqu'un sait où je peut le trouver cela m'interresse fortement, ou si une âme charitable veut bien me l'envoyer je serai vraiment trés enjoué! :D merci bonne journée

Bonjour à tous! je suis à la recherche d'un LISP de patrick_35, j'ai cru comprendre que son ancien blog avait été piraté et que le nouveau ne possédait pas encore tous ses anciens Lisp. Pour en venir au fait je recherche le LISP dénommé: " RBLOC V2.22 " Si quelqu'un sait où je peut le trouver cela m'interresse fortement, ou si une âme charitable veut bien me l'envoyer je serai vraiment trés enjoué! :D merci bonne journée

Bonjour, n'y a t-il pas de réponse à ce sujet 4 ans après?? ;) merci Mickael

SUPER!!! celle-ci était passer entre les mailles du filet quand je suis aller voir sur la page de tes lisp. Merci encore ça marche nickel!! Mes compliments ;) A+

Bonjour cadxpienes cadxpiens, j'aimerais savoir s'il existe un outils ou une routine pour modifier la valeur d'un (ou plusieurs) attibuts d'un bloc qui est présent dans plusieurs présentations. j'ai essayé de me servir du lisp de Patrick: "LXL" mais il considère que les blocs (identiques au niveau du nom) présents dans différentes présentations d'un dwg ne sont pas le même car lorsque je fais la mis a jour d'excel vers autocad il ne me change que les valeurs des attributs du bloc sélectionné. Merci pour vos lumières, cdt Mickael

si si en alternance donc c'est moitié moitié, ben y'en a qui le pense, même si une fois la formation finie on ne touchera certainement plus jamais à la programmation pour la plupart en fin bref, c'était quand même bien "amusant" même si je me suis bien pris la tête dessus!! amicalement! micka

salut, didier je ne le prends pas mal, mais sache que parfois certain n'ont pas le choix de se "lancer" dans la programmation (je parle pour moi entre autre) quand on a des cours assez sommaire dessus, et qu'après on nous dit de créer un programme, il faut se jeter a l'eau et se "lancer" alors on fouille sur internet, sur l'aide d'autocad, mais parfois on est obligé de demander ... la preuve. cordialement micka ;)

Merci bonuscad!! c'était ça le soucis, la valeur était à 0. Bonne journée :P

Bonjour, bon j'ai fait le test mais c'est pas la variable "ATTECRAN" qui fait que les attributs ne se remplissent pas seulement sur mon poste au boulo. :( help!!

merci tramber pour ta, reponse, je regarderai demain au boulo si c'est ça! sinon oui les valeurs des variables sont des string :D bonne soirée, PS: si d'autres ont des idées je suis à l'écoute merci

Bonjour, j'aurais une nouvelle question à vous poser, car j'ai un petit soucis: j'ai créé un lisp, qui fait la nomenclature de blocs dans mon dessin, en renseignant les attribut d'un bloc au moment de son insertion. Dans le lisp: je sélectione mes blocs avec des jeux de selection, le lisp fait quelques calculs pour savoir le bon nombre de blocs, et je mets ces nombres dans des varibles, qui lors de l'insertion du bloc de la nomenclature viennent remplir les champs des attributs. Le soucis c'est que sur mon pc portable tout va bien le tableau se remplit et au boulot le tableau reste vide, je me demande si cela ne dépendrait pas d'une variable système que mon lisp ne gère pas!!? au cas où je met le code de l'insertion du bloc, y'a peut etre une erreur: (command "_.insert" "Tableau commande" p0tableau 10 10 0 "" "" "" "" "" "" "" "" "" "" "" nb_3*2 nb_3*1 nb_3*05 nb_2*2 nb_2*1 nb_2*05 nb_1*2 nb_1*1 nb_1*05 nb_05*2 nb_05*1 nb_05*05 "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ) nb3*1, nb3*1, .... sont mes variables qui contiennent le nombre de mes blocs j'ai mis des point d'arret avec des espions, tout ce déroule normalement mais dans autocad, les champs restent vide merci pour votre aide

rectification!!! tu avais raison!! c'est ce p***n d'accrochage aux objets qui me merdait mon programme, je savais que c'était un truc à la noix qui me plantait!!! MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI :P Je te dois une fière chandelle Bryce!! a+ bonne soirée

Bonjour, j'aurais besoin d'aide sur un sujet assez urgent, en effet mon lisp doit être opérationnel tés vite. désolé de vous presser!! voila mon soucis, j'ai créé une boite de dialogue avec des listes déroulantes qui gèrent le nombre de blocs qui s’insèrent. Sauf que j'ai une autre liste déroulante qui gère l'alignement de ces blocs entre deux point. Les trois alignement sont: à gauche, au milieu et à droite. l'alignement à gauche marche parfaitement, mais au milieu et a gauche cela ne marche pas. Je pense que le soucis se passe au niveau du point d'insertion qui ne change pas, enfin tant que le nombre des bloc est inférieur à 3, après ça marche bien. d'où mon incompréhension!!! si vous avez des idées??!! (defun inserer1 () ; insère les banches (setq largeur2m nbre_larg2m largeur1m nbre_larg1m largeur05m nbre_larg05m ) ;changement de variable pour le nombre de banche (if (= prescence 1) (command "_.undo" "_back" "o") ) ; test pour le retour en arrière (if (and (> flag 1) (/= qlface nil)) (command "_.undo" "_mark") ) ; pose une "marque" (setq pInsertion (list (car p0mur) (cadr p0mur) (caddr p0mur))) ; changement de variable pour le point d'insertion (setq pMilieu (list (- (car p0mur) (* (sin (- anglemur (* pi 0.5))) (* longmur 0.5)) ) (+ (cadr p0mur) (* (cos (- anglemur (* pi 0.5))) (* longmur 0.5)) ) (caddr p0mur) ) ) (setq pMilieu+90 (list (- (car pMilieu) (* (sin anglemur) (* longmur 0.5)) ) (+ (cadr pMilieu) (* (cos anglemur) (* longmur 0.5)) ) (caddr pMilieu) ) ) (if (= qlalign "Milieu") (setq pInsertion (list (- (car pInsertion) (* (sin (- anglemur (* pi 0.5))) (* restemur 0.5)) ) (+ (cadr pInsertion) (* (cos (- anglemur (* pi 0.5))) (* restemur 0.5)) ) (caddr pInsertion) ) ) ) (setq 1/2largeur05m (round (* largeur05m 0.5) 1)) ; divise le nombre de banches par deux et transforme en entier SUPERIEUR (while ; boucle pour insérer les banches (> 1/2largeur05m 0) ; les banches de 0.5m (progn (command "_.insert" "largeur_0_5m" pInsertion 1 1 (- (/ (* anglemur 180) pi) 90) ) ; insère les banches de 0.5m [b](setq pInsertion (list (- (car pInsertion) (* (sin (- anglemur (* pi 0.5))) 0.5)) (+ (cadr pInsertion) (* (cos (- anglemur (* pi 0.5))) 0.5) ) (caddr pInsertion) ) )[/b] ; déplace le point d'insertion pour les prochaines banches (setq 1/2largeur05m (- 1/2largeur05m 1)) ; enlève une unité de sous-hausse (if (= qlalign "Droite") (command "_.mirror" "d" "" pMilieu+90 pMilieu "o") ) ; effectue un miroir si l'alignement est à droite (if (= qlface "ghe") (command "_.mirror" "d" "" p0mur p1mur "o") ) ; effectue un mirroir si la face mesurée est celle de gauche (if (= nbre_face 2) (command "_.mirror" "d" "" p0axe p1axe "n") ) ; effectue un miroir si il y a 2 faces à coffrer ) ) (setq 1/2largeur1m (round (* largeur1m 0.5) 1)) ; divise le nombre de banches par deux et transforme en entier SUPERIEUR (while (> 1/2largeur1m 0) ; les banches de 1m (progn (command "_.insert" "largeur_1m" pInsertion 1 1 (- (/ (* anglemur 180) pi) 90) ) ; insère les banches de 1m (setq pInsertion (list (- (car pInsertion) (* (sin (- anglemur (* pi 0.5))) 1)) (+ (cadr pInsertion) (* (cos (- anglemur (* pi 0.5))) 1) ) (caddr pInsertion) ) ) ; déplace le point d'insertion pour les prochaines banches (setq 1/2largeur1m (- 1/2largeur1m 1)) ; enlève une unité de banche (if (= qlalign "Droite") (command "_.mirror" "d" "" pMilieu+90 pMilieu "o") ) ; effectue un miroir si l'alignement est à droite (if (= qlface "ghe") (command "_.mirror" "d" "" p0mur p1mur "o") ) ; effectue un mirroir si la face mesurée est celle de gauche (if (= nbre_face 2) (command "_.mirror" "d" "" p0axe p1axe "n") ) ) ; effectue un miroir si il y a 2 faces à coffrer ) (while (> largeur2m 0) ; les banches de 2m (progn (command "_.insert" "largeur_2m" pInsertion 1 1 (- (/ (* anglemur 180) pi) 90) ) ; insère les banches de 2m [b] (setq pInsertion (list (- (car pInsertion) (* (sin (- anglemur (* pi 0.5))) 2) ) (+ (cadr pInsertion) (* (cos (- anglemur (* pi 0.5))) 2) ) (caddr pInsertion) ) )[/b] ; déplace le point d'insertion pour les prochaines banches (setq largeur2m (- largeur2m 1)) ; enlève une unité de banche (if (= qlalign "Droite") (command "_.mirror" "d" "" pMilieu+90 pMilieu "o") ) ; effectue un miroir si l'alignement est à droite (if (= qlface "ghe") (command "_.mirror" "d" "" p0mur p1mur "o") ) ; effectue un mirroir si la face mesurée est celle de gauche (if (= nbre_face 2) (command "_.mirror" "d" "" p0axe p1axe "n") ) ) ; effectue un miroir SUIVANT AXE X si il y a 2 faces à coffrer ) (setq 2/2largeur1m (fix (* largeur1m 0.5))) ; divise le nombre de banches par deux et transforme en entier INFERIEUR (while (> 2/2largeur1m 0) ; les banches de 1m (progn (command "_.insert" "largeur_1m" pInsertion 1 1 (- (/ (* anglemur 180) pi) 90) ) ; insère les banches de 1m [b](setq pInsertion (list (- (car pInsertion) (* (sin (- anglemur (* pi 0.5))) 1)) (+ (cadr pInsertion) (* (cos (- anglemur (* pi 0.5))) 1) ) (caddr pInsertion) )[/b] ) ; déplace le point d'insertion pour les prochaines banches (setq 2/2largeur1m (- 2/2largeur1m 1)) ; enlève une unité de banche (if (= qlalign "Droite") (command "_.mirror" "d" "" pMilieu+90 pMilieu "o") ) ; effectue un miroir si l'alignement est à droite (if (= qlface "ghe") (command "_.mirror" "d" "" p0mur p1mur "o") ) ; effectue un mirroir si la face mesurée est celle de gauche (if (= nbre_face 2) (command "_.mirror" "d" "" p0axe p1axe "n") ) ) ; effectue un miroir si il y a 2 faces à coffrer ) (setq 2/2largeur05m (fix (* largeur05m 0.5))) ; divise le nombre de banches par deux et transforme en entier INFERIEUR (while ; boucle pour insérer les banches (> 2/2largeur05m 0) ; les banches de 0.5m (progn (command "_.insert" "largeur_0_5m" pInsertion 1 1 (- (/ (* anglemur 180) pi) 90) ) ; insère les banches de 0.5m [b] (setq pInsertion (list (- (car pInsertion) (* (sin (- anglemur (* pi 0.5))) 0.5)) (+ (cadr pInsertion) (* (cos (- anglemur (* pi 0.5))) 0.5) ) (caddr pInsertion) )[/b] ) ; déplace le point d'insertion pour les prochaines banches (setq 2/2largeur05m (- 2/2largeur05m 1)) ; enlève une unité de sous-hausse (if (= qlalign "Droite") (command "_.mirror" "d" "" pMilieu+90 pMilieu "o") ) ; effectue un miroir si l'alignement est à droite (if (= qlface "ghe") (command "_.mirror" "d" "" p0mur p1mur "o") ) ; effectue un mirroir si la face mesurée est celle de gauche (if (= nbre_face 2) (command "_.mirror" "d" "" p0axe p1axe "n") ) ; effectue un miroir si il y a 2 faces à coffrer ) ) (if (and (> flag 1) (/= qlface nil)) (setq prescence 1) ) (command "regen" "") ) le soucis ce trouve au niveau des ligne en gras (je crois), car comme je l'ai dit plus haut mes blocs s'insèrent au même point d'insertion dans certain cas, mais je comprends pas car le point d'insertion est changé à chaque insertion de bloc. est ce que juste en regardant ce bout du programme, vous pouvez m'aider? si il faut les blocs, ou le lisp et le dcl demandez car actuellement je n'arrive pas à mettre les fichiers en PJ. merci pour votre aide, si vous avez des questions n'hésitez pas!!!