lili2006

Bonjour à tous, Dans la même lignée que ce post : http:// http://www.cadxp.com/sujetXForum-16343.htm, et pour faire suite à cette discussion : http:// http://discussion.autodesk.com/thread.jspa?threadID=595631 Ce fichier, légérement modifié (tu parles, juste les couleurs, c'est à peu prés mon niveau sur Excel,....): http://cjoint.com/?imlEfYNNqp Bon Dimanche à tous.

Bonjour à tous, Merci de ta réponse sechanbask. J'avais déjà fait cette opération mais ton fichier "beug" chez moi. Par contre, pour faire suite à cette discussion : http:// http://discussion.autodesk.com/thread.jspa?threadID=598351, ce fichier fonctionne parfaitement : http://cjoint.com/?imlrIJlcSJ J'ai juste changer quelques couleurs pour mettre un peu plus de gaité,....

Bonjour à tous, Merci pour ta réponse laurentbarres. depuis ce post, je n'ai pas eu de nouveaux problèmes !!! (Jusqu'à la prochaine,...)

Bonjour à tous, Surement trés bien, MAIS comment ça marche ??

Bonjour à tous, Cela semble interessant, zebulon_, mais comment charge t'on ce code ? ce n'est pas un Lisp, si?

Bonjour à tous, J'utilise également AutoCAD 2008 et des fois jusqu'à 10 xrefs sans problème. Peut-être est ce du à ton matériel pas assez puissant ??? . Peut-être le chemin d'enregistrement automatique : http://images2.hiboox.com/vignettes/3207/jrv6pvss.jpg . Je profite de ce post pour tester le lien que tu proposes dans ce sujet : http:// http://www.cadxp.com/sujetXForum-16376.htm. Autre question, comment faire pour insérer l'image de manière à ce qu'elle soit lisible ou pouvoir l'agrandir à la lecture, car ici, c'est illisible !!!

Rere, Réalisé sur forum test : http://www.cadxp.com/sujetXForum-16394.htm

http://images2.hiboox.com/vignettes/3207/xc97z0nk.jpg. Ok (gile), merci encore,... Suite à ce message : http:// http://www.cadxp.com/sujetXForum-16376.htm

Ok ! Merci (gile), je vais regarder ça,.. @+

Re, Quand je fais ce que tu me dis (gile), j'obtient ca : http://www.hiboox.com/lang-fr/image.php?img=xc97z0nk.jpg . Il me manque surement quelque chose ou encore fausse manip ?

http://www.hiboox.com/lang-fr/image.php?img=xc97z0nk.jpg

Bonjour à tous, <!--url{0}-->[/img]</p><p> </p><p>Et comment fais t-on pour ne voir que l En même temps, je reconnais ne pas avoir passé le temps suffisant,... Merci d'avance à ceux qui savent,...

Bonjour à tous, Je ne sais pas si c'est ce que tu cherches,mais moi, personnellement, j'aime bien ce lisp de (gile) : "tabloc" (defun c:tabloc (/ kw libloc liidbloc ss col liref ptins tableVL cont) (vl-load-com) (initget "Collection Objet Sélection") (setq kw (getkword "\nChoisir une option [Collection/Objet/Sélection] : ")) (cond ((= kw "Objet") (if (setq obj (car (entsel "\nSélectionnez l'objet délimitant la sélection: ") ) ) (if (member (cdr (assoc 0 (entget obj))) '("CIRCLE" "ELLIPSE" "LWPOLYLINE") ) (setq ss (SelByObj obj "WP" '((0 . "INSERT")))) (princ "\nEntité non valide.") ) (princ "\nAucune entité sélectionnée.") ) ) ((= kw "Collection") (setq ss (ssget "_X" '((0 . "INSERT"))) col T ) ) (T (setq ss (ssget '((0 . "INSERT"))))) ) (if ss (setq liref (mapcar '(lambda (x) (setq x (vlax-ename->vla-object x)) (if (vlax-property-available-p x 'EffectiveName) (vla-get-EffectiveName x) (vla-get-Name x) ) ) (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))) ) ) (setq liref '()) ) (if col (vlax-for i (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)) ) (if (and (/= (substr (vla-get-name i) 1 1) "*") (= :vlax-false (vla-get-IsXref i)) ) (setq libloc (append libloc (list (vla-get-name i))) liidbloc (append liidbloc (list (vla-get-ObjectID i))) ) ) ) (setq libloc (remove_doubles liref) liidbloc (mapcar '(lambda (x) (vla-get-ObjectID (vla-item (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object) ) ) x ) ) ) libloc ) ) ) (initget 1) (setq ptins (trans (getpoint "\nPoint d'insertion: ") 1 0)) (setq tableVL (vla-addtable (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-3d-point ptins) (+ (length libloc) 2) 3 20 100 ) ) (vla-put-TitleSuppressed tableVL :vlax-false) (vla-setText tableVL 0 0 "LEGENDE/QUANTITATIF") (mapcar '(lambda (x) (vla-setText tableVL 1 (car x) (cdr x))) '((0 . "SYMBOLE") (1 . "DESIGNATION") (2 . "QUANTITE")) ) (setq cont 0) (repeat (vla-get-Rows tableVL) (vla-SetBlockTableRecordId tableVL (1+ (setq cont (1+ cont))) 0 (nth (1- cont) liidbloc) :vlax-true ) (vla-settext tableVL (1+ cont) 1 (nth (1- cont) libloc) ) (vla-settext tableVL (1+ cont) 2 (length (vl-remove-if-not '(lambda (n) (= n (nth (1- cont) libloc))) liref ) ) ) (vla-setcellalignment tableVL (1+ cont) 1 5) (vla-setcellalignment tableVL (1+ cont) 2 5) ) (princ) ) ;;; REMOVE_DOUBLES - Suprime tous les doublons d'une liste (defun remove_doubles (lst) (if lst (cons (car lst) (remove_doubles (vl-remove (car lst) lst))) ) ) ;;; SelByObj -Gilles Chanteau- 06/10/06 ;;; Crée un jeu de sélection avec tous les objets contenus ou ;;; capturés, dans la vue courante, par l'objet sélectionné ;;; (cercle, ellipse, polyligne fermée). ;;; Arguments : ;;; - un nom d'entité (ename) ;;; - un mode de sélection (Cp ou Wp) ;;; - un filtre de sélection ou nil (defun SelByObj (ent opt fltr / obj dist n lst prec dist p_lst) (vl-load-com) (setq obj (vlax-ename->vla-object ent)) (cond ((member (cdr (assoc 0 (entget ent))) '("CIRCLE" "ELLIPSE")) (setq dist (/ (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj) ) 50 ) n 0 ) (repeat 50 (setq lst (cons (trans (vlax-curve-getPointAtDist obj (* dist (setq n (1+ n)))) 0 1 ) lst ) ) ) ) (T (setq p_lst (vl-remove-if-not '(lambda (x) (or (= (car x) 10) (= (car x) 42) ) ) (entget ent) ) ) (while p_lst (setq lst (append lst (list (trans (append (cdr (assoc 10 p_lst)) (list (cdr (assoc 38 (entget ent)))) ) ent 1 ) ) ) ) (if (/= 0 (cdadr p_lst)) (progn (setq prec (1+ (fix (* 50 (abs (cdadr p_lst))))) dist (/ (- (if (cdaddr p_lst) (vlax-curve-getDistAtPoint obj (trans (cdaddr p_lst) ent 0) ) (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj) ) ) (vlax-curve-getDistAtPoint obj (trans (cdar p_lst) ent 0) ) ) prec ) n 0 ) (repeat (1- prec) (setq lst (append lst (list (trans (vlax-curve-getPointAtDist obj (+ (vlax-curve-getDistAtPoint obj (trans (cdar p_lst) ent 0) ) (* dist (setq n (1+ n))) ) ) 0 1 ) ) ) ) ) ) ) (setq p_lst (cddr p_lst)) ) ) ) (ssget (strcat "_" opt) lst fltr) ) En espérant que cela puisse t'aider,..

Bonjour à tous, Merci beaucoup (gile), je vais tester ça. @+,

Bonsoir à tous, Afin de mieux gérer mes multiples boites de dialogue, je voudrais savoir comment on modifie le titre de celles-ci ?? Merci d'avance.

Bonsoir, . Oui!! Pas de pb à signaler et avec le lisp IAT, on à la totale. Le top du top serait de pouvoir intégrer les deux sur un seul lisp, mais là, j'exagère peut-être, pourtant,.... PS: Mat ouvre la palette des matériaux sur V2008, ça peut donc être génant parfois,...

Ok Patrick_35. Je teste ça dés que j'en ai à nouveau l'occasion et éventuellement donne un avis, mais je suppose qu'il s'approchera de celui de whitesquare , puisque nos besoins sont les mêmes (et je suppose plein d'autres sur ce forum qui ont suivi ces discussions sans se manifester,....!!!) :

Bonjour, Sais-tu ce qu'est une XREF et comment on l'utilise ?

Euh, au fait, quels sont les changements de cette version ? Merci d'avance,... (une fois de plus!)

Bonjour à tous, Effectivement Patrick_35, le dcl était à 0 octets ??? Je l'ai rechargé, plus de pb. Plus qu'à tetser. Merci encore. @+

Re, Redémarrage de l'ordi, toujours même message. Que faire, Réinstaller l'ancienne version ou supprimer le lisp "latt" ou rien à voir ?? Merci d'avance pour ta réponse Patrick_35

Re, Désolé, en ce qui me concerne, je ne peux pas t'aider + car j'ai l'impression que tu parles d'une version pas trés légal, et là,..... Gare car Autodesk veille... Le plus sage et de retrouver l'ancien propriétaire auprés d'Autodesk avec le N° de licence. Encore une fois, désolé,

Re, Il vaut mieux que tu créer ton propre profil ! Mais, à mon avis, aucune incidence avec le pb qui te préocuopes,....

Bonjour à tous, Merci pour cette bonne nouvelle Patrick-35. Maintenant, j'ai comme message : Impossible de trouver une définition pour la boite de dialogue att" ???. Je vais essayer de rouvrir AutoCAD + tard, peut-être un conflit avec l'ancienne version, non ?

C'est cela oui, :P