Patrick_35

Salut Dans Verr/Unverr, tu remplaces displaylocked par viewporton @+

Salut Ce sont les mêmes. J'avais vérifié auparavant. @+

Salut Et bien en faisant évoluer le lisp ;) J'en ai profité pour ajouter le bouton annuler et en conséquence, faire fonctionner la croix rouge. Les liens sont mis à jour. @+

Merci pour ces précisions x_all, mais quand on fait les tests avec le luxmètre, ben c'est la nuit. Donc l'apport de l'extérieur ;) @+

Salut Merci C'est normal car je n'ai pas fait afficher le bouton cancel, ni gérer. Merci du retour, c'est corrigé dans le lien @+

Salut Merci pour tes renseignements. Je comprends qu'il vaut mieux utiliser la 4.12 (version plus familière et plus intuitive) que la 5.2 et en plus, les calculs sont plus fins. Une chose quand même surprenante est que je trouve moins de luminaires, un meilleur niveau d'éclairement pour un même local, même hauteur et mêmes facteurs de réflexions avec la 4.12 qu'avec le 5.2 :blink: @+

Ah merci. Mais c'est valable pour toutes les pièces ? Comment fais-tu pour des salles blanches, garages et parking ? L'autre est plus complet. Pourtant, en lisant le descriptif, il parait assez limité. Je vais essayer pour voir @+

Merci pour ta réponse, mais ce sont les facteurs de réflexions plafond/mur/sol que je recherche, et si possible par pièce. @+

Bonjour Au vu de l'image, on est sur le même logiciel et j'ai téléchargé sur la même page que celle que tu indiques (evo 5.2 mais dans l'à propos, on peut lire Version 5.5.2.26725) La deuxième version correspond à l'éclairage de sécurité et l'éclairage sportif, ce que ne m'intéresse pas pour le moment (calcul pour des locaux avec de l'étanche et des 600x600) Su la version précédente d'evo, on pouvait facilement indiquer nos facteurs de réflexions, mais sur evo, je ne trouve pas ces coefficients. @+

Bonjour Sur un nouveau PC, nous avons installé Dialux evo 5.5.2 Je connaissais la version précédente (4.??) et ça a sacrement évolué. Tellement que je n'arrive pas à retrouver les facteurs de réflexions (plafond, mur, sol) Si on pouvais m'indiquer où ils sont. @+

Salut Exact, je n'avais pas remarqué. J'ai oublié de déclarer une variable en local dans OOG. C'est corrigé (liens mis à jour) Par contre, je ne comprends pas le soucis avec MPL, car ça fonctionne correctement chez moi ? @+

Salut Pour cela, il faut que le lisp OOG soit chargé (même chose pour mim et mpl) @+

Salut Un sujet qui parle de grdraw avec plusieurs liens et plusieurs exemples. Ils parlent aussi de la couleur inversée. En espérant que tu y trouves ton bonheur. @+

Ah oui, bien vu :D Bravo @+

Salut (gile) a fait un super prog sur les xdatas @+

Salut Ou encore (setq Select (ssget "X" '((0 . "TEXT,MTEXT")))) Ou encore (setq Select (ssget "X" '((0 . "*TEXT")))) Mais prends aussi les Rtext @+

Zebulon m'a donné une idée avec le mapcar Donc une autre version plus courte (defun vl-pat2(ele lst) (setq i -1) (vl-remove nil (mapcar '(lambda(x)(setq i (1+ i))(if (eq x ele) i nil)) lst)) ) @+

Salut J'ai trouvé un peu de temps pour jouer aussi. Sans ticher et j'ai ensuite regardé plus en détail le lien que j'avais donné. Très proche de la routine index. (defun vl-pat(ele lst / der pos tab) (setq der -1) (while (setq pos (vl-position ele lst)) (setq der (+ pos der 1) tab (cons der tab) lst (cdr (member ele lst)) ) ) (reverse tab) ) @+

Salut Un sujet à lire @+

100% d'accord C'est aussi ce qui permet d'avancer Ce n'est pas grave, mais je ne comprenais plus où tu voulais en venir. Mais cela me fais aussi songer que tu n'as pas lu ma réponse à ce propos ou je n'ai pas été suffisament clair. La valeur est en radian. Pour vérifier, tu insères un bloc à 90° et tu regardes le code dxf (1.5708 soit pi/2) S'il y a une chose que je te conseillerai, ce serait d'écrire le code en testant ligne par ligne et regardant les résultats que d'écrire tout d'un seul bloc et de passer ensuite son temps à jouer aux 7 erreurs. C'est ce que je fais. Bout par bout et ensuite, on assemble. @+

Salut Il me semble t'avoir déjà donné la réponse, où une chose m'échappe. @+

Salut (or (findfile "c:\\Mon_rep") (vl-mkdir "c:\\Mon_rep")) @+

Bonsoir à vous deux Le lisp a l'air bon. Je ne comprends pas où est le problème ? J'avais testé avec de donner ma correction. @gile L'idée est de changer le nom d'un bloc pour le remplacer graphiquement, comme ça, on gade toutes ses caractéristiques mais dans le dessin, pas dans les définitions. Par contre, je te rejoins pour les blocs dynamiques. @+

Ah oui, je viens de trouver l'erreur Il faut virer (tblsearch "block" (car PosLstBlk)) car une recherche dans la table des blocs avec un nom de bloc ayant un caractère générique dans son nom, ben ça ne fonctionne pas (logique) @+

Salut Et ce cette manière ? (defun nombl (blo) (if (vlax-property-available-p blo 'effectivename) (vla-get-effectivename blo) (vla-get-name blo) ) ;_ Fin de if ) ;_ Fin de defun ;;; (setq LstBlk '(("EDF12*" . "Poteau_Bt") ("EAU12*" . "BoucheIncendie") ("EDF112*" . "Poteau_Cand") ("PTT12*" . "Poteau_Tel") ("EAU42*" . "Bouche") ("PLOT*" . "Poteau_Plot") ("GAZ22*" . "BoucheGaz") ) ) ;_ Fin de setq ;;;Début de la boucle (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (foreach PosLstBlk LstBlk (and (tblsearch "block" (car PosLstBlk)) (ssget "x" (list (cons 0 "insert"))) (progn (vlax-for ent (setq sel (vla-get-activeselectionset doc)) (and (wcmatch (nombl ent) (car PosLstBlk)) (vla-put-name ent (cdr PosLstBlk))) ) ;_ Fin de vlax-for (vla-delete sel) ) ;_ Fin de progn ) ;_ Fin de and ) ;_ Fin de foreach (vla-endundomark doc) @+