shergy

Désolé mais je n'ai ni le temps ni le courage en ce moment de faire tout ça pour faire apparaître une image dans mes posts. Si tu n'as pas de solution pour moi, ce n'est pas grave, je te remercie tout de même d'avoir tenté de m'aider ;)

j'arrive pas à mettre ces foutus images !! [Edité le 17/5/2011 par shergy]

Bonsoir, Pour les surfaces de mes logements j'utilise des tableaux. Or certaines des cellules de ces tableaux n'ont pas de bordures, malgré tout je devrais voire apparaître autour de ces cellules un cadre gris. Sur certains de mes fichiers je vois ce cadre mais pas sur d'autres. J'aurais besoin de votre aide pour pouvoir afficher ce cadre sur tous mes fichiers. Merci par avance pour votre aide. Guillaume

Bonsoir, Pour les surfaces de mes logements j'utilise des tableaux. Or certaines des cellules de ces tableaux n'ont pas de bordures, malgré tout je devrais voire apparaître autour de ces cellules un cadre gris. Sur certains de mes fichiers je vois ce cadre mais pas sur d'autres. J'aurais besoin de votre aide pour pouvoir afficher ce cadre sur tous mes fichiers. Merci par avance pour votre aide. Guillaume

Bonjour à tous, J'utilise le lisp de Gile (totalarea) pour calculer mes surfaces par pièce, et le lisp LATT de Patrick_35 afin de calculer mes totaux de surfaces pour des logements. Je voudrais savoir s'il est possible de modifier le lisp LATT afin pour qu'il devienne dynamique comme celui de Gile ? Avec TOTALAREA, lorsque l'on modifie une polyligne, la surface du bloc se met à jour automatiquement, est-il possible de faire la même chose avec LATT ? Merci par avance

Je comprends tout à fait ta position, pas de souci. Connais-tu d'autres forum sur lesquels je pourrais avoir des renseignements ?

Encore une question... Peut-on mettre pour le libellé une liste de noms de pièce sous forme de menu déroulant ?

autant pour moi CA MARCHE !!!!! ENCORE MERCI

j'ai fais toutes les modifs et je tombe sur ce message : Erreur: type d'argument incorrect: stringp 0.01

Je vais essayer ça tout de suite. Dans tous les cas je te remercie beaucoup pour ton aide. Bonnes fêtes de fin d'année.

ça marche super. Encore une question. La surface donnée est celle de la polyligne sélectionnée, est-il possible de lier les deux, à savoir lorsque l'on étire le polyligne la surface change de manière dynamique ?

Est-il possible de modifier ce code pour que les surfaces données soient arrondies à 0.05m² près ? (defun c:SURF ( / sav_dim sav_lup sav_att zone ent_zone surf_x surf_t surf_1 position) (setvar "CMDECHO" 0) (setq sav_dim (getvar "DIMZIN")) (setq sav_lup (getvar "LUPREC")) (setq sav_att (getvar "ATTDIA")) (setvar "DIMZIN" 0) (setvar "ATTDIA" 0) (if (not precision) (progn (initget 4) (setq precision (getint (strcat "\nEntrer la précision désiré <" (itoa (getvar "LUPREC")) ">: " ) ) ) ) ) (if (not precision) (setq precision (getvar "LUPREC"))) (setvar "LUPREC" precision) (setq surf_t 0.0) (if (not unite) (progn (initget "KM² M² CM² MM²") (setq unite (getkword "\nEntre l'unité utilisé [KM²/M²/CM²/MM²] : ")) ) ) (if (not unite) (setq unite "M²")) (while (setq zone (getpoint "\nPointez dans la zone/: ")) (command "_.-boundary" zone "") (setq ent_zone (entlast)) (command "_area" "_ob" ent_zone) (setq surf_x (getvar "area")) (setq surf_t (+ surf_t (getvar "area"))) (entdel ent_zone) ) ; (if(<(strlen (rtos (rem surf_t (fix surf_t)) 2 precision)) 4) ; (setq surf_1 (strcat (rtos surf_t 2 precision) "0")) (setq surf_1 (rtos surf_t 2 precision )) ; ) (initget 9) (setq position (getpoint "\nPosition du bloc : ")) (command "_.-insert" "surface" position 1 1 0 "" (strcat surf_1 " " unite)) (command "_.eattedit" (entlast)) (setvar "DIMZIN" sav_dim) (setvar "LUPREC" sav_lup) (setvar "ATTDIA" sav_att) (princ) ) ; ==== Création d'un tableau de surface ==== (defun c:TAB ( / sav_dim sav_lup sav_att choix surf_total ht_htx bloc nb_bloc compte position type surface) (setvar "CMDECHO" 0) (cond ((tblsearch "BLOCK" "SURFACE") (setq sav_dim (getvar "DIMZIN")) (setq sav_lup (getvar "LUPREC")) (setq sav_att (getvar "ATTDIA")) (setvar "DIMZIN" 0) (setvar "LUPREC" precision) (setvar "ATTDIA" 0) (initget 7 "Tous Sélection") (setq choix (getkword "\nChoix du calcul avec Bloc [Tous/Sélection] : ")) (setq surf_total 0) (setq ht_txt (cdr (assoc 40 (entget (entnext (cdr (assoc -2 (tblsearch "BLOCK" "SURFACE")))))))) (if (= ht_txt nil) (setq ht_txt (getvar "textsize")) ) (if (= choix "Tous") (setq bloc (ssget "x" (list (cons 0 "INSERT") (cons 2 "SURFACE")))) (progn (princ "\nSélectionnez les blocs SURFACE : ") (setq bloc (ssget (list (cons 0 "INSERT") (cons 2 "SURFACE")))) ) ) (setq nb_bloc (sslength bloc)) (setq compte 0) (if (/= nb_bloc nil) (progn (initget 9) (setq position (getpoint "\nPosition du tableau ; ")) (repeat nb_bloc (if (= (cdr (assoc 2 (entget (ssname bloc compte)))) "surface") (progn (setq type (cdr (assoc 1 (entget (entnext (ssname bloc compte)))))) (setq surface (cdr (assoc 1 (entget (entnext (entnext (ssname bloc compte ))))))) (setq surf_total (+ surf_total (atof surface))) (command "_.-insert" "liste" position 1 1 0 type surface) (setq position (list (car position) (- (cadr position) (* 2.4 ht_txt)))) ) ) (setq compte (1+ compte)) ) (command "_.-insert" "liste" position 1 1 0 "TOTAL" (strcat (rtos surf_total 2 precision) " " unite)) ) ) (setvar "DIMZIN" sav_dim) (setvar "LUPREC" sav_lup) (setvar "ATTDIA" sav_att) ) (T (alert "\nUtiliser d'abord SURF pour définir les surfaces") ) ) (princ) ) (princ "\n==> SURF pour insérer la surface d'une zone / TAB pour créer une liste") (princ)

je n'arrive pas à sélectionner d'objet. Quand je clique sur un champ ou un texte il ne se passe rien...

Gile, toi qui es un pro du lisp, tu n'aurais pas un petit bout de code permettant de résoudre ce problème ? Merci d'avance [Edité le 29/12/2009 par shergy]

D'accord, mais si ta surface initiale avait été de 0.435 l'arrondi aurait été à 0.44 et non à 0.45 comme je le voudrais